1 REM GRAFIK 2001
2 REM DEMO CIRCLE/2
3 REM 2.90/BL
10 (null)
11 (null)5,0
12 POKE53280,0
13 (null)1
20 A=96:B=A:FORI=0TO49:IFA<0THENA=0
30 (null)0,160,100,A,B:A=A-2
40 NEXT
50 A=24:B=A:FORI=1TO13:IFA<0THENA=0
60 (null)0,50,26,A,B:A=A-2
65 NEXT:POKE53280,13
70 (null)0,1,2,4,0,16,0,170,"[195]IRCLE"
1000 POKE198,0:WAIT198,1:(null)0:END