home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 January / 1985-01.d64 / kablam_64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  6.3 KB  |  183 lines
  1. 100 forx=24573to24593:cs=cs+peek(x):next:ifcs=2907then160
  2. 110 print"[147]reading in:"
  3. 120 print"ml routine";:forx=24573to25219:reada:pokex,a:b=b+a:next
  4. 130 ifb<>72932thenprint" error in data":end
  5. 140 print" ok":print"characters":forx=10240to10575:reada:pokex,a:next
  6. 150 print"sprites":forx=12800to13056:reada:pokex,a:next
  7. 160 poke53281,1
  8. 170 goto460 :rem goto title page
  9. 180 poke53272,27:print"[147][152]";chr$(8):poke53280,7
  10. 190 printtab(30)"'$$$$$$$$$"
  11. 200 printtab(30)"[145]#kkkkkkkkk"
  12. 210 forx=0to1:printtab(30)"[145]#kkkkkkkkk"
  13. 220 printtab(30)"[145]#kkmrvrnkk"
  14. 230 printtab(30)"[145]#kkx&%&wkk"
  15. 240 printtab(30)"[145]#kkptutokk"
  16. 250 printtab(30)"[145]#kkkkkkkkk"
  17. 260 printtab(30)"[145]#kkmrvrnkk"
  18. 270 printtab(30)"[145]#kkx&%&wkk"
  19. 280 printtab(30)"[145]#kkptutokk"
  20. 290 printtab(30)"[145]#kkkkkkkkk":next
  21. 300 printtab(30)"[145]#[155]jjjjjjjjj"
  22. 310 print"[154]llllllllllllllllllllllllllllll"
  23. 320 print""tab(13)"yz[\]!@@@@@@@"spc(5)"(_)]y!c"
  24. 330 pokev+21,31
  25. 340 pokev,128:pokev+1,226:pokev+2,20:pokev+3,69:pokev+4,30:pokev+5,69
  26. 350 poke830,1:poke832,255:pokev+30,0
  27. 360 sys24573
  28. 370 a1=210:a2=30:a3=40:a4=215:a5=190:pokev+21,26
  29. 380 poke24838,2:forq=1to10
  30. 390 pokev+8,int(rnd(1)*a1)+a2:pokev+9,int(rnd(1)*a1)+a3
  31. 400 pokev+6,int(rnd(1)*a4)+a2:pokev+7,int(rnd(1)*a5)+a3
  32. 410 sys24897:next
  33. 420 forx=vtov+9:pokex,0:next:pokev+21,0
  34. 430 fori=1to2000:next:print"[147]":poke53272,21
  35. 440 print""tab(15)"game over":fori=1to2000:next:goto160
  36. 450 rem title page
  37. 460 v=53248:s=2040:si=54272:print"[147]":poke53280,7
  38. 470 pokev+39,9:pokev+40,12:pokev+41,0:pokev+29,26:pokev+43,8:pokev+42,15
  39. 480 pokes,200:pokes+1,202:pokes+2,201:pokes+4,203:pokes+3,203
  40. 490 pokev+21,12:pokev+23,8:pokesi+24,15
  41. 500 pokev+4,160:pokev+5,50:pokesi+6,240
  42. 510 fork=50to130:pokev+5,k:pokesi+1,255-k:pokesi,100:pokesi+4,17:next
  43. 520 pokesi+1,0:pokesi,0:pokesi+4,0
  44. 530 pokev+21,8:pokev+6,153:pokev+7,122
  45. 540 poke24838,255:sys24897:open1,0
  46. 550 print"[147]"
  47. 560 print""tab(8)"[155]enter skill level(1-15)";
  48. 570 input#1,sl$:print:sl=val(sl$):ifsl>15orsl<1then550
  49. 580 poke53281,1:close1:sk=abs(sl-16)*15+15:poke24838,sk
  50. 590 pokev+6,0:pokev+7,0:pokev+23,0:pokev+42,8
  51. 600 goto180
  52. 610 rem **** machine language data ****
  53. 620 data 162,0,169,10,157,192,7
  54. 630 data 169,0,157,192,219,232,224
  55. 640 data 40,208,241,120,169,98,141
  56. 650 data 21,3,169,66,141,20,3
  57. 660 data 88,32,149,97,76,168,96
  58. 670 data 169,0,170,168,24,109,167
  59. 680 data 2,144,1,200,202,208,247
  60. 690 data 152,73,255,141,0,208,173
  61. 700 data 30,208,41,5,201,5,240
  62. 710 data 3,76,97,96,172,3,208
  63. 720 data 140,5,208,174,2,208,232
  64. 730 data 232,232,232,232,232,232,232
  65. 740 data 232,232,142,4,208,32,162
  66. 750 data 97,169,255,141,64,3,76
  67. 760 data 97,96,165,197,201,60,240
  68. 770 data 3,76,49,234,169,0,141
  69. 780 data 24,212,173,1,220,201,251
  70. 790 data 240,2,208,247,169,15,141
  71. 800 data 24,212,76,49,234,165,251
  72. 810 data 240,18,174,2,208,169,1
  73. 820 data 133,251,232,224,225,240,6
  74. 830 data 142,2,208,76,190,96,174
  75. 840 data 2,208,169,0,133,251,202
  76. 850 data 224,17,240,226,142,2,208
  77. 860 data 76,190,96,172,3,208,140
  78. 870 data 5,208,174,2,208,232,232
  79. 880 data 232,232,232,232,232,232,232
  80. 890 data 232,142,4,208,172,5,208
  81. 900 data 200,192,223,240,12,140,5
  82. 910 data 208,32,255,96,32,39,97
  83. 920 data 76,128,96,120,173,77,4
  84. 930 data 240,35,206,77,4,174,4
  85. 940 data 208,142,8,208,162,0,142
  86. 950 data 4,208,172,5,208,140,9
  87. 960 data 208,32,65,97,169,255,141
  88. 970 data 9,208,141,64,3,88,76
  89. 980 data 168,96,234,76,43,98,173
  90. 990 data 62,3,141,60,3,169,235
  91. 1000 data 141,61,3,206,61,3,208
  92. 1010 data 251,206,60,3,208,241,169
  93. 1020 data 5,141,62,3,169,64,141
  94. 1030 data 96,3,206,96,3,173,96
  95. 1040 data 3,208,245,96,162,32,142
  96. 1050 data 6,212,174,64,3,202,142
  97. 1060 data 64,3,142,1,212,162,10
  98. 1070 data 142,0,212,162,17,142,4
  99. 1080 data 212,96,32,149,97,169,240
  100. 1090 data 141,13,212,162,4,169,8
  101. 1100 data 141,8,212,169,100,141,7
  102. 1110 data 212,169,129,141,11,212,160
  103. 1120 data 15,140,62,3,32,255,96
  104. 1130 data 169,4,141,8,212,169,129
  105. 1140 data 141,11,212,202,208,220,169
  106. 1150 data 5,141,8,212,169,129,141
  107. 1160 data 11,212,160,160,140,62,3
  108. 1170 data 32,255,96,162,200,142,13
  109. 1180 data 212,169,2,141,62,3,32
  110. 1190 data 255,96,202,208,242,32,149
  111. 1200 data 97,96,162,0,232,169,0
  112. 1210 data 157,0,212,224,22,208,246
  113. 1220 data 96,173,24,4,201,9,240
  114. 1230 data 4,238,24,4,96,173,23
  115. 1240 data 4,201,9,240,24,169,0
  116. 1250 data 141,24,4,238,23,4,206
  117. 1260 data 6,97,206,6,97,206,6
  118. 1270 data 97,206,6,97,206,6,97
  119. 1280 data 96,173,22,4,201,9,240
  120. 1290 data 12,169,0,141,23,4,141
  121. 1300 data 24,4,238,22,4,96,173
  122. 1310 data 21,4,201,9,240,12,169
  123. 1320 data 0,141,22,4,141,23,4
  124. 1330 data 238,21,4,96,173,20,4
  125. 1340 data 201,9,240,15,169,0,141
  126. 1350 data 21,4,8,49,4,141,23
  127. 1360 data 4,238,20,4,96,173,19
  128. 1370 data 4,201,9,240,15,169,0
  129. 1380 data 141,20,4,141,21,4,141
  130. 1390 data 22,4,238,19,4,96,162
  131. 1400 data 0,169,0,157,19,4,232
  132. 1410 data 224,7,208,248,96,120,169
  133. 1420 data 234,141,21,3,169,49,141
  134. 1430 data 20,3,88,173,21,208,41
  135. 1440 data 18,141,21,208,76,149,97
  136. 1450 data 72,152,72,138,72,173,0
  137. 1460 data 220,41,4,208,11,173,167
  138. 1470 data 2,173,167,2,105,4,141
  139. 1480 data 167,2,173,0,220,41,8
  140. 1490 data 208,9,56,173,167,2,233
  141. 1500 data 4,141,167,2,104,170,104
  142. 1510 data 168,104,76,35,96,0,0
  143. 1520 data 0,2,0,0,0,46,0
  144. 1530 data 0,0,0,0,128,0,119
  145. 1540 data 20,255,227
  146. 1550 rem ******* character data *******
  147. 1560 data 126,102,102,230,230,230,254,0,24,24,24,56,56,56,56,0,254
  148. 1570 data 198,6,254,224,224,254,0,254,6,6,62,14,14,254,0,198,198
  149. 1580 data 198,254,14,14,14,0,254,192,192,254,14,206,254,0,254,198
  150. 1590 data 192,254,230,230,254,0,254,198,12,24,56,56,56,0,126,102
  151. 1600 data 102,254,230,230,254,0,254,198,198,254,14,206,254,0,255
  152. 1610 data 255,255,255,255,255,255,255,239,239,239,0,127,127,127,0
  153. 1620 data 255,66,36,24,24,36,66,255,255,255,192,192,192,192,192
  154. 1630 data 192,255,255,3,3,3,3,3,3,3,3,3,3,3,3,255,255,192,192,192
  155. 1640 data 192,192,192,255,255,192,192,192,192,192,192,192,192
  156. 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
  157. 1660 data 255,24,24,24,24,24,24,255,255,255,255,24,24,24,24,24
  158. 1670 data 24,3,3,3,255,255,3,3,3,192,192,192,255,255,192,192
  159. 1680 data 192,0,60,102,48,12,102,60,0,0,60,102,96,96,102,60,0
  160. 1690 data 0,60,102,102,102,102,60,0,0,124,102,102,124,102,102,0
  161. 1700 data 0,126,96,120,96,96,126,0,0,102,102,126,102,102,102,0,0
  162. 1710 data 126,24,24,24,24,126,0,0,0,0,0,0,0,0,0,0,24,24,0,0,24
  163. 1720 data 24,0,102,102,102,102,0,0,0,0,220,222,220,216,220,222
  164. 1730 data 220,216,255,255,0,255,255,119,34,0,24,24,24,255,255
  165. 1740 data 24,24,24,0,0,0,255,255,0,0,0,255,255,192,223,222,220
  166. 1750 data 216,216,0,96,96,96,96,96,124,0,0,102,102,102,102,60,24,0
  167. 1760 ******* sprite data *******
  168. 1770 data 0,0,0,0,0,0,3,128,7,3,192,15,3,255,255,3,255,255,1
  169. 1780 data 255,254,1,255,254,0,255,252,0,255,252,0,255,252,0,127
  170. 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
  171. 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
  172. 1810 data 32,0,6,0,0,15,0,0,15,0,0,63,192,0,255,240,1,255,248,3
  173. 1820 data 255,252,3,255,252,3,255,252,3,255,252,1,255,248,0
  174. 1830 data 255,240,0,127,224,0,31,128,0,0,127,0,0,255,128,0,65
  175. 1840 data 0,0,148,128,0,128,128,0,93,0,0,34,0,0,28,0,1,255
  176. 1850 data 128,6,8,96,8,0,16,8,201,16,9,0,144,8,129,48,4,129
  177. 1860 data 32,4,129,32,3,195,192,1,231,128,2,195,64,2,0,64,1
  178. 1870 data 255,128,0,16,8,8,58,28,92,111,54,246,195,99,227,1
  179. 1880 data 128,0,0,0,0,164,200,149,164,168,149,170,169,93,202
  180. 1890 data 201,93,206,169,213,170,169,85,170,169,84,170,205,85
  181. 1900 data 0,0,0,0,0,0,192,236,3,98,187,6,55,147,116,29,1,220
  182. 1910 data 8,0,136,0,0
  183.