home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / KABLAM! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.8 KB  |  205 lines

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