home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / PENNIES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.1 KB  |  215 lines
  1. 10 PRINT"[147]":PRINTSPC(124)"PLEASE WAIT WHILE PROGRAM LOADS"
  2. 20 REM--GERALD SCHUELER,680 W BEL AIR AVE,ABERDEEN,MD 21001"
  3. 30 [151]52,48:[151]56,48:[156]:K[178]14336:PC[178]56334:CP[178]53272
  4. 40 [151]PC,([194](PC)[175]254):[151]1,([194](1)[175]251)
  5. 50 [129]J[178]0[164]511:[151]K[170]J,[194](53248[170]J):[130]J
  6. 60 [129]I[178]216[164]255:[135]A%:[151]K[170]I,A%:[130]I
  7. 70 [129]I[178]280[164]311:[135]A%:[151]K[170]I,A%:[130]I
  8. 80 [129]N[178]0[164]322:[135]A%:[151]49300[170]N,A%:[130]N
  9. 100 SM[178]12288:[129]I[178]0[164]446:[135]A%:[151]SM[170]I,A%:[130]I
  10. 140 [151]1,([194](1)[176]4):[151]PC,([194](PC)[176]1)
  11. 150 [151]CP,21
  12. 230 S[178]54272:BC[178]53280:BK[178]53281:SC[178]0:GL[178]1:QQ[178]0:DD[178]5:PP[178]1
  13. 240 [153]"LOAD":[151]BC,6:[151]BK,14:[129]L[178]S[164]S[170]24:[151]L,0:[130]
  14. 245 [153]:[153]:[153]
  15. 250 [153][163]6)"   WAIT    WAIT  (null)WAIT  WAIT  (null)WAIT  WAIT  WAIT    WAIT    WAIT"
  16. 252 [153][163]6)" WAIT  WAIT  WAIT    WAIT(null)(null) WAIT  WAIT(null)(null) WAIT  WAIT  WAIT    WAIT"
  17. 255 [153][163]6)"   WAIT   WAIT   WAIT (null) WAIT  WAIT (null) WAIT  WAIT   WAIT     WAIT"
  18. 256 [153][163]6)" WAIT    WAIT    WAIT   WAIT  WAIT   WAIT  WAIT  WAIT      WAIT"
  19. 258 [153][163]6)" WAIT      WAIT  WAIT   WAIT  WAIT   WAIT  WAIT    WAIT    WAIT"
  20. 260 [153][166]129)"STOPTHE COMPUCATS   C.1983"
  21. 270 [153][166]168)"STOPFOR INSTRUCTIONS PRESS F1"
  22. 280 [153][166]171)"PRESS F7 TO BEGIN"
  23. 290 [151]S[170]5,88:[151]S[170]4,33:[151]S[170]24,143:[151]S[170]6,195
  24. 300 [135]LF,HF,DR:[139]LF[178][171]1[167]320
  25. 310 [151]S,LF:[151]S[170]1,HF:[129]T[178]1[164]DR:[130]:[137]300
  26. 320 [151]S,0:[151]S[170]1,0:[151]S[170]24,0
  27. 330 [161]A$
  28. 332 [139]A$[178][199](133)[167]2500
  29. 334 [139]A$[178][199](136)[167]370
  30. 335 [151]BC,5:[129]N[178]0[164]200:[151]55460[170]N,5:[130]
  31. 340 [161]A$
  32. 342 [139]A$[178][199](133)[167]2500
  33. 345 [139]A$[178][199](136)[167]370
  34. 350 [151]BC,6:[129]N[178]0[164]200:[151]55460[170]N,6:[130]
  35. 360 [137]330
  36. 370 SM[178]2040:SP[178]192:V[178]53248:SE[178]V[170]21
  37. 380 [129]N[178]0[164]6:[151]SM[170]N,(SP[170]N):[130]N
  38. 390 [151]V[170]39,2:[151]V[170]40,9:[151]V[170]41,9:[151]V[170]42,2:[151]V[170]43,9:[151]V[170]44,9
  39. 395 [151]V[170]28,64:[151]V[170]38,7:[151]V[170]16,0:CK[178][194](V[170]30)
  40. 397 [151]S[170]18,17:[151]S[170]14,75:[151]S[170]15,34
  41. 400 [129]N[178]1[164]11[169]2:[151]V[170]N,210:[130]N
  42. 405 [151]SE,3:[151]V,100:[151]V[170]2,124:[151]V[170]16,0
  43. 410 [151]CP,([194](CP)[175]240)[176]14
  44. 420 [153]"LOAD":[151]BK,5:[151]BC,0
  45. 421 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  46. 422 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  47. 423 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  48. 424 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  49. 425 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  50. 426 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  51. 427 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  52. 428 [153]"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]";
  53. 440 [153]"STOP              $  $  $  $ "
  54. 445 [153][163]12)"OPEN^]]]]]]]]]]]]]]_"
  55. 450 [153][163]11)"OPEN^%              OPEN&_"
  56. 455 [153][163]10)"OPEN^%  \  \ \  \   \ OPEN&_"
  57. 460 [153][163]9)"OPEN^%                  OPEN&_"
  58. 465 [153][163]8)"OPEN^%]#]#]#]#]#]#]#]#]#]]OPEN&_"
  59. 470 [153][163]7)"OPEN^%#]#]#]#]#]#]#]#]#]#]#^OPEN&_"
  60. 475 [153][163]6)"OPEN^%]#]#]#]#]#]#]#]#]#]#]#]]OPEN&_"
  61. 480 [153][163]5)"OPEN^%                          OPEN&_"
  62. 485 [153][163]4)"OPEN^% []CLR[][]CLR[][]CLR[][]CLR[][]CLR[][]CLR[][]CLR[OPEN&_"
  63. 490 [153]"OPEN   ^%][]CLR[][]CLR[][]CLR[][]CLR[][]CLR[][][]CLR[][[[OPEN&_"
  64. 495 [153]"OPEN  ^%]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]OPEN&_"
  65. 500 [153]"OPEN  ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]"
  66. 505 [153]"OPEN  ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]"
  67. 510 [153]"OPEN  ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]"
  68. 515 [153][163]8)"STOPSCORE: ";SC;"STOP    LEVEL: ";GL
  69. 520 [158]49300
  70. 530 [158]49443
  71. 540 Z[178]([194](SE)[175]64)
  72. 550 [139]Z[178]0[167]800
  73. 580 [139]Z[178]64[167]700
  74. 600 [137]520
  75. 699 [143]--PENNY MOVEMENT
  76. 700 Y[178]Y[170]DD
  77. 710 [139]Y[177]220[167][158]49605:[137]1330
  78. 720 [151]V[170]13,Y
  79. 725 WN[178]([194](V[170]30)[175]73)
  80. 730 [139]WN[178]65[176]WN[178]72[167][158]49614:[137]1300
  81. 735 DY[178]([194](V[170]30)[175]118)
  82. 740 [139]DY[178]66[176]DY[178]68[176]DY[178]80[176]DY[178]96[167]2000
  83. 745 [137]520
  84. 800 [151]V[170]16,[194](V[170]16)[175]63:[139]PP[178]1[176]PP[178]3[167]R[178][181]([187](1)[172]91[170]30)
  85. 810 [139]PP[178]2[167]R[178][181]([187](1)[172]130[170]120)
  86. 820 [139]PP[178]4[167][151]V[170]16,[194](V[170]16)[176]64:R[178][181]([187](1)[172]31[170]5)
  87. 830 [151]252,R:PP[178]PP[170]1:[139]PP[178]5[167]PP[178]1
  88. 840 [158]49586:Y[178]25:[151]V[170]30,0
  89. 850 [137]520
  90. 999 [143]--NEXT LEVEL ROUTINE
  91. 1000 [141]4000:[153]"LOAD":[151]BC,6:[151]BK,7:[151]CP,21:[151]SE,0
  92. 1010 [153][166]172)"STOPCONGRATULATIONS"
  93. 1020 [153][166]166)"STOPYOU HAVE COMPLETED LEVEL ";"";GL
  94. 1050 [153][166]244)"PUSH FIRE BUTTON  TO PLAY AGAIN"
  95. 1060 [146]56464,16,16:GL[178]GL[170]1:SC[178]0:DD[178]DD[170]1:[139]DD[177]8[167]DD[178]8
  96. 1070 [137]405
  97. 1299 [143]--SCORING ROUTINE
  98. 1300 SC[178]SC[170]5:[151]S[170]24,143:[129]M[178]0[164]40:[151]S,[181](M[173]2):[151]S[170]1,M:[130]M
  99. 1305 [151]S,0:[151]S[170]1,0:[151]S[170]24,0:[153]"ON                                   "
  100. 1306 [153]"ON"[163]8)"STOPSCORE: ";SC;"STOP    LEVEL: ";GL
  101. 1310 [139]SC[178]50[167]1000
  102. 1315 [139]SC[178][171]25[167]2000
  103. 1320 [151]V[170]30,0:[137]520
  104. 1330 SC[178]SC[171]5:[151]S[170]24,143:[129]M[178]40[164]0[169][171]1:[151]S,[181](M[173]2):[151]S[170]1,M:[130]M
  105. 1335 [137]1305
  106. 2000 [141]4000:[153]"LOAD":[151]BC,6:[151]BK,13:[151]CP,21:[151]SE,0
  107. 2005 [153]:[153]:[153]
  108. 2010 [153]"STOP     WAIT  STEP(null)WAIT   (null)STEP WAIT    WAIT      WAIT  WAIT  WAIT    WAIT   (null)WAIT"
  109. 2014 [153]"   WAIT * STEPWAITSTEP(null)(null)WAIT  WAIT(null)STEP WAIT  WAITTAN     WAIT  WAIT  WAIT  WAIT  WAITTAN   WAIT STEP"
  110. 2016 [153]"     WAIT  WAITFREFRE WAIT  WAIT   WAIT    WAIT      WAIT (null) WAITSTEP    WAIT  WAITFRE(null)WAIT"
  111. 2020 [153][166]168)"STOPYOUR FINAL SCORE IS ";"";SC
  112. 2025 [153][166]88)"STOPYOUR GAME LEVEL WAS ";"";GL
  113. 2030 [153][166]204)"PRESS FIRE BUTTON  TO PLAY AGAIN"
  114. 2035 [139]QQ[178]1[167]2070
  115. 2037 [151]S[170]24,143
  116. 2040 [135]LF,HF,DR:[139]LF[178][171]1[167]2060
  117. 2050 [151]S,LF:[151]S[170]1,HF:[129]T[178]1[164]DR:[130]:[137]2040
  118. 2060 [151]S,0:[151]S[170]1,0:[151]S[170]24,0
  119. 2070 [153]"ON    PRESS FIRE BUTTON  TO PLAY AGAIN":[129]T[178]1[164]150:[130]
  120. 2075 [139]([194](56320)[175]16)[178]0[167]2090
  121. 2080 [153]"ON    PRESS FIRE BUTTON  TO PLAY AGAIN":[129]T[178]1[164]200:[130]
  122. 2083 [139]([194](56320)[175]16)[178]0[167]2090
  123. 2086 [137]2070
  124. 2090 QQ[178]1:SC[178]0:GL[178]1:DD[178]5:[137]405
  125. 2499 [143]-INSTRUCTIONS
  126. 2500 [153]"LOAD":[151]BC,2:[151]BK,15
  127. 2505 [153]:[153]:[153]
  128. 2507 [153][163]7)"************************"
  129. 2510 [153][163]7)"* STOPGENERAL INSTRUCTIONS *"
  130. 2512 [153][163]7)"************************"
  131. 2520 [153][166]123)"STOPUSE JOYSTICK TO MOVE RIGHT OR LEFT"
  132. 2530 [153][166]85)"STOPCATCH FALLING COINS IN CART"
  133. 2540 [153][166]85)"STOPIF COIN HITS MAN,GAME WILL END"
  134. 2545 [153]:[153]:[153]
  135. 2550 [153][163]10)"ONPRESS F1 TO BEGIN":[129]T[178]1[164]150:[130]
  136. 2560 [161]A$
  137. 2570 [139]A$[178][199](133)[167]370
  138. 2575 [153][163]10)"ONSTOPPRESS F1 TO BEGINWAIT":[129]T[178]1[164]200:[130]
  139. 2580 [137]2550
  140. 3999 [143]--BLINKING ROUTINE
  141. 4000 R[178]53265:[129]N[178]1[164]5:[151]R,[194](R)[175]239
  142. 4010 [129]T[178]1[164]75:[130]T
  143. 4020 [151]R,[194](R)[176]16
  144. 4030 [129]T[178]1[164]50:[130]T:[130]N:[142]
  145. 4449 [143]--PROGRAMED CHARS
  146. 4450 [131]80,120,240,88,24,12,12,4
  147. 4460 [131]24,24,185,185,255,126,60,28
  148. 4470 [131]255,255,255,255,255,255,255,255
  149. 4480 [131]1,3,7,15,31,63,127,255
  150. 4490 [131]128,192,224,240,248,252,254,255
  151. 4500 [131]20,160,72,41,170,93,190,126
  152. 4510 [131]24,60,24,126,60,255,24,24
  153. 4520 [131]255,254,252,248,240,228,192,128
  154. 4530 [131]255,127,63,31,15,7,3,1
  155. 4599 [143]-RIGHT MOVES
  156. 4600 [131]173,0,220,41,8,201,0,240,1,96,173,21,208,41,63,201,24,240
  157. 4605 [131]13,173,21,208,41,64,9,24,141,21,208,24,144,10,173,21,208
  158. 4610 [131]41,64,9,40,141,21,208
  159. 4620 [131]173,0,208,24,105,4,141,0,208,141,8,208,141,10,208,24,105,24
  160. 4630 [131]141,2,208,141,4,208,141,6,208,173,0,208,201,232,240,5,201,252,240,32
  161. 4640 [131]96,169,14,13,16,208,141,16,208,169,0,141,2,208,141,4,208,141,6,208
  162. 4650 [131]169,232,141,0,208,141,8,208,141,10,208,96,169,63,13,16,208,141
  163. 4660 [131]16,208,169,0,141,0,208,141,8,208,141,10,208,169,24,141,2,208,141,4
  164. 4665 [131]208,141,6,208,96
  165. 4699 [143]--LEFT MOVES
  166. 4700 [131]173,0,220,41,4,201,0,240,1,96,173,21,208,41,63,201,3
  167. 4710 [131]240,13,173,21,208,41,64,9,3,141,21,208,24,144,10,173,21,208
  168. 4720 [131]41,64,9,5,141,21,208
  169. 4730 [131]173,0,208,56,233,4,141,0,208,141,8,208,141,10,208,24,105,24
  170. 4740 [131]141,2,208,141,4,208,141,6,208,173,0,208,201,0,240,5,201,232,240,32,96
  171. 4750 [131]169,78,45,16,208,141,16,208,169,252,141,0,208,141,8,208,141
  172. 4760 [131]10,208,169,20,141,2,208,141,4,208,141,6,208,96,169,64,45,16,208,141
  173. 4770 [131]16,208,169,228,141,0,208,141,8,208,141,10,208,169,252,141,2,208,141,4
  174. 4775 [131]208,141,6,208,96
  175. 4800 [131]173,21,208,9,64,141,21,208,169,25,141,13,208
  176. 4810 [131]165,252,141,12,208,96
  177. 4850 [131]173,21,208,41,63,141,21,208,96
  178. 4860 [131]173,21,208,41,63,141,21,208,96
  179. 5199 [143]--SPRITE 0
  180. 5200 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  181. 5210 [131]255,255,252,127,255,248,63,255,248,31,255,240,15,255,224,7,255,192
  182. 5220 [131]0,255,64,0,60,64,0,126,64,0,57,64,0,16,192,0
  183. 5299 [143]--SPRITE 1
  184. 5300 [131]7,0,0,15,128,0,15,128,0,15,128,0,7,240,0,1,248,0,1,252,0,7,254,0
  185. 5310 [131]31,255,128,127,255,128,124,63,128,0,31,192,0,31,192,0,55,192
  186. 5320 [131]0,123,224,0,120,240,0,56,120,0,28,56,0,14,30,0,15,14,0,63,62,0
  187. 5399 [143]--SPRITE 2 (ALTERNATE)
  188. 5400 [131]7,0,0,15,128,0,15,128,0,15,128,0,7,240,0,1,248,0,1,252,0,7,254
  189. 5410 [131]0,31,255,128,127,255,128,124,63,128,0,63,128,0,31,192,0,15,192
  190. 5420 [131]0,62,192,0,61,192,0,121,224,0,120,240,0,240,112
  191. 5430 [131]0,224,56,7,193,240,0
  192. 5499 [143]--SPRITE 3
  193. 5500 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  194. 5510 [131]63,255,255,31,255,254,31,255,252,15,255,248,7,255,240,3,255,224
  195. 5520 [131]2,255,0,2,60,0,2,126,0,2,188,0,3,8,0,0
  196. 5599 [143]--SPRITE4
  197. 5600 [131]0,0,224,0,1,240,0,1,240,0,1,240,0,15,224,0,31,128,0,63,128,0,127,224
  198. 5610 [131]1,255,248,1,255,240,1,252,60,1,248,0,3,248,0,3,240,0,7,236,0,15
  199. 5620 [131]222,0,31,30,0,28,56,0,56,112,0,112,224,0,124,252,0,0
  200. 5699 [143]--SPRITE 5 (ALTERNATE)
  201. 5700 [131]0,0,224,0,1,240,0,1,240,0,1,240,0,15,224,0,31,128,0,63,128,0,127,224
  202. 5710 [131]1,255,248,1,255,240,1,252,60,3,248,0,3,240,0,3,248,0,3,125,0
  203. 5720 [131]7,188,0,7,156,0,15,31,0,28,15,0,56,7,0,63,135,224,0
  204. 5739 [143]--SPRITE 6
  205. 5740 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0,0,126,0,0,255,0
  206. 5750 [131]0,255,0,0,255,0,0,126,0,0,60,0,0,24,0,0,0,0,0,0,0,0,0,0
  207. 5760 [131]0,0,0,0,0,0,0,0,0
  208. 5999 [143]--OPENING SONG
  209. 6000 [131]195,16,200,0,0,15,195,16,200,0,0,15,195,16,200,210,15,200
  210. 6010 [131]209,18,200,0,0,15,209,18,200,210,15,200,24,14,200,0,0,15
  211. 6020 [131]24,14,200,0,0,15,24,14,300,143,12,600,-1,-1,-1
  212. 6099 [143]--CLOSING TUNE
  213. 7100 [131]209,18,250,31,21,250,165,31,250,30,25,250,49,28,300
  214. 7110 [131]209,18,500,31,21,250,30,25,600,-1,-1,-1
  215.