10 REM CPC-Interruptkurs 1.1
20 REM Beispielprogramm fuer EVERY/DI/EI/REMAIN
30 INK 0,0:BORDER 0:INK 1,10:INK 2,26:INK 3,6
40 SYMBOL AFTER 228:SYMBOL 228,16,16,16,40,56,186,238,170
50 SYMBOL 229,0,56,126,255,126,254,126,36
60 MODE 1:PEN 1
70 ra=20:rb=24
80 EVERY 7,1 GOSUB 140
90 IF JOY(0)=4 THEN ORIGIN 1,1:IF TEST((ra*16)-24,25)<>0 THEN GOTO 200 ELSE LOCATE ra,24:PRINT CHR$(32):IF ra>1 THEN ra=ra-1
100 IF JOY(0)=8 THEN IF TEST((ra*16)+12,25)<>0 THEN GOTO 200 ELSE LOCATE ra,24:PRINT CHR$(32):IF ra<40 THEN ra=ra+1
110 ORIGIN 1,1:IF TEST((ra*16)-10,40)<>0 THEN GOTO 200
120 DI:PEN 2:LOCATE ra,24:PRINT CHR$(228):PEN 1:EI
130 GOTO 90
140 REM Unterprogramm       
150 en=en+1:LOCATE ra,rb:PRINT CHR$(32) 
160 LOCATE 1,1:PRINT CHR$(11)  
170 IF en<375 THEN z=INT(RND*40)+1:LOCATE  z,1:PRINT CHR$(229)
180 IF en>400 THEN END
190 RETURN
200 a=REMAIN(1)
210 tu=INT(RND*10)+1:SOUND 1,100,100,7,5,5,28:FOR t=1 TO 360 STEP 30
220 ORIGIN (ra*16)-tu,400-(16*rb)+4:DRAW 10*SIN(t),10*COS(t),3:NEXT
230 FOR t=1 TO 360 STEP 30:ORIGIN (ra*16)-tu,400-(16*rb)+4
240 DRAW 10*SIN(t),10*COS(t),0:NEXT
250 END
