2 SP=53248:DAM=56203:PRINT" PLEASE WAIT" 3 POKE822,0:POKE823,0:WM=1 5 GOSUB4950:GOTO20 10 DAM=PEEK(820)*256:DAM=DAM+PEEK(821) 15 HS=PEEK(824)*256:HS=HS+PEEK(825) 16 TS=PEEK(822)*256:TS=TS+PEEK(823) 20 SP=53248:POKESP+21,0:SCAN =1965 35 XL=49426:YL=49427:BUT=49425:COL=55296 99 POKE49426,20:POKE49427,10 100 L1=54272:H1=54273:W1=54276:A1=54277 102 L2=54279:H2=54280:W2=54283:A2=54284 104 L3=54286:H3=54287:W3=54286:A3=54291 106 V=54296:POKE53281,0 197 IFLU=1THENPRINT"[154]";:GOTO199 198 PRINT"[147][154]" 199 POKE53280,14 200 PRINT"V U" 220 PRINT"" 250 PRINT"M P"; 260 PRINT"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR#$%[154]WWWWWW"; 265 IFLU=1THENLU=0:PRINT"";:GOTO275 270 PRINT"S  CDE FGHIJKL[154] TWWWV WWWWWWWWWWW[154] U"; 275 PRINT" @AA[158]B[158] [154]WWW [158]BBBBBBBBBBB [154]"; 280 PRINT"QZZZZZZZZZZZZZZZZZZZZOWWW "; 290 PRINT"";TS;HS;"" 900 POKE53275,0 999 IFWM<>1THEN1002 1000 FORI=1TO15:X=INT((RND(X)*798)+1025):POKEX,INT((RND(X)*2)+33):NEXT 1002 WM=0 2000 MX=INT((RND(X)*36)+2):MY=INT((RND(X)*16)+2):POKESP+16,0:POKESP+21,0 2001 DY=INT((RND(8)*20)+5):SP=53248:POKESP+37,10:POKESP+38,8 2010 SX=(MX*8)+17:SY=(MY*8)+42 2020 IFSX=>255THENSX=SX-255:POKESP+16,254 2030 FORP=0TO14STEP2:POKESP+P,SX:NEXT 2040 FORP=1TO15STEP2:POKESP+P,SY:NEXT 2050 PRINT"";:FOR B=1TOMY-1:PRINT"";:NEXT:FORB=1TO3:PRINTTAB(MX-1)" ":NEXT 2060 POKESCAN,32:SCAN=1965:SK= 80 4100 GOSUB4110:POKESP+21,3:GOSUB4110:POKESP+21,5:GOSUB4110:POKESP+51,9:GOSUB4110 4102 POKESP+21,17:GOSUB 4110:POKESP+21,33:GOSUB4110 4109 POKESP+21,1:GOSUB4110:GOSUB4700:GOTO2000 4110 T=T+1:SYS20000:HH=PEEK(SP+31) 4120 IFPEEK(BUT)=0THENGOSUB4500 4130 IFT1THEN4900 4519 RETURN 4561 FORI=0TO7:POKE2040+I,192+I:POKESP+39+I,7:NEXT:POKE53287,6 4562 RETURN 4700 POKESP+21,1:POKEV,15:FORG=1TO15 4701 POKEH2,2:POKEA2,14:POKEW2,133:POKESP+17,16:POKESP+22,16 4709 FORUY=1TO50:NEXT:POKESP+17,27:POKESP+22,200:NEXT:POKEW2,0 4710 POKEDAM,2:SK=0 4730 RETURN 4800 FORPP=1 TO 5 4802 POKEV,15:POKEA2,15:POKEW2,33 4803 FORTY=50TO100:POKEH2,TY:NEXT:NEXT 4810 POKEW2,0:POKE820,219:LOAD821,139 4811 POKE823,0:POKE822,0 4820 CLR:WM=1:GOTO10 4900 SYS20500:FOR G=5TO1STEP-1:POKESP+21,128:POKESCAN,24 4930 POKEV,15:POKEL2,18:POKEH2,1:POKEL1,35:POKEH1,1:POKEL3,52:POKEH3,1 4935 POKEA2,15:POKEA1,15:POKEA3,15 4937 POKES1,255:POKES2,255:POKES3,255 4940 POKEW2,133:POKEW1,133:POKEW3,133 4942 FORDT=1TO5:X=INT((RND(8)*798)+1024):POKEX,INT((RND(8)*2)+33) 4943 POKE54272+X,INT((RND(8)*14)+1):NEXT:POKESCAN,25:POKESP+21,64:NEXT 4946 DI=INT(DAM/256):POKE820,DI:POKE821,DAM-(DI*256):TV=TS+SK:SI=INT(TS/256) 4947 POKE822,SI:POKE823,TS-(SI*256):POKEW1,0:POKEW2,0:POKEW3,0 4948 IFTS>HSTHENPOKE824,PEEK(822):POKE825,PEEK(823) 4949 CLR:LU=1:GOTO10 4950 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:FORJH=0TO511 4952 POKEJH+14336,PEEK(JH+53248):NEXT: POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1 4953 POKE 53272,(PEEK(53272)AND240)+14 4955 FORA=14336TO14639:READB:POKEA,B:NEXT 4956 FORA=14720TO14799:READB:POKEA,B:NEXT 4957 FORA=20000TO20295:READB:POKEA,B:NEXT 4960 FOR I=0 TO 7:POKE2040+I,192+I:POKESP+39+I,7:NEXT:POKE53287,2 4970 FORA=20500TO20549:READB:POKEA,B:NEXT 4975 FORA=12288TO12799:READB:POKEA,B:NEXT:RETURN 5997 DATA255,32,16,8,35,63,127,192 5999 DATA0,128,67,63,255,255,0,0:REM A REM *** A *** 6002 DATA0,0,128,192,255,192,0,0 6003 DATA254,48,48,56,56,56,56,0 6004 DATA24,24,24,56,56,56,56,0 6005 DATA254,48,48,56,56,56,56,0 6006 DATA254,198,192,254,14,206,254,0 6007 DATA254,198,192,244,224,230,254,0 6008 DATA126,102,102,254,230,230,230,0 6009 DATA126,102,102,230,230,230,230,0 6010 DATA126,102,102,230,230,230,30,0 6011 DATA126,96,96,248,224,224,254,0 6012 DATA252,204,204,254,230,230,230,0 6013 DATA128,128,192,192,224,240,252,255 6014 DATA 5,0,132,0,0,132,0,0 6015 DATA1,3,7,15,255,255,255,255:REM O 6016 DATA1,1,3,3,7,15,63,255 6017 DATA128,192,224,240,255,255,255,255 6018 DATA20,20,20,20,20,148,99,0 6019 DATA240,224,192,128,0,0,0,0 7000 DATA15,7,3,1,0,0,0,0: REM T 7001 DATA127,63,15,7,3,3,1,1 7002 DATA254,248,240,232,192,192,128,128 7003 DATA255,255,255,255,255,255,255,255 7004 DATA5,10,19,25,89,52,17,10 7005 DATA7,15,31,63,255,63,31,14 7006 DATA0,0,0,0,255,255,255,255: REM Z 7007 DATA12,22,61,31,15,15,29,15 7008 DATA240,184,188,108,252,248,160,240 7009 DATA13,3,3,1,0,0,0,0 7010 DATA0,0,0,24,54,120,113,201 7011 DATA188,230,108,188,248,208,192,128 7012 DATA0,0,0,0,0,0,0,0 7013 DATA0,0,0,0,16,0,0,0 7014 DATA0,0,0,24,24,0,0,0 8009 DATA156,161,161,173,165,165,24,0 8010 DATA239,2,2,194,34,34,207,0 8011 DATA119,68,68,119,65,65,119,0 9000 DATA126,102,102,230,230,230,254, 0 9010 DATA24, 24, 24, 56, 56, 56, 56, 0 9020 DATA254,198,6,254,224, 224, 254, 0 9030 DATA 254,6,6,62, 14, 14, 254, 0 9040 DATA198,198,198,254, 14, 14, 14, 0 9050 DATA254,198,192,254,14, 14, 254, 0 9060 DATA254,198,192,254,230,230,254, 0 9070 DATA254,198,12, 24, 56, 56, 56, 0 9080 DATA124,100,100,254,230,230,254, 0 9090 DATA254,198,198,254,14,206, 254, 0 13000 DATA 120,162,0,173,28,193,129,253,173,26,193,129,251 13010 DATA24,173,0,220,41,16,141,17,193,173,0,220,172,19,193,74,176,6,170,152,240 13020 DATA1,136,138,74,176,8,170,152,233,19,240,1,200,138,140,19,193,174,18,193 13030 DATA 74,176,6,168,138,240,1,202,152,74,176,7,168,138,233,38,240 13040 DATA 1,232,234,234,234,142,18,193 13050 DATA 24,169,14,141,29,193,169,5,141,30,193,173,19,193,141,21,193,169 13060 DATA 40,141,20,193,169,0,133,251,133,252,162,8,78,20,193,144,4,24,109,21 13070 DATA 193,74,102,251,202,208,241,105,4,133,252,24,165,251,109,18,193,133 13080 DATA 251,144,5,166,252,232,134,252,24,133,251,133,253,165,252,105,212,133 13090 DATA 254,24,162,0,161,251,205,29,193,240,3,141,26,193,173,29,193,129,251 14000 DATA 161,253,205,30,193,240,3,141,28,193,173,30,193,129,253 14010 DATA 234,234,173,21,208,41,254,141,21,208,173,16,208,41,254,141,16,208,234 14020 DATA 234,173,18,193,141,22,193,169,0,141,0,208,162,8,142,23,193,78,23,193 14030 DATA 144,4,24,109,22,193,74,110,0,208,202,208,240,234,141,24,193,173,0 14040 DATA 208,105,15,144,7,174,24,193,232,142,24,193,141,0,208,24,162,8,169,0 14050 DATA 109,19,193,202,208,250,105,44,141,1,208,24,173,16,208,77,24,193 14060 DATA 141,16,208,173,21,208,73,1,141,21,208,88,96 30000 DATA120,169,0,133,251,169,4,133,252,169,32,160,255,145,251,136 30010 DATA 208,251,145,251,160,255,165,252,201,6,240,7,165,252,105,1,24,144 30020 DATA228,160,71,169,7,133,252,169,32,145,251,136,208,251,88,96 40000 DATA 0, 0, 0, 0, 0, 0, 0, 0 40010 DATA 0, 0, 0, 0, 0, 0, 0, 3 40020 DATA 199, 128, 15, 239, 224, 63, 255, 248 40030 DATA 255, 239, 254, 101, 69, 76, 63, 199 40040 DATA 248, 31, 255, 240, 7, 255, 192, 1 40050 DATA 255, 0, 0, 0, 0, 0, 0, 0 40060 DATA 0, 0, 0, 0, 0, 0, 0, 0 40070 DATA 0, 0, 0, 0, 0, 0, 0, 0 40080 DATA 0, 0, 0, 0, 0, 0, 0, 0 40090 DATA 0, 0, 0, 0, 0, 0, 0, 0 40100 DATA 0, 0, 0, 0, 0, 0, 63, 128 40110 DATA 0, 127, 128, 0, 255, 0, 0, 255 40120 DATA 0, 0, 235, 0, 0, 235, 0, 0 40130 DATA 126, 0, 0, 60, 0, 0, 0, 0 40140 DATA 0, 0, 0, 0, 0, 0, 0, 0 40150 DATA 0, 0, 0, 0, 0, 0, 0, 0 40160 DATA 0, 0, 0, 0, 0, 0, 0, 0 40170 DATA 0, 0, 0, 0, 0, 0, 0, 0 40180 DATA 0, 0, 0, 127, 192, 0, 255, 192 40190 DATA 1, 255, 128, 3, 255, 128, 3, 255 40200 DATA 128, 3, 207, 128, 3, 183, 128, 3 40210 DATA 183, 128, 3, 207, 0, 1, 254, 0 40220 DATA 0, 252, 0, 0, 0, 0, 0, 0 40230 DATA 0, 0, 0, 0, 0, 0, 0, 0 40240 DATA 0, 0, 0, 0, 0, 0, 0, 0 40250 DATA 0, 0, 0, 0, 0, 0, 0, 0 40260 DATA 255, 240, 1, 255, 240, 3, 255, 240 40270 DATA 7, 255, 224, 15, 255, 224, 15, 255 40280 DATA 224, 15, 135, 224, 15, 123, 224, 15 40290 DATA 75, 224, 15, 123, 192, 7, 135, 128 40300 DATA 3, 255, 0, 0, 252, 0, 0, 0 40310 DATA 0, 0, 0, 0, 0, 0, 0, 0 40320 DATA 0, 0, 0, 0, 0, 0, 0, 0 40330 DATA 0, 0, 0, 0, 3, 255, 252, 3 40340 DATA 255, 252, 7, 255, 252, 15, 255, 252 40350 DATA 31, 255, 248, 63, 255, 248, 63, 3 40360 DATA 248, 62, 253, 248, 62, 253, 248, 62 40370 DATA 205, 248, 62, 205, 240, 30, 253, 224 40380 DATA 15, 3, 192, 7, 255, 128, 1, 254 40390 DATA 0, 0, 0, 0, 0, 0, 0, 0 40400 DATA 0, 0, 0, 0, 0, 0, 0, 0 40410 DATA 0, 7, 255, 255, 15, 255, 255, 15 40420 DATA 255, 255, 31, 255, 255, 63, 255, 254 40430 DATA 127, 255, 254, 255, 255, 254, 254, 1 40440 DATA 254, 253, 254, 254, 253, 206, 254, 253 40450 DATA 134, 252, 253, 206, 252, 125, 254, 248 40460 DATA 62, 1, 240, 31, 255, 224, 7, 255 40470 DATA 128, 1, 255, 0, 0, 0, 0, 0 40480 DATA 0, 0, 0, 0, 0, 0, 0, 0 40490 DATA 0, 5, 146, 226, 12, 206, 108, 1, 240, 31, 255, 224, 7, 255 40470 DATA 128, 1, 255, 0, 0, 0, 0, 0 40480 DATA 0, 0, 0, 0, 0, 0, 0, 0 40490 DATA 0, 5, 146, 226, 12, 206, 108, 11 40500 DATA 180, 213, 24, 97, 50, 53, 85, 112 40510 DATA 86, 166, 170, 146, 114, 168, 57, 157 40520 DATA 88, 171, 0, 90, 42, 141, 132, 6 40530 DATA 140, 20, 202, 149, 40, 85, 0, 88 40540 DATA 42, 200, 80, 21, 76, 160, 6, 170 40550 DATA 128, 1, 52, 0, 0, 0, 0, 0 40560 DATA 0, 0, 0, 0, 0, 0, 0, 0 40570 DATA 0, 0, 0, 0, 0, 82, 164, 2 40580 DATA 18, 160, 5, 4, 36, 4, 170, 168 40590 DATA 17, 36, 144, 21, 80, 80, 34, 148 40600 DATA 32, 21, 21, 80, 34, 8, 136, 17 40610 DATA 73, 64, 42, 138, 16, 21, 4, 128 40620 DATA 2, 36, 64, 2, 168, 128, 0, 140 40630 DATA 0, 0, 0, 0, 0, 0, 0, 0 60000 REM ***************************** ******* REMOVE THESE ************ 60010 INPUT"CHARACTER NUMBER:";NU 60020 A=14336+(NU*8):FORB=ATOA+7:PRINTPEEK(B):NEXT