X1=60:Y1=15:R=15
*MAIN
FOR A=0 TO 359 STEP 5
CLS
X2 = COS(A)/15 + X1
Y2 = SIN(A)/15 + Y1
LINE X1,Y1,X2,Y2,1
NEXT
GOTO *MAIN
