[SAMPLE21] SAMPLE

10 REM SAMPLE 21
100 SCREEN 0,0:CLS 3
110 C=1
120 VIEW(200,50)-(400,150),,7
130 WINDOW(-100,-100)-(100,100)
140 GOSUB *CIRC
150 WINDOW(-100,-100)-(0,0)
160 GOSUB *CIRC
170 WINDOW(0,0)-(100,100)
180 GOSUB *CIRC
190 WINDOW(-500,-500)-(500,500)
200 GOSUB *CIRC
210 VIEW(0,0)-(639,199):CLS 3
220 END
230 *CIRC
240 CIRCLE(0,0),100,C
250 LOCATE 0,0:PRINT "どれかキーを押してください";
260 A$=INPUT$(1)
270 C=C+1:CLS 2
280 RETURN