10 POKE 515,0:GOSUB1000:S=4:POKE63,0 
 11 FOR V=1 TO 2
 12 X=128:Y=96:FOR XX=0 TO 254 STEP S:YY=0:GOSUB 100:NEXT
 14 XX=254:FOR YY=0 TO 191 STEP S:GOSUB 100:NEXT 
 16 FOR XX=254 TO 0 STEP -S:GOSUB 100:NEXT:XX=0
 18 FOR YY=191 TO 0 STEP -S:GOSUB 100:NEXT
 19 POKE 40944,3:FOR K=1 TO 2000:NEXT:POKE 40944,0:POKE63,1:NEXT:POKE63,0
 20 FOR J=1 TO 3:FOR K=1 TO 1000:NEXT:POKE 40944,J:GOSUB 1000
 21 READ X,Y,XX,YY:FOR K=1 TO 100-(J*33):NEXT:IF X=-1 THEN RESTORE:NEXT:GOTO23
 22 GOSUB 100: GOTO 21
 23 FOR K=1 TO 2000:NEXT:GOSUB 1000
 24 F=1:POKE 40944,0:FOR G=1 TO 100:W=INT(RND(1)*50):XS=INT(RND(1)*(254-W))
 26 YS=INT(RND(1)*(191-W)):X=XS:Y=YS:XX=X+W:YY=Y:GOSUB 100
 28 YY=YS+W:GOSUB 100:XX=XS:GOSUB 100:YY=YS:GOSUB 100:NEXT
 30 FOR K=1 TO 2000:NEXT:GOSUB 1000
 31 FOR J=1 TO 100:X=RND(1)*254:XX=RND(1)*254
 32 Y=RND(1)*191:YY=RND(1)*191:GOSUB 100:NEXT
 34 FOR K=1 TO 2000:NEXT:GOSUB 1000:POKE 11,242
 36 X0=64:Y0=96:RA=64:FOR J=1 TO 2:DR=5:DP=5:DP=DP*3.14159/180
 38 FOR R=0 TO RA STEP DR:FOR P=0 TO 2*3.14159 STEP DP:X=R*COS(P)
 40 Y=R*SIN(P):X=X0+X:Y=Y0+Y:POKE 64,X:POKE 65,Y:X=USR(X)
 41 NEXT:NEXT:X0=254-64:NEXT:FOR K=1 TO 2000:NEXT 
 42 POKE 11,121:F=0:X=64:Y=96:XX=254-64:YY=Y:GOSUB 100
 44 Y=32:XX=X:YY=Y+128:GOSUB 100:X=254-64:XX=X:GOSUB 100
 46 YY=32:Y=32:X=64:GOSUB 100:YY=160:Y=YY:GOSUB 100
 48 Y=32:FOR XX=64 TO 254-64 STEP 3:YY=160:GOSUB 100:NEXT 
 50 X=254-64:Y=160:YY=32:FOR XX=64 TO X STEP 3:GOSUB 100:NEXT
 52 FORK=1 TO 1000:NEXT:FOR G=1 TO 12:POKE 40944,G:FOR L=1 TO 200:NEXT:NEXT
 54 POKE 40944,0:FOR K=1 TO 2000:NEXT:RUN
 99 END
 100 POKE 64,X:POKE 65,Y:POKE 66,XX:POKE 67,YY:X=USR(X)  
 101 IF F=1 THEN X=XX:Y=YY
 102 RETURN
 200 DATA128,10,158,10,128,60,158,60,193,10,193,60
 202 DATA28,10,58,10,28,35,58,35,78,60,108,60,158,10,158,60
 204 DATA178,10,208,10,78,10,78,60,128,10,128,60
 206 DATA58,10,58,35,28,10,28,60,28,70,208,70
 208 DATA143,90,128,140,143,90,158,140,135,115,151,115
 210 DATA178,90,185,140,185,140,193,90,193,90,201,140
 212 DATA201,140,208,90,28,90,58,115,58,115,28,140,28,140
 214 DATA28,90,78,90,108,90,108,90,108,115,93,115,108,140
 216 DATA78,115,108,115,78,90,78,140,28,150,208,150
 218 DATA-1,-1,-1,-1
 1000 POKE11,89:POKE12,16:X=USR(X):POKE11,121:POKE12,16:RETURN