home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SNUFF (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.8 KB  |  300 lines
  1. 5 T=0
  2. 10 POKE53281,0:POKE53280,0:POKE646,T
  3. 12 PRINT"[147]SNUFF"
  4. 13 IFT=1THENGOSUB11500
  5. 14 PRINT"BY JOE SWEELY"
  6. 15 T=T+1:FORDE=1TO100:NEXTDE:  IFT=255THENT=0
  7. 16 GETA$:IFA$=""THEN10
  8. 17 POKE646,1
  9. 18 PRINT"[147]YOU ARE A WORM WITHOUT A HEART."
  10. 19 PRINT"YOU MUST COLLECT YOUR HEARTS FROM THE"
  11. 21 PRINT"WIZARD'S MAZE WHO STOLE YOUR HEARTS"
  12. 22 PRINT"FROM YOU."
  13. 23 PRINT"USE JOYSTICK IN PORT 1"
  14. 25 PRINT"TRY NOT TO HIT THE WALLS OR YOU WILL"
  15. 27 PRINT"LOSE ONE LIFE.YOU HAVE 3 LIVES IN ALL"
  16. 28 GOTO700
  17. 29 PRINT"HIT ANY KEY TO START"
  18. 31 GETA$:IFA$=""THEN31
  19. 100 REM INTIALIZE
  20. 102 L=3:X=0:W=1506:SC=0:TI$="000000":MO=1
  21. 104 JOY=56321:IFX>5THEN600
  22. 105 TI$="000000"
  23. 106 PRINT"[147]":X=X+1:ONXGOTO5071,5110,5149,5187,5226,600
  24. 108 PRINT"[145][145][145][145][145][145][145][145][145][145]"
  25. 109 H=0
  26. 110 IFPEEK(JOY)=254THENMO=-40
  27. 112 IFPEEK(JOY)=253THENMO=+40
  28. 114 IFPEEK(JOY)=251THENMO=-1
  29. 116 IFPEEK(JOY)=247THENMO=+1
  30. 118 IFH>=16THENPOKE1462,32:POKE1463,32:POKE1502,32:POKE1503,32
  31. 120 IFH>=16ANDW=1462ORW=1463ORW=1502ORW=1503THEN500
  32. 121 DU=MO+W
  33. 122 IFPEEK(DU)<>83ANDPEEK(DU)<>32THEN400
  34. 123 IFPEEK(DU)=83THENSC=SC+10:H=H+1
  35. 125 FORLOOP=1TOLV:NEXTLOOP
  36. 126 IFX>=4THEN8000
  37. 127 IFX<3THENPRINT"";SC;"";VAL(TI$)
  38. 128 IFX=3THENPRINT"";SC;"";VAL(TI$)
  39. 130 W=W+MO:POKEW,81 :POKEW+54272,5:GOSUB1000
  40. 136 GOTO110
  41. 400 GOSUB5000
  42. 402 PRINT"[147]YOU MESSED UP
  43. 403 [129]T[178]1[164]250:[130]T
  44. 404 L[178]L[171]1:[139]L[179][178]0[167]410
  45. 406 X[178]X[171]1:W[178]1506:MO[178][170]1
  46. 407 [137]104
  47. 410 [153]"GAME OVER!"
  48. 411 [153]"FINAL SCORE";SC[172]X
  49. 412 [153]"SCREENS CLEARED";X[171]1
  50. 413 [153]"AGAIN ?"
  51. 414 [161]A$:[139]A$[178]""[167]414
  52. 415 [139]A$[178]"Y"[167]18
  53. 416 [139]A$[179][177]"N"[167]414
  54. 417 [128]
  55. 500 [153]"LOADYOU CLEARED SCREEN ";X
  56. 501 SC[178]SC[171][197](TI$)
  57. 503 [153]"SCORE=";SC[172]X:W[178]1506:MO[178][170]1
  58. 504 [129]T[178]1[164]500:[130]T:[137]104
  59. 600 [153]"LOADYOU DID IT !!!"
  60. 602 [153]"YOU COMPLETED ALL OF THE MAZES!!"
  61. 604 [153]"CONGRATULATIONS,YOUR AN EXCELLENT"
  62. 605 [153]"SNUFFSTER!!!"
  63. 606 [153]"FINAL SCORE";SC[172]X
  64. 608 [129]T[178]1[164]255:[151]53281,T:[130]T
  65. 610 [128]
  66. 700 [153]"PICK LEVEL(1-EASY 5-HARD)"
  67. 710 [161]A$:[139]A$[178]""[167]710
  68. 720 [139][197](A$)[179]1[176][197](A$)[177]5[167]710
  69. 730 [139][197](A$)[178]1[167]LV[178]50
  70. 732 [139][197](A$)[178]2[167]LV[178]40
  71. 734 [139][197](A$)[178]3[167]LV[178]25
  72. 736 [139][197](A$)[178]4[167]LV[178]10
  73. 738 [139][197](A$)[178]5[167]LV[178]1
  74. 740 [137]29
  75. 1000 [151]54276,0:[151]54277,0:[151]54272,0
  76. 1002 [151]54296,2:[151]54277,128:[151]54276,33
  77. 1004 [151]54273,32:[151]54272,75:[142]
  78. 5000 [129]QW[178]54272[164]54272[170]24:[151]QW,0:[130]QW
  79. 5010 [151]54296,15:[151]54295,0
  80. 5020 R[178]54272:[151]R[170]6,240
  81. 5030 [151]R[170]1,4:[151]R[170]5,0:[151]R[170]4,33
  82. 5040 [129]Z[178]1024[164]512[169][171]8
  83. 5050 [151]R[170]1,Z[173]256:[151]R,Z[175]255
  84. 5060 [130]Z
  85. 5070 [151]R[170]4,0:[142]
  86. 5071 [153]"          SNUFF BY JOE SW";
  87. 5072 [153]"EELY                     ";
  88. 5073 [153]"  OPENSCORE:     TIME:       ";
  89. 5074 [153]"                  THE ENT";
  90. 5075 [153]"RANCE                WAIT    ";
  91. 5076 [153]"                         ";
  92. 5077 [153]"           WAIT              ";
  93. 5078 [153]"                         ";
  94. 5079 [153]" WAIT                        ";
  95. 5080 [153]"                WAIT         ";
  96. 5081 [153]" WAIT     WAIT     WAIT     WAIT     WAIT    ";
  97. 5082 [153]"      WAIT          WAIT     WAIT    ";
  98. 5083 [153]" WAIT     WAIT     WAIT          WAIT    ";
  99. 5084 [153]"      WAIT     WAIT     WAIT     WAIT    ";
  100. 5085 [153]" WAIT          WAIT          WAIT    ";
  101. 5086 [153]" WAIT     WAIT     WAIT     WAIT         ";
  102. 5087 [153]" WAIT          WAIT     WAIT     WAIT    ";
  103. 5088 [153]" WAIT     WAIT       u  WAIT         ";
  104. 5089 [153]" WAIT ss  WAIT ss  WAIT ss  WAIT ss  WAIT    ";
  105. 5090 [153]"   j  WAIT                   ";
  106. 5091 [153]"             WAIT        WAIT    ";
  107. 5092 [153]"      WAIT ss  WAIT ss  WAIT ss  WAIT ss ";
  108. 5093 [153]" WAIT          WAIT          WAIT    ";
  109. 5094 [153]" WAIT     WAIT     WAIT     WAIT         ";
  110. 5095 [153]" WAIT          WAIT     WAIT     WAIT    ";
  111. 5096 [153]" WAIT     WAIT          WAIT         ";
  112. 5097 [153]" WAIT     WAIT     WAIT     WAIT     WAIT    ";
  113. 5098 [153]"      WAIT          WAIT     WAIT    ";
  114. 5099 [153]" WAIT     WAIT     WAIT          WAIT    ";
  115. 5100 [153]"      WAIT     WAIT     WAIT     WAIT    ";
  116. 5101 [153]" WAIT          WAIT              ";
  117. 5102 [153]"                         ";
  118. 5103 [153]" WAIT                        ";
  119. 5104 [153]"                WAIT         ";
  120. 5105 [153]"                         ";
  121. 5106 [153]"                         ";
  122. 5107 [153]"                    WAIT     ";
  123. 5108 [153]"                         ";
  124. 5109 [153]"          ";:[137]108
  125. 5110 [153]"          SNUFF BY JOE SW";
  126. 5111 [153]"EELY                     ";
  127. 5112 [153]"  OPENSCORE:     TIME:       ";
  128. 5113 [153]"                    THE H";
  129. 5114 [153]"OLE                  WAIT    ";
  130. 5115 [153]"                         ";
  131. 5116 [153]"           WAIT              ";
  132. 5117 [153]"                         ";
  133. 5118 [153]" WAIT                        ";
  134. 5119 [153]"      WAIT          WAIT         ";
  135. 5120 [153]"                     WAIT    ";
  136. 5121 [153]"      WAIT                   ";
  137. 5122 [153]"           WAIT          WAIT    ";
  138. 5123 [153]"                      WAIT   ";
  139. 5124 [153]" WAIT          WAIT        WAIT      ";
  140. 5125 [153]"            WAIT    WAIT         ";
  141. 5126 [153]" WAIT        WAIT                ";
  142. 5127 [153]"  WAIT    WAIT       u  WAIT        WAIT ";
  143. 5128 [153]"              WAIT   WAIT    WAIT    ";
  144. 5129 [153]"   j  WAIT        WAIT   WAITssssssss";
  145. 5130 [153]"       WAIT    WAIT          WAIT    ";
  146. 5131 [153]"    WAIT   WAITssssssss       WAIT   ";
  147. 5132 [153]" WAIT          WAIT        WAIT      ";
  148. 5133 [153]"            WAIT    WAIT         ";
  149. 5134 [153]" WAIT        WAIT                ";
  150. 5135 [153]"      WAIT          WAIT        WAIT ";
  151. 5136 [153]"                     WAIT    ";
  152. 5137 [153]"      WAIT                   ";
  153. 5138 [153]"           WAIT          WAIT    ";
  154. 5139 [153]"                         ";
  155. 5140 [153]"           WAIT              ";
  156. 5141 [153]"                         ";
  157. 5142 [153]" WAIT                        ";
  158. 5143 [153]"                WAIT         ";
  159. 5144 [153]"                         ";
  160. 5145 [153]"                         ";
  161. 5146 [153]"                    WAIT     ";
  162. 5147 [153]"                         ";
  163. 5148 [153]"          ";:[137]108
  164. 5149 [153]"          SNUFF BY JOE SW";
  165. 5150 [153]"EELY                     ";
  166. 5151 [153]"  OPENSCORE:     TIME:       ";
  167. 5152 [153]"                    THE M";
  168. 5153 [153]"AZE                  WAIT    ";
  169. 5154 [153]"                         ";
  170. 5155 [153]"           WAIT              ";
  171. 5156 [153]"                         ";
  172. 5157 [153]" WAIT                        ";
  173. 5158 [153]"                WAIT     WAIT    ";
  174. 5159 [153]"                    WAIT     ";
  175. 5160 [153]"      WAIT     WAIT   WAIT      WAIT     ";
  176. 5161 [153]" WAIT      WAITss WAIT           WAIT    ";
  177. 5162 [153]" WAIT   WAIT      WAIT      WAIT      WAIT   ";
  178. 5163 [153]"WAIT           WAIT     WAIT   WAIT   WAIT   ";
  179. 5164 [153]"WAIT   WAIT   WAIT   WAIT   WAIT   WAIT          ";
  180. 5165 [153]" WAIT     WAIT   WAIT   WAITss WAIT   WAIT   WAIT   WAIT ";
  181. 5166 [153]"  WAIT   WAIT        u  WAIT     WAITss WAIT ";
  182. 5167 [153]"  WAIT   WAIT   WAIT   WAIT   WAIT   WAIT   WAIT     ";
  183. 5168 [153]"   j  WAIT     WAIT   WAITss WAIT   WAIT   WAITss";
  184. 5169 [153]" WAITss WAIT   WAIT   WAIT           WAIT    ";
  185. 5170 [153]" WAIT   WAIT   WAIT   WAIT   WAIT   WAIT   WAIT   WAIT   ";
  186. 5171 [153]"WAIT           WAIT     WAIT   WAIT   WAIT   ";
  187. 5172 [153]"WAIT   WAIT   WAIT   WAITss WAIT   WAIT          ";
  188. 5173 [153]" WAIT     WAIT   WAIT   WAIT   WAITss WAIT   WAIT   WAIT ";
  189. 5174 [153]"  WAIT   WAIT           WAIT     WAIT    ";
  190. 5175 [153]"  WAIT      WAIT      WAIT      WAIT     ";
  191. 5176 [153]"      WAIT     WAIT      WAIT      WAIT  ";
  192. 5177 [153]"    WAIT      WAIT           WAIT    ";
  193. 5178 [153]"                         ";
  194. 5179 [153]"WAIT           WAIT              ";
  195. 5180 [153]"                         ";
  196. 5181 [153]" WAIT                        ";
  197. 5182 [153]"                WAIT         ";
  198. 5183 [153]"                         ";
  199. 5184 [153]"                         ";
  200. 5185 [153]"                    WAIT     ";
  201. 5186 [153]"ONONONONONONON":[137]108
  202. 5187 [153]"            OPENSCORE:     TI";
  203. 5188 [153]"ME:                      ";
  204. 5189 [153]"     THE CELLS           ";
  205. 5190 [153]"      WAIT                   ";
  206. 5191 [153]"                     WAIT    ";
  207. 5192 [153]"      WAIT                   ";
  208. 5193 [153]"      WAIT     WAIT    WAITss ss WAIT    ";
  209. 5194 [153]"               WAITss ss WAIT    ";
  210. 5195 [153]" WAIT    WAIT      WAIT              ";
  211. 5196 [153]"     WAIT      WAIT     WAIT    WAITCLOSECLOSECLOSE  ";
  212. 5197 [153]" WAIT                   WAIT     ";
  213. 5198 [153]" WAIT     WAIT     WAIT     WAIT         ";
  214. 5199 [153]"           WAIT     WAIT     WAIT    ";
  215. 5200 [153]"                         ";
  216. 5201 [153]"           WAIT              ";
  217. 5202 [153]"             WAIT          u ";
  218. 5203 [153]" WAIT                        ";
  219. 5204 [153]"   WAIT          j  WAIT         ";
  220. 5205 [153]"                         ";
  221. 5206 [153]"      WAIT     WAIT     WAIT         ";
  222. 5207 [153]"           WAIT     WAIT     WAIT    ";
  223. 5208 [153]"WAIT      WAIT                   ";
  224. 5209 [153]"WAIT      WAIT     WAIT    WAIT      WAIT    ";
  225. 5210 [153]"               WAIT      WAIT    ";
  226. 5211 [153]" WAIT    WAITss ss WAIT              ";
  227. 5212 [153]"     WAITss ss WAIT     WAIT         ";
  228. 5213 [153]" WAIT                        ";
  229. 5214 [153]" WAIT     WAIT                   ";
  230. 5215 [153]"                     WAIT    ";
  231. 5216 [153]"                         ";
  232. 5217 [153]"           WAIT              ";
  233. 5218 [153]"                         ";
  234. 5219 [153]" WAIT                        ";
  235. 5220 [153]"                         ";
  236. 5221 [153]"                         ";
  237. 5222 [153]"     WAIT                    ";
  238. 5223 [153]"                         ";
  239. 5224 [153]"                         ";
  240. 5225 [153]"          ";:[137]108
  241. 5226 [153]"            OPENSCORE:     TI";
  242. 5227 [153]"ME:                      ";
  243. 5228 [153]"       FINALE            ";
  244. 5229 [153]"      WAIT  ss        WAITss WAIT    ";
  245. 5230 [153]"      WAITss WAIT      ss    WAIT    ";
  246. 5231 [153]"        WAIT   WAIT          WAIT   WAIT ";
  247. 5232 [153]"           WAIT      WAIT      WAIT  ";
  248. 5233 [153]" WAIT          WAIT   WAIT        WAIT   ";
  249. 5234 [153]" WAIT   WAIT         WAIT   WAIT         ";
  250. 5235 [153]" WAIT   WAIT        WAIT    WAIT   WAIT      ";
  251. 5236 [153]"                         ";
  252. 5237 [153]"  WAIT    WAIT                   ";
  253. 5238 [153]"                     WAIT    ";
  254. 5239 [153]"     WAIT                    ";
  255. 5240 [153]"   WAIT        WAIT         WAIT     ";
  256. 5241 [153]"           WAIT       WAIT     u ";
  257. 5242 [153]" WAIT               WAIT         ";
  258. 5243 [153]"        WAIT     j  WAIT         ";
  259. 5244 [153]"WAIT                WAIT       WAIT  ";
  260. 5245 [153]"      WAIT         WAIT          ";
  261. 5246 [153]"             WAIT        WAIT    ";
  262. 5247 [153]"                         ";
  263. 5248 [153]"           WAIT              ";
  264. 5249 [153]"                         ";
  265. 5250 [153]" WAIT                        ";
  266. 5251 [153]"                WAIT   WAIT      ";
  267. 5252 [153]"                         ";
  268. 5253 [153]"  WAIT    WAIT   WAIT         WAIT   WAIT    ";
  269. 5254 [153]"      WAIT   WAIT        WAIT    WAIT    ";
  270. 5255 [153]"  WAIT      WAIT   WAIT          WAIT   WAIT ";
  271. 5256 [153]"       WAIT    WAIT            WAIT  ";
  272. 5257 [153]" WAIT          WAIT   WAIT           ";
  273. 5258 [153]" WAIT  ss        WAITss WAIT         ";
  274. 5259 [153]" WAITss WAIT      ss             ";
  275. 5260 [153]"                         ";
  276. 5261 [153]"     WAIT                    ";
  277. 5262 [153]"                         ";:[137]108
  278. 8000 [153]"";SC;"";[197](TI$)
  279. 8002 [137]130
  280. 11500 Z[178]54272
  281. 11504 [129] L[178]0 [164] 24:[151] Z[170]L,0:[130]
  282. 11506 [151] Z[170]3,8:[151] Z[170]5,41:[151] Z[170]6,89:[151] Z[170]14,117:[151] Z[170]18,16
  283. 11508 [151] Z[170]24,143
  284. 11510 [135] FR,DR
  285. 11512 [139] FR[178]0 [167]11540
  286. 11514 [151] Z[170]4,65
  287. 11516 [129] T[178]1 [164] DR[172]2
  288. 11518 FQ[178]FR[170][194](Z[170]27)[173]2
  289. 11520 HF[178][181](FQ[173]256):LF[178]FQ [175] 255
  290. 11522 [151] Z[170]0,LF:[151] Z[170]1,HF
  291. 11524 [130]
  292. 11526 [151] Z[170]4,64
  293. 11527 [129]T[178]1[164]25:[130]T
  294. 11528 [137] 11510
  295. 11540 [129] L[178]0 [164] 24:[151] Z[170]L,0:[130]
  296. 11560 [142]
  297. 11792 [131] 4817,2,5103,2,5407,2,8583,4,5407,2,8583,4
  298. 11794 [131] 5407,4,8583,12,9634,2,10207,2,10814,2,8583,2
  299. 11796 [131] 9634,4,10814,2,8583,2,9634,4,8583,12,0,0
  300.