home *** CD-ROM | disk | FTP | other *** search
- 0 PRINT"[147]"
- 1 PRINT" [195][194][195]"
- 2 PRINT" [195][194][195]"
- 3 PRINT" [195][194][195]"
- 4 PRINT" [195][194][195]"
- 5 PRINT" [195][194][195]"
- 6 PRINT" [195][194][195]"
- 7 PRINT" [195][194][195]"
- 8 PRINT" [195][194][195]"
- 9 PRINT" [195][194][195]"
- 10 PRINT" [195][194][195]"
- 11 PRINT" YEE [194][213][196][201][194]THATS A LONG WAY UP"
- 12 PRINT" [194][202][198][203][194]"
- 13 PRINT" [217][200][194][199][212]"
- 14 PRINT""
- 15 PRINT"PRESS S TO START E TO END"
- 16 GETA$:IFA$=""THEN16
- 17 IFA$="S"THEN PRINT"[147]":GOTO 100
- 18 IFA$<>"S"THEN PRINT"[147]":GOTO 1
- 19 IFA$="E"THEN PRINT"[147]":GOTO 1920
- 20 IFA$<>"E"THEN GOTO 0
- 100 FORX=24573TO24593:CS=CS+PEEK(X):NEXT:IFCS=2907THEN160
- 110 PRINT"READING IN:"
- 120 PRINT"ML ROUTINE";:FORX=24573TO25219:READA:POKEX,A:B=B+A:NEXT
- 130 IFB<>72932THENPRINT" ERROR IN DATA":END
- 140 PRINT" OK":PRINT"CHARACTERS":FORX=10240TO10575:READA:POKEX,A:NEXT
- 150 PRINT"SPRITES":FORX=12800TO13056:READA:POKEX,A:NEXT
- 160 POKE53281,1
- 170 GOTO460:REM GOTO TITLE PAGE
- 180 POKE53272,27:PRINT"[147][152]";CHR$(8):POKE53280,7
- 190 PRINTTAB(30)"%$$$$$$$$$"
- 200 PRINTTAB(30)"[145]%KKKKKKKKK"
- 210 FORX=0TO1:PRINTTAB(30)"[145]%KKKKKKKKK"
- 220 PRINTTAB(30)"[145]%KKMRVRNKK"
- 230 PRINTTAB(30)"[145]%KKX&%&WKK"
- 240 PRINTTAB(30)"[145]%KKPTUTOKK"
- 250 PRINTTAB(30)"[145]%KKKKKKKKK"
- 260 PRINTTAB(30)"[145]%KKMRVRNKK"
- 270 PRINTTAB(30)"[145]%KKX&%&WKK"
- 280 PRINTTAB(30)"[145]%KKPTUTOKK"
- 290 PRINTTAB(30)"[145]%KKKKKKKKK":NEXT
- 300 PRINTTAB(30)"[145]%[155]JJJJJJJJJ"
- 310 PRINT"[154]LLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
- 320 PRINT""TAB(13)"YZ[\]!@@@@@@@"SPC(5)"(_)]Y!C"
- 330 POKEV+21,31
- 340 POKEV,128:POKEV+1,226:POKEV+2,20:POKEV+3,69:POKEV+4,30:POKEV+5,69
- 350 POKE830,1:POKE832,255:POKEV+30,0
- 360 SYS24573
- 370 A1=210:A2=30:A3=40:A4=215:A5=190:POKEV+21,26
- 380 POKE24838,2:FORQ=1TO10
- 390 POKEV+8,INT(RND(1)*A1)+A2:POKEV+9,INT(RND(1)*A1)+A3
- 400 POKEV+6,INT(RND(1)*A4)+A2:POKEV+7,INT(RND(1)*A5)+A3
- 410 SYS24897:NEXT
- 420 FORX=VTOV+9:POKEX,0:NEXT:POKEV+21,0
- 430 FORI=1TO2000:NEXT:PRINT"[147]":POKE53272,21
- 440 PRINT""TAB(15)"GAME OVER":FORI=1TO2000:NEXT:GOTO160
- 450 REM TITLE PAGE
- 460 V=53248:S=2040:SI=54272:PRINT"[147]":POKE53280,7
- 470 POKEV+39,9:POKEV+40,12:POKEV+41,0:POKEV+29,26:POKEV+43,8:POKEV+42,15
- 480 POKES,200:POKES+1,202:POKES+2,201:POKES+4,203:POKES+3,203
- 490 POKEV+21,12:POKEV+23,8:POKESI+24,15
- 500 POKEV+4,160:POKEV+5,50:POKESI+6,240
- 510 FORK=50TO130:POKEV+5,K:POKESI+1,255-K:POKESI,100:POKESI+4,17:NEXT
- 520 POKESI+1,0:POKESI,0:POKESI+4,0
- 530 POKEV+21,8:POKEV+6,153:POKEV+7,122
- 540 POKE24838,255:SYS24897:OPEN1,0
- 550 PRINT"[147]"
- 560 PRINT""TAB(8)"[155]ENTER SKILL LEVEL(1-15)";
- 570 INPUT#1,SL$:PRINT:SL=VAL(SL$):IFSL>15ORSL<1THEN550
- 580 POKE53281,1:CLOSE1:SK=ABS(SL-16)*15+15:POKE24838,SK
- 590 POKEV+6,0:POKEV+7,0:POKEV+23,0:POKEV+42,8
- 600 GOTO 180
- 610 REM****MACHINE LANGUAGE DATA****
- 620 DATA 162,0,169,10,157,192,7
- 630 DATA 169,0,157,192,219,232,224
- 640 DATA 40,208,241,120,169,98,141
- 650 DATA 21,3,169,66,141,20,3
- 660 DATA 88,32,149,97,76,168,96
- 670 DATA 169,0,170,168,24,109,167
- 680 DATA 2,144,1,200,202,208,247
- 690 DATA 152,73,255,141,0,208,173
- 700 DATA 30,208,41,5,201,5,240
- 710 DATA 3,76,97,96,172,3,208
- 720 DATA 140,5,208,174,2,208,232
- 730 DATA 232,232,232,232,232,232,232
- 740 DATA 232,232,142,4,208,32,162
- 750 DATA 97,169,255,141,64,3,76
- 760 DATA 97,96,165,197,201,60,240
- 770 DATA 3,76,49,234,169,0,141
- 780 DATA 24,212,173,1,220,201,251
- 790 DATA 240,2,208,247,169,15,141
- 800 DATA 24,212,76,49,234,165,251
- 810 DATA 240,18,174,2,208,169,1
- 820 DATA 133,251,232,224,225,240,6
- 830 DATA 142,2,208,76,190,96,174
- 840 DATA 2,208,169,0,133,251,202
- 850 DATA 224,17,240,226,142,2,208
- 860 DATA 76,190,96,172,3,208,140
- 870 DATA 5,208,174,2,208,232,232
- 880 DATA 232,232,232,232,232,232,232
- 890 DATA 232,142,4,208,172,5,208
- 900 DATA 200,192,223,240,12,140,5
- 910 DATA 208,32,255,96,32,39,97
- 920 DATA 76,128,96,120,173,77,4
- 930 DATA 240,35,206,77,4,174,4
- 940 DATA 208,142,8,208,162,0,142
- 950 DATA 4,208,172,5,208,140,9
- 960 DATA 208,32,65,97,169,255,141
- 970 DATA 9,208,141,64,3,88,76
- 980 DATA 168,96,234,76,43,98,173
- 990 DATA 62,3,141,60,3,169,235
- 1000 DATA 141,61,3,206,61,3,208
- 1010 DATA 251,206,60,3,208,241,169
- 1020 DATA 5,141,62,3,169,64,141
- 1030 DATA 96,3,206,96,3,173,96
- 1040 DATA 3,208,245,96,162,32,142
- 1050 DATA 6,212,174,64,3,202,142
- 1060 DATA 64,3,142,1,212,162,10
- 1070 DATA 142,0,212,162,17,142,4
- 1080 DATA 212,96,32,149,97,169,240
- 1090 DATA 141,13,212,162,4,169,8
- 1100 DATA 141,8,212,169,100,141,7
- 1110 DATA 212,169,129,141,11,212,160
- 1120 DATA 15,140,62,3,32,255,96
- 1130 DATA 169,4,141,8,212,169,129
- 1140 DATA 141,11,212,202,208,220,169
- 1150 DATA 5,141,8,212,169,129,141
- 1160 DATA 11,212,160,160,140,62,3
- 1170 DATA 32,255,96,162,200,142,13
- 1180 DATA 212,169,2,141,62,3,32
- 1190 DATA 255,96,202,208,242,32,149
- 1200 DATA 97,96,162,0,232,169,0
- 1210 DATA 157,0,212,224,22,208,246
- 1220 DATA 96,173,24,4,201,9,240
- 1230 DATA 4,238,24,4,96,173,23
- 1240 DATA 4,201,9,240,24,169,0
- 1250 DATA 141,24,4,238,23,4,206
- 1260 DATA 6,97,206,6,97,206,6
- 1270 DATA 97,206,6,97,206,6,97
- 1280 DATA 96,173,22,4,201,9,240
- 1290 DATA 12,169,0,141,23,4,141
- 1300 DATA 24,4,238,22,4,96,173
- 1310 DATA 21,4,201,9,240,12,169
- 1320 DATA 0,141,22,4,141,23,4
- 1330 DATA 238,21,4,96,173,20,4
- 1340 DATA 201,9,240,15,169,0,141
- 1350 DATA 21,4,8,49,4,141,23
- 1360 DATA 4,238,20,4,96,173,19
- 1370 DATA 4,201,9,240,15,169,0
- 1380 DATA 141,20,4,141,21,4,141
- 1390 DATA 22,4,238,19,4,96,162
- 1400 DATA 0,169,0,157,19,4,232
- 1410 DATA 224,7,208,248,96,120,169
- 1420 DATA 234,141,21,3,169,49,141
- 1430 DATA 20,3,88,173,21,208,41
- 1440 DATA 18,141,21,208,76,149,97
- 1450 DATA 72,152,72,138,72,173,0
- 1460 DATA 220,41,4,208,11,173,167
- 1470 DATA 2,173,167,2,105,4,141
- 1480 DATA 167,2,173,0,220,41,8
- 1490 DATA 208,9,56,173,167,2,233
- 1500 DATA 4,141,167,2,104,170,104
- 1510 DATA 168,104,76,35,96,0,0
- 1520 DATA 0,2,0,0,0,46,0
- 1530 DATA 0,0,0,0,128,0,119
- 1540 DATA 20,255,227
- 1550 REM *******CHARACTER DATA*******
- 1560 DATA 126,102,102,230,230,230,254,0,24,24,24,56,56,56,56,0,254
- 1570 DATA 198,6,254,224,224,254,0,254,6,6,62,14,14,254,0,198,198
- 1580 DATA 198,254,14,14,14,0,254,192,192,254,14,206,254,0,254,198
- 1590 DATA 192,254,230,230,254,0,254,198,12,24,56,56,56,0,126,102
- 1600 DATA 102,254,230,230,254,0,254,198,198,254,14,206,254,0,255
- 1610 DATA 255,255,255,255,255,255,255,239,239,239,0,127,127,127,0
- 1620 DATA 255,66,36,24,24,36,66,255,255,255,192,192,192,192,192
- 1630 DATA 192,255,255,3,3,3,3,3,3,3,3,3,3,3,3,255,255,192,192,192
- 1640 DATA 192,192,192,255,255,192,192,192,192,192,192,192,192
- 1650 DATA 255,255,0,0,0,0,0,0,3,3,3,3,3,3,3,3,0,0,0,0,0,0,255
- 1660 DATA 255,24,24,24,24,24,24,255,255,255,255,24,24,24,24,24
- 1670 DATA 24,3,3,3,255,255,3,3,3,192,192,192,255,255,192,192
- 1680 DATA 192,0,60,102,48,12,102,60,0,0,60,102,96,96,102,60,0
- 1690 DATA 0,60,102,102,102,102,60,0,0,124,102,102,124,102,102,0
- 1700 DATA 0,126,96,120,96,96,126,0,0,102,102,126,102,102,102,0,0
- 1710 DATA 126,24,24,24,24,126,0,0,0,0,0,0,0,0,0,0,24,24,0,0,24
- 1720 DATA 24,0,102,102,102,102,0,0,0,0,220,222,220,216,220,222
- 1730 DATA 220,216,255,255,0,255,255,119,34,0,24,24,24,255,255
- 1740 DATA 24,24,24,0,0,0,255,255,0,0,0,255,255,192,223,222,220
- 1750 DATA 216,216,0,96,96,96,96,96,124,0,0,102,102,102,102,60,24,0
- 1760 *******SPRITE DATA*******
- 1770 DATA 0,0,0,0,0,0,3,128,7,3,192,15,3,255,255,3,255,255,1
- 1780 DATA 255,254,1,255,254,0,255,252,0,255,252,0,255,252,0,127
- 1790 DATA 248,0,127,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- 1800 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,4,32,0,1,128,0,3,8,0,6
- 1810 DATA 32,0,6,0,0,15,0,0,15,0,0,63,192,0,255,240,1,255,248,3
- 1820 DATA 255,252,3,255,252,3,255,252,3,255,252,1,255,248,0
- 1830 DATA 255,240,0,127,224,0,31,128,0,0,127,0,0,255,128,0,65
- 1840 DATA 0,0,148,128,0,128,128,0,93,0,0,34,0,0,28,0,1,255
- 1850 DATA 128,6,8,96,8,0,16,8,201,16,9,0,144,8,129,48,4,129
- 1860 DATA 32,4,129,32,3,195,192,1,231,128,2,195,64,2,0,64,1
- 1870 DATA 255,128,0,16,8,8,58,28,92,111,54,246,195,99,227,1
- 1880 DATA 128,0,0,0,0,164,200,149,164,168,149,170,169,93,202
- 1890 DATA 201,93,206,169,213,170,169,85,170,169,84,170,205,85
- 1900 DATA 0,0,0,0,0,0,192,236,3,98,187,6,55,147,116,29,1,220
- 1910 DATA 8,0,136,0,0
- 1920 END
-