home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / DEEPSEA-FISHER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.6 KB  |  239 lines
  1. 1 PRINT"[147]":FORJ=828TO848:READR:POKEJ,R:NEXT:GOSUB550
  2. 2 FORJ=12288TO12288+(14*64):READD:POKEJ,D:NEXT
  3. 3 V=53248:S=54272:M=2:POKE53281,6:POKE53280,6
  4. 4 DATA173,,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
  5. 5 GOSUB3000:GOSUB500:GOTO40
  6. 7 U=U-((G+3)*ABS(PEEK(V+3)>80))
  7. 8 RETURN
  8. 9 U=U+((G+3)*ABS(PEEK(V+3)<220))
  9. 10 RETURN
  10. 11 L=L-((G+3)*ABS(PEEK(V+2)>25))
  11. 12 RETURN
  12. 13 L=L-((2+G)*ABS(PEEK(V+2)>25)):U=U-((2+G)*ABS(PEEK(V+3)>80))
  13. 14 RETURN
  14. 15 L=L-((2+G)*ABS(PEEK(V+2)>25)):U=U+((2+G)*ABS(PEEK(V+3)<220))
  15. 16 RETURN
  16. 17 L=L+((G+3)*ABS(PEEK(V+2)<240))
  17. 18 RETURN
  18. 19 L=L+((2+G)*ABS(PEEK(V+2)<240)):U=U-((2+G)*ABS(PEEK(V+3)>80))
  19. 20 RETURN
  20. 21 L=L+((2+G)*ABS(PEEK(V+2)<240)):U=U+((2+G)*ABS(PEEK(V+3)<220))
  21. 22 RETURN
  22. 23 G=ABS(G-3):PRINT"[155]SLOW":IFG=3THENPRINT"FAST"
  23. 24 RETURN
  24. 40 SYS828
  25. 41 ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23,23,23,8,23,8,8,8,23
  26. 44 POKEV+2,HP+L:POKEV+3,VP+U
  27. 45 POKE2041,203+A:A=A+.4:POKE1913,73+E:E=ABS(E-12):IFA>2THENA=0
  28. 46 POKEV,FH-F:F=F+2+H:IFF>248THENGOSUB80:IFFF=0ANDRND(1)<.2THENFF=1:GOSUB150
  29. 48 POKE2040,192+B:B=B+.5:IFB>2THENB=0
  30. 50 IFPEEK(V+30)=0THENONINT(RND(1)*8)GOSUB100,200:PK=PEEK(V+30)
  31. 55 IFPEEK(V+30)>0THENGOSUB300:PK=PEEK(V+30):POKEV+21,255
  32. 60 IFRND(1)<.1THENPOKES+8,8-I:I=ABS(I-2):POKES+11,21:POKES+11,20:POKES+1107,I
  33. 70 GOTO40
  34. 72 FORJ=1907TO1267STEP-40:POKES+J,1:POKEJ,81:POKES+J-41,1:POKEJ-41,46
  35. 73 POKEJ,32:POKEJ-41,32:POKE2040,197+C:C=ABS(C-4)
  36. 74 POKES+8,W:W=W+4:POKES+11,17:POKES+11,16
  37. 75 NEXT:F=FH-PEEK(V):RETURN
  38. 80 F=0:H=0:GA=GA+1:FORJ=1TO3:POKES+11,17:POKES+8,40-(J*10):FORT=1TO50:NEXT
  39. 81 IFCH=1THENCH=0:FF=0:POKEV+29,2:POKEV+39,14:POKEV+21,255
  40. 82 POKES+11,16:NEXT:POKEV+1,(RND(1)*120)+85:PRINT"[159]"TAB(235)GA
  41. 83 IFDD=1THENPOKEV+21,252:PRINT"[155]TOO BAD":GOTO600
  42. 84 IFGA>9THENPRINT"[155]NOT QUITE":GOTO600
  43. 85 SC=SC-5:PRINT""TAB(30)"[155]         "TAB(30)"SCORE"SC
  44. 86 BF=0:POKEV+29,2
  45. 88 POKEV+27,Q:Q=ABS(Q-1):RETURN
  46. 90 POKE2040,192+B:B=B+.5:IFB>2THENB=0
  47. 91 POKEV,PEEK(V+2)+30*ABS(PEEK(V+2)<235):HT=HT+1:GOSUB180
  48. 92 POKEV+1,PEEK(V+3)+10
  49. 93 POKES+24,0:POKES+24,31
  50. 94 POKEV+3,PEEK(V+3)+4*ABS(PEEK(V+1)<240)
  51. 95 IFPEEK(V+1)>224THENPOKEV+21,253:PK=PEEK(V+30):H=1:DD=1:GOSUB72:RETURN
  52. 96 POKE2041,203+A:A=A+.4:IFA>2THENA=0
  53. 97 GOTO90
  54. 100 SYS828
  55. 101 ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23,23,23,8,23,8,8,8,23
  56. 102 POKEV+2,HP+L:POKEV+3,VP+U
  57. 104 POKE2041,203+A:A=A+.4:POKE1914,73+E:IFA>2THENA=0
  58. 106 POKEV,FH-F-H:F=F+2+H:POKEV+1,PEEK(V+1)+1+H
  59. 107 IFF>248THENGOSUB80:IFFF=0ANDRND(1)<.4THENFF=1:GOSUB150
  60. 110 POKE2040,195+B:B=B+.5:IFB>1THENPOKE1907,81+X:X=ABS(X-6):B=0
  61. 112 IFPEEK(V+30)>0THENGOSUB300:PK=PEEK(V+30):POKEV+21,255
  62. 115 IFRND(1)>.9ORPEEK(V+1)>210THENRETURN
  63. 120 GOTO100
  64. 150 U=0:L=0:POKEV+39,0:POKEV+29,3:PK=PEEK(V+30):POKEV,240:POKEV+2,HP:POKEV+3,VP
  65. 151 FORJ=2TO3:POKES+8,J:POKES+11,33:FORT=1TO200:NEXT:NEXT:POKES+11,32
  66. 152 SYS828
  67. 153 ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23,23,23,8,23,8,8,8,23
  68. 154 IFFF=1ANDPEEK(V+30)>0THENGOTO90
  69. 155 POKE1915,32-((PEEK(1914)=85)*43):IFRND(1)<.2THENPOKE1914,73+E1
  70. 156 POKEV+2,HP+(L*2)-G:POKEV+3,VP+(U*2)-G
  71. 157 POKE2041,203+A:A=A+1:IFA>2THENA=0
  72. 158 POKE2040,192+B:B=B+.5:IFB>2THENB=0
  73. 159 IFRND(1)<.2THENPOKE1915,32-((PEEK(1914)=85)*43):POKE1913,73+E1:E1=ABS(E1-12)
  74. 160 POKE1912,32-((PEEK(1913)=73)*42)
  75. 161 POKEV,PEEK(V)+4+(8*(PEEK(V)>PEEK(V+2)))
  76. 162 POKEV+1,PEEK(V+1)+4+(8*(PEEK(V+1)>PEEK(V+3)))
  77. 163 IFCH=1THENRETURN
  78. 165 IFPEEK(V+31)AND1=1THENGOSUB250
  79. 175 GOTO152
  80. 180 ONHTGOTO181,182,183,184
  81. 181 FORJ=13004TO13016STEP3:POKEJ,0:POKEJ+53,0:POKEJ+128,0:NEXT:GOTO185
  82. 182 FORJ=13019TO13025:POKEJ,0:POKEJ+53,0:POKEJ+128,0:NEXT:GOTO185
  83. 183 FORJ=12993TO13009:POKEJ,0:POKEJ+64,0:POKEJ+128,0:NEXT:GOTO185
  84. 184 FORJ=13026TO13031:POKEJ,0:POKEJ+64,0:POKEJ+128,0:NEXT
  85. 185 RETURN
  86. 190 POKEV+16,254:POKEV+2,0:G=0:L=2:U=0:F=FH-PEEK(V)
  87. 191 SYS828:ONPEEK(3)GOSUB7,9,8,11,13,15,
  88. 192 POKEV+2,PEEK(V+2)+L:POKEV+3,PEEK(V+3)+U
  89. 193 IFPEEK(V+2)>100THENPOKEV+16,252:POKEV+2,40:POKEV+40,14:POKEV+3,VP:RETURN
  90. 194 POKE2041,203+A:A=A+.5:IFA>2THENA=0
  91. 195 POKEV,FH-F
  92. 196 POKE2040,192+B:B=B+.5:IFB>2THENB=0
  93. 199 GOTO191
  94. 200 SYS828
  95. 201 ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23,23,23,8,23,8,8,8,23
  96. 202 POKEV+2,HP+L:POKEV+3,VP+U
  97. 204 POKE2041,203+A:A=A+.4:POKE1913,73+E:E=ABS(E-12):IFA>2THENA=0
  98. 206 POKEV,FH-F:F=F+2+H:POKEV+1,PEEK(V+1)-1-H
  99. 207 IFF>248THENGOSUB80:IFBF=0ANDRND(1)<.4THENBF=1:POKEV,FH:POKEV+29,3
  100. 210 POKE2040,199+B:B=B+.5:IFB>1THENB=0
  101. 212 IFPEEK(V+30)>0THENGOSUB300:PK=PEEK(V+30):POKEV+21,255
  102. 215 IFRND(1)>.9THENRETURN
  103. 217 IFPEEK(V+1)<88THENPOKES+4,129:FORT=1TO30:NEXT:POKES+4,128:RETURN
  104. 220 GOTO200
  105. 250 IFPEEK(V)<70ORPEEK(V+1)>225THENRETURN
  106. 252 IFPEEK(V)>95ORPEEK(V+1)<215THENRETURN
  107. 255 IFPEEK(1912)=74ANDPEEK(1915)=75THEN280
  108. 270 RETURN
  109. 280 FORJ=1TO40:POKEV+39,J:POKES+24,0:POKES+24,31:POKE2040,197+C:C=ABS(C-4)
  110. 282 NEXT:POKEV+21,253
  111. 285 CH=1:POKEV+39,3:POKEV+29,2:FF=0:POKEV+29,2:POKEV+39,14:F=0:FF=0:POKEV,FH
  112. 286 FORJ=1912TO1915:POKEJ,32:NEXT
  113. 290 POKEV+21,255:SC=SC+20:RETURN
  114. 300 IFABS(PEEK(V+1)-PEEK(V+3))>2ORPEEK(V)-PEEK(V+2)<25THENRETURN
  115. 302 L=0:U=0:KP=PEEK(V+31)
  116. 303 SYS828
  117. 304 ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23,23,23,8,23,8,8,8,23
  118. 305 IFRND(1)<HT/100THENGOSUB350:RETURN
  119. 306 POKEV+2,PEEK(V+2)-1+L-(RND(1)*6+(BF*3)):IFRND(1)>.6THENPOKE1370,74+O
  120. 307 POKEV+3,PEEK(V+3)+2+U+(RND(1)*6+(BF*3)):POKES+18,32
  121. 308 POKE2040,197+C:C=ABS(C-4):POKEV+39,RND(1)*15:O=ABS(O-11):POKES+18,33
  122. 309 IFRND(1)<.04THENPOKES+8,8-I:I=ABS(I-2):POKES+11,21:POKES+11,20:POKES+1107,I
  123. 310 POKEV,PEEK(V+2)+6:POKEV+1,PEEK(V+3):IFRND(1)<.3THENPOKE1571,74+O
  124. 311 IFPEEK(V+31)>0THENGOSUB350:RETURN
  125. 312 IFPEEK(V)>200ANDPEEK(V+1)<85THENRETURN
  126. 313 IFPEEK(V+2)>226THENPOKEV+16,253:POKEV,10:GOSUB400:RETURN
  127. 314 POKES+18,33:POKES+18,32
  128. 320 POKE2041,203+A:A=A+.5:IFA>2THENA=0:POKE1914,73+E:E=ABS(E-12)
  129. 325 GOTO303
  130. 350 FORJ=1TO3:POKES+24,0:POKES+24,31:NEXT:POKEV+39,ABS(14*(FF=0))
  131. 351 IFRND(1)>.5ANDBF=1THENHT=HT+1:GOSUB180:CH=1
  132. 352 POKEV,PEEK(V)-5:POKEV+1,PEEK(V+1)+5
  133. 353 F=FH-PEEK(V):H=H+1
  134. 355 U=PEEK(V+3)-VP:L=PEEK(V+2)-HP:RETURN
  135. 400 POKES+1,15:POKES+4,129:POKE1417,77:POKE1537,78:POKEV+39,14+(11*(BF=1))
  136. 401 POKES+4,128:POKES+1,75
  137. 402 U=0:L=0:SYS828:ONPEEK(3)GOSUB7,9,8,11,13,15,8,17,19,21,8,8,8,8,8,23
  138. 403 POKEV+2,PEEK(V+2)+L:POKEV+3,PEEK(V+3)+U
  139. 404 POKE2041,203+A:A=A+.4:IFA>2THENA=0
  140. 405 POKEV,PEEK(V)+3
  141. 406 IFPEEK(V)>100THENPOKEV+21,254:POKEV+16,252:POKEV,240:F=0:GOSUB450:H=0:RETURN
  142. 408 POKE2040,197+C:C=ABS(C-4)
  143. 409 IFRND(1)<.3THENPOKE1914,73+E:E=ABS(E-12)
  144. 410 IFRND(1)<.3THENPOKE1913,73+E:POKE1294,74+P:P=ABS(P-11)
  145. 411 GOTO402
  146. 450 FORJ=1TO3+FF:POKES+8,J*10:POKES+11,17:FORT=1TO50:NEXT:POKES+11,16:NEXT
  147. 451 POKEV+29,2:POKEV+39,14:POKEV+M+2,50:POKEV+3+M,226-N:N=N+12:XX=XX+(FF*5)
  148. 452 POKEV+40+(M/2),14+(11*(BF=1)):M=M+2
  149. 453 POKE1417,116:POKE1537,116:SC=SC+10+(BF*10)
  150. 454 PRINT""TAB(30)"[155]         "TAB(30)"SCORE"SC
  151. 455 FF=0:IFM>12THENPRINT"WINNER":GOTO600
  152. 456 POKEV+1,(RND(1)*130)+85:BF=0
  153. 460 U=PEEK(V+3)-VP:L=PEEK(V+2)-HP:RETURN
  154. 500 POKES+21,0:POKES+22,9:POKES+23,224:POKES+24,31:POKES+1,75
  155. 504 POKES+5,138:POKES+6,42:POKES+7,78:POKES+8,13:POKES+9,180:POKES+10,6
  156. 507 POKES+12,18:POKES+13,139:POKES+15,2:RETURN
  157. 550 PRINT"[155]CATCH 6 TO WIN...LURE BLACK":PRINT"TO ZAPP[155] TO ELIMINATE HIM."
  158. 552 PRINT"ZAPP MUST BE FULLY OPEN TO EAT.":PRINT"BIG BLUE CAN TEAR YOUR NET."
  159. 553 PRINT"FISH MUST BE IN CLEAR AREA TO":PRINT"CATCH AND HOLD."
  160. 554 PRINT"SLIDE YOUR CATCH INTO HOLD.":PRINT"USE BUTTON FOR SWIM SPEED";
  161. 555 PRINT" CAREFULLY.":PRINT"[159]BUTTON TO BEGIN":FORT=1TO500:NEXT
  162. 558 SYS828:IFPEEK(3)<>16THEN558
  163. 560 PRINT"[147]ONE MOMENT...":RETURN
  164. 600 PRINT"BUTTON TO REPLAY"
  165. 602 SYS828:IFPEEK(3)<>16THEN602
  166. 604 IFHT>0THENRUN
  167. 605 RUN3
  168. 1000 DATA,,,,,,,,,,,,,,,,,,,,,,28,1,,248,7,15,254
  169. 1001 DATA 30,63,255,249,239,255,255,63,255,254,255,255,240,3,239,128,,96,,0
  170. 1002 DATA 48,,,,,,,,,,,,,,53,,,,,,,,,,,,,,,,,12,,,28,,,56,,7,254,,63
  171. 1003 DATA 255,128,239,255,225,63,255,243,255,255,254,15,248,252,,112,28,,56
  172. 1004 DATA 15,,28,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,12,,,56,,0
  173. 1005 DATA 120,1,31,255,131,63,255,231,239,255,254,63,255,252,255,255,30,7,248
  174. 1006 DATA 15,,56,,,28,,,14,,,7,,,,,,,,
  175. 1010 DATA ,,,,,24,,,24,,,63,,,248,,1,240,1,15,240,3,63,224,7
  176. 1011 DATA 255,192,7,255,128,15,255,0,31,254,0,55,248,0,127,240,0,222,120,0,56
  177. 1012 DATA 60,,96,14,,,,,,,,,,,,,,63,,,,,,8,,,24,,,120
  178. 1013 DATA 0,1,254,0,3,224,4,15,224,6,63,192,7,255,128,7,255,0,15,254,0,31,248,0
  179. 1014 DATA 55,252,,127,255,,222,,,56,,,96,,,,,,,,,,,,,,,63
  180. 1015 DATA ,,,,,,,,,,,,,,,,,,,,2,96,12,6,188,28,14,215,252
  181. 1016 DATA 28,127,248,62,63,255,255,31,255,249,15,255,224,3,255,128,1,224,0,0
  182. 1017 DATA 224,,,112,,,48,,,,,,,,63,,,,,,,,,,,,,,,,0
  183. 1018 DATA ,,,,,96,,,60,,,23,255,,255,252,,31,255,192,15,255,227,7
  184. 1019 DATA 255,254,1,255,248,1,192,252,,192,62,,64,3,,,,,,,,,,63,0
  185. 1020 DATA ,,,,,,,,,,,96,,,48,,,222,,,123,255,,63,252,,31,254
  186. 1021 DATA 0,7,255,0,3,255,128,1,255,192,1,191,224,1,143,240,0,193,240,0,0,248,0
  187. 1022 DATA ,63,,,28,,,12,,,4,63,,,,,,,,,,48,,,24,,,206,,0
  188. 1023 DATA 127,,,59,192,,31,255,,15,254,,7,255,,3,255,128,3,255,192,1,191
  189. 1024 DATA 240,1,143,248,,129,255,,,60,,,24,,,12,,,4,,,,63,,,,0
  190. 1025 DATA ,,,,,,96,,,224,,1,224,,3,255,128,15,255,224,31,255,249,55
  191. 1026 DATA 255,255,127,248,62,223,252,28,188,28,14,96,12,6,,,2,,,,,,,,0
  192. 1027 DATA ,,,,,,,,,,63,,,,,,,,,,,96,,,224,,1,224,1,3
  193. 1028 DATA 255,3,15,255,254,31,255,249,55,255,254,127,255,240,223,252,0,188,28,0
  194. 1029 DATA 96,12,,,,,,,,,,,,,,,,,,,,,,,0
  195. 1500 DATA 0,15,248,0,57,16,0,100,32,1,145,64,2,42,0,28,128,64,42,41,0,72
  196. 1501 DATA 128,128,130,42,0,144,0,128,68,169,0,48,2,128,10,167,128,6,9,152,1,240
  197. 1502 DATA 216,0,0,208,0,56,252,0,14,62,0,7,59,0,57,249,0,255,240,62,0,15,254,0
  198. 1503 DATA 49,16,0,212,40,0,128,128,31,90,32,36,128,128,66,42,80,136,128,0,162
  199. 1504 DATA 41,80,148,64,64,64,169,0,74,64,32,32,149,128,25,12,48,7,254,48,0,227
  200. 1505 DATA 224,0,49,243,3,155,218,1,143,142,0,254,0,0,56,0
  201. 1506 DATA,,,,,,,0,31,252,0,228,8,7
  202. 1507 DATA 18,160,28,164,8,98,34,160,132,148,0,194,32,128,40,146,32,130,72,128
  203. 1508 DATA 148,20,32,65,33,64,42,68,49,24,149,50,14,12,38,7,247,252,3,1,240,0
  204. 1509 DATA 255,240,3,255,192,6,0,,,
  205. 3000 POKEV+16,252:FORJ=4TO14STEP2:POKEV+J,J*15:POKEV+J+1,250:NEXT
  206. 3001 FORJ=2042TO2047:POKEJ,201:NEXT:FORJ=41TO46:POKEV+J,14:NEXT
  207. 3010 POKEV+29,2:POKEV+40,15:POKEV+39,14
  208. 3012 POKEV,255:POKEV+1,100:POKEV+2,50:POKEV+3,220:POKE2041,203
  209. 3020 HP=75:VP=200:FH=252
  210. 5065 PRINT"[147]";
  211. 5075 PRINT"[155]                                        ";
  212. 5085 PRINT"                        uk              ";
  213. 5095 PRINT"   [146]q                                    ";
  214. 5105 PRINT"  n m                      uk           ";
  215. 5115 PRINT"  vvv                          [146][169][151] [155]vvvvvvv";
  216. 5125 PRINT"[146] [155]                   [152] [163][152][183][183][183][183][163][163][152][183][183][183][151]  [159][146]ESCAPED";
  217. 5135 PRINT"                              [202][151]  [154][146]       ";
  218. 5145 PRINT"                           [213][201][213][201][151]  [154][146]       ";
  219. 5155 PRINT"                          [213][203][202][203][202][151]  [154][146]       ";
  220. 5165 PRINT"                                 [152][180][154] [202][195][195]> ";
  221. 5175 PRINT"                                        ";
  222. 5185 PRINT"                                        ";
  223. 5195 PRINT"                                 [152][180][154] [213][195][195]> ";
  224. 5205 PRINT"                           [213][201] [213][151]  [155][146][196][196][196][196][196][196][196]";
  225. 5215 PRINT"                     [155]       [202][201][213][151]  [155][146] [159]CATCH[155] ";
  226. 5225 PRINT"                             [202][203][151]  [154][146]       ";
  227. 5235 PRINT"                               [151]  [154][146]       ";
  228. 5245 PRINT"                             [202][203][151]  [154][146]       ";
  229. 5255 PRINT"                            [213][201][213][151]  [154][146]       ";
  230. 5265 PRINT"        [159] [154]           [159]  [154]   [159].[154]   [202][203][151]  [154][146]       ";
  231. 5275 PRINT"               [154]    [213][203][154]     [159].[154] [159].[154]  [151]  [154][146]       ";
  232. 5285 PRINT" [213][154]               [201][213][202][201][154] [201][154]  [159].[154]     [151]  [154][146]       ";
  233. 5295 PRINT" [202][201]  [201][154]        [213] [213][203][202][201][202][201][202][201][159].[154] [213][203][213][154]  [151]  [154][146]       ";
  234. 5305 PRINT" [213][203] [146][213][203][201][159].[155][169]  [223][159][146] .[202][201][202][201][213][203][213][203][213][203][201][213][203][159].[202][201][154] [151]  [154][146]       ";
  235. 5315 PRINT"        ZAPP                   [151]  [154][146] [155][214][214][214][214][214][154]";
  236. 5317 FORJ=1224TO1944STEP40:POKEJ,92:POKES+J,12:NEXT
  237. 5320 POKE53280,14:POKES+1913,1:POKES+1914,1:POKES+1907,3
  238. 5325 POKES+1912,1:POKES+1915,1:PRINT"[155]SLOW":POKEV+21,255:POKE2040,192:RETURN
  239.