10 X=100:Y=-200:R=100:C=.55
30 REM BLOAD"X:BEZIER.BIN"
40 GRAPH 
50 FOR I=0TO 3
60 CALL &C0C5;(X-R,Y,X-R,Y+R*C)-(X-R*C,Y+R,X,Y+R),0,0
70 CALL &C0C5;-(X+R*C,Y+R)-(X+R,Y+R*C,X+R,Y)
80 CALL &C0C5;-(X+R,Y-R*C)-(X+R*C,Y-R,X,Y-R)
90 CALL &C0C5;-(X-R*C,Y-R)-(X-R,Y-R*C,X-R,Y)
100 X=X+40:R=R+20
110 NEXT I
