home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 January
/
1985-01.d64
/
kablam_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
6KB
|
183 lines
100 forx=24573to24593:cs=cs+peek(x):next:ifcs=2907then160
110 print"[147]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 goto180
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