05 REM CIRCLES SCREENSAVER
10 E=0
20 D=1
25 INK7:PAPER0
30 HIRES
40 INKD
50 PAPERE
60 FOR C=0 TO 100 STEP 20
70 FOR B=1 TO 0 STEP -1
80 CURSET 22,46+C,0
90 FOR A=0 TO 34
100 V$=KEY$
110 IF V$=" " THEN GOTO 290
120 IF D=E THEN D=D+1
130 IF D>7 THEN D=0
135 INKD
140 CIRCLE 10+A,B
150 CURMOV 5,0,0
160 NEXTA
170 NEXTB
180 D=D+1
190 IF D=E THEN D=D+1
200 IF D>7 THEN D=0
210 INKD
220 NEXTC
230 E=E+1
240 IF E>7 THEN E=0:D=D+3
250 IF D=8 THEN D=1
260 IF D=9 THEN D=2
270 IF D=10 THEN D=3
280 GOTO 40
290 TEXT
300 END