10 REM MAKE BUBBLES 
20 GOSUB 60000
30 B$=CHRS(27):CL$=ES+"H"+E$+"E"
40 PRINT CL$;E$+"f"
50 A%=2
60 FOR i=5 TO 30
70 R%=i:X%=RND*720:Y%=RND*255+i:F%=A%
80 CALL CIRCLE(X%,Y%,R%,F%)
90 IF i>100 AND i< 110 THEN A%=0 ELSE A%=2
100 NEXT i
110 PRINT E$+"e"
120 END
60000 REM PLOT, DRAW & CIRCLE ROUTINES
60010 IF HIMEM<>62981! THEN ERROR 7
60020 MEMORY &HF2FF:E=0:a=HIMEM+1:RESTORE 60100
60030 PLOT=a:DRAW=a+3:CIRCLE=a+6
60040 RET=a+9:X0=a+10:Y0=a+12
60050 FOR i=0 TO 41:c=0:F0R j=1 TO 16
60051 READ x$:x=VAL("&H"+x$):c=c+x:POKE a,x:a=a+1:NEXT j
60070 READ x$
60080 IF c<>VAL("&H"+x$) THEN E=E+1:PRINT "error in line";10*(i+6010) 	????
60090 NEXT i:IF E=0  THEN RETURN ELSE PRINT E;"error(s)":ERROR 17
60100 DATA C3,30,F3,C3,B3,F3,C3,81,F4,FF,FF,FF,FF,FF,D9,C1,D1C
60110 DATA 21,00,00,39,31,00,F6,E5,C5,21,09,F3,D9,4E,23,46,5D8
60120 DATA 78,B1,28,09,0B,78,B1,3E,01,28,02,3E,02,3C,08,C9,444
60130 DATA E5,DD,E1,D5,FD,E1,60,69,CD,0E,F3,CD,41,F3,E1,F9,BC8
60140 DATA C9,D9,36,01,D9,DD,4E,00,DD,46,01,FD,5E,00,FD,56,7AF
60150 DATA 01,ED,43,0A,F3,ED,53,0C,F3,21,CF,02,A7,ED,42,D8,80D
60160 DATA 7A,A7,37,C0,D9,36,00,D9,93,3D,5F,EB,F3,3E,81,D3,89F
60170 DATA F1,3C,D3,F2,29,11,00,B6,19,5E,23,56,EB,7D,E6,07,727
60180 DATA 5F,29,7D,E6,F0,B3,6F,59,79,E6,F8,4F,09,7B,E6,07,86D
60190 DATA 3C,47,3E,01,0F,10,FD,08,47,08,10,05,2F,A6,77,18,3AE
60200 DATA 08,10,04,B6,77,18,02,AE,77,3E,85,D3,F1,3C,D3,F2,710
60210 DATA FB,A7,C9,E5,DD,E1,D5,FD,E1,60,69,CD,0E,F3,CD,C6,BEB
60220 DATA F3,D9,71,E1,F9,C9,DD,6E,00,DD,66,01,ED,4B,0A,F3,9A4
60230 DATA A7,ED,42,EB,FD,6E,00,FD,66,01,ED,4B,0C,F3,A7,ED,95B
60240 DATA 42,D9,0E,02,D9,7A,B3,B4,B5,C8,0E,01,CB,7A,28,09,6E7
60250 DATA 0E,FF,7A,2F,57,7B,2F,5F,13,06,01,CB,7C,28,09,06,4AE
60260 DATA FF,7C,2F,67,7D,2F,6F,23,ED,43,92,F5,A7,ED,52,38,824
60270 DATA 0C,19,ED,53,96,F5,22,98,F5,0E,00,18,0A,19,22,96,5A0
60280 DATA F5,ED,53,98,F5,06,00,ED,43,94,F5,2A,98,F5,44,4D,8C9
60290 DATA CB,3C,CB,1D,D9,0E,00,D9,C5,ED,4B,96,F5,09,ED,4B,878
60300 DATA 98,F5,A7,ED,42,38,06,ED,5B,92,F5,18,05,09,ED,5B,7DE
60310 DATA 94,F5,E5,2A,0A,F3,4B,7B,17,9F,47,09,DD,75,00,DD,790
60320 DATA 74,01,2A,0C,F3,4A,7A,17,9F,47,09,FD,75,00,FD,74,64B
60330 DATA 01,CD,41,F3,D9,7E,B1,4F,D9,E1,C1,0B,78,B1,20,B8,8E0
60340 DATA C9,E5,DD,E1,D5,FD,E1,60,69,5E,23,56,23,EB,4E,23,93E
60350 DATA 46,ED,43,9E,F5,EB,5E,23,56,23,EB,CD,0E,F3,D9,36,8B6
60360 DATA 04,D9,2A,9E,F5,7C,A7,C0,D9,34,D9,B5,C8,CD,72,F5,A14
60370 DATA 22,A0,F5,2A,9E,F5,CD,81,F5,FD,6E,00,FD,66,01,22,8A8
60380 DATA 9C,F5,22,0C,F3,DD,6E,00,DD,66,01,22,9A,F5,09,22,71D
60390 DATA 0A,F3,D9,06,00,1E,01,D9,CD,FA,F4,D9,1C,7B,D9,FE,8D6
60400 DATA 05,38,F5,2A,9A,F5,DD,75,00,DD,74,01,2A,9C,F5,FD,847
60410 DATA 75,00,FD,74,01,D9,70,E1,F9,C9,3A,9E,F5,47,C5,05,8B1
60420 DATA D9,7B,D9,0F,38,05,3A,9E,F5,90,47,68,26,00,E5,CD,75D
60430 DATA 72,F5,EB,2A,A0,F5,A7,ED,52,CD,5D,F5,EB,2A,9C,F5,ABC
60440 DATA D9,7B,D9,FE,03,30,03,19,18,03,A7,ED,52,FD,75,00,6ED
60450 DATA FD,74,01,E1,CD,81,F5,2A,9A,F5,D9,7B,D9,FE,01,28,9A3
60460 DATA 09,FE,04,28,05,A7,ED,42,18,01,09,DD,75,00,DD,74,5D3
60470 DATA 01,CD,C6,F3,D9,79,B0,47,D9,C1,10,A2,C9,7C,B5,C8,9DE
60480 DATA EB,21,00,00,23,E5,CD,72,F5,A7,ED,52,E1,38,F5,C8,904
60490 DATA 2B,C9,65,2E,00,4C,45,3E,08,29,30,01,09,3D,20,F9,417
60500 DATA C9,54,5D,29,29,29,19,CB,3C,CB,1D,CB,3C,CB,1D,44,630
60510 DATA 4D,C9,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,F08