1 REM GRAFIK 2001
2 REM DEMO CIRCLE
3 REM 2.90/BL
10 (null)
11 (null)10,0
12 POKE53280,0
13 (null)1
15 X=45
70 (null)0,1,2,4,0,16,0,170,"[195]IRCLE"
100 FORI=0TO360STEP4.29
110 X1=X-SIN(I)*45:X2=X-COS(I)*45
120 (null)0,160,100,X1,X2
130 NEXT:POKE53280,6
1000 POKE198,0:WAIT198,1:(null)0:END