home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / BANK-HEIST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.3 KB  |  166 lines
  1. 0 :::::  :::::            :::::  :::::     :::::  ::::: (null) TO 10 :::::  :::::
  2. 1 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  3. 2 "[184]"                              "[184]"    "[184]"   A VERY OLD PUBLIC DOMAIN   "[184]"
  4. 3 "[184]"                              "[184]"    "[184]"  GAME, COMPLETELY MADE OVER  "[184]"
  5. 4 "[184]"                              "[184]"    "[184]"        BY  JIM GREEN         "[184]"
  6. 5 "[184]"                              "[184]"    "[184]"    WHO REALLY DOSN'T KNOW    "[184]"
  7. 6 "[184]"                              "[184]"    "[184]"          ANY BETTER.         "[184]"
  8. 7 "[184]"                              "[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  9. 8 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]" .
  10. 10 REM SAVE THE BANK  PARSEC GAMES DISK#3
  11. 15 POKE53280,2:POKE53281,2:PRINT"[147][142][152]";:POKE53265,11:GOSUB 675
  12. 20 PRINT""TAB(10)"[150]INSTRUCTIONS  Y/N":POKE53265,27
  13. 25 GETG$:IFG$<>"Y"ANDG$<>"N"THEN25
  14. 30 IFG$="N"THEN155
  15. 35 POKE53265,11:PRINT"[147][150]  BANKERSVILLE WAS A QUIET TOWN UNTIL
  16. 40 [153]"   EACH BANK RECEIVED 1000 GOLDBARS.
  17. 45 PRINT"THIS MADE THEM VERY POPULAR WITH CROOKS.
  18. 50 [153]"   ROBBERS ARE STEALING GOLD FROM THE
  19. 55 PRINT" BANKS. THEY WILL POP UP IN THE WINDOWS
  20. 60 [153]"TO SEE IF THE COAST IS CLEAR. WHEN THEY
  21. 65 PRINT"HAVE TAKEN ALL THEY CAN CARRY THEY WILL
  22. 70 [153]"TAKE IT DOWN TO ONE OF THEIR TWO TRUCKS
  23. 75 PRINT"      WHICH ARE PARKED OUT FRONT.
  24. 80 [153]"  USE THE JOYSTICK IN PORT ONE TO MOVE
  25. 85 PRINT"  THE CROSSHAIR OF YOUR GUN AND PRESS
  26. 90 [153]"SYS        PRESS <SPACE> TO GO ON":[151]53265,27
  27. 95 [161]G$:[139]G$[179][177]" "[167] 95
  28. 100 [151]53265,11:[153]"LOADDEFTHE FIRE BUTTON TO 'KABOOM THEM SUCKAS',
  29. 105 PRINT"     IN THE BANK OR IN THE TRUCKS.
  30. 110 [153]"IF YOU SHOOT A ROBBER WHILE HE IS AT ONE
  31. 115 PRINT"  OF THE TRUCKS, IT IS WORTH TWO HITS.
  32. 120 [153]"AFTER A WHILE WHEN YOU HAVE HIT SEVERAL
  33. 125 PRINT"ROBBERS THEY WILL GET PANICKY, TURN RED
  34. 130 [153]" AND MOVE MUCH FASTER. IF YOU SAVE ONE
  35. 135 PRINT"BANK YOU CAN GO ON TO SAVE MORE OR QUIT
  36. 140 [153]" IF YOU'RE SICK AND TIRED OF THIS MESS!
  37. 145 PRINT"[158]     PRESS <SPACE> TO GO CATCH 'EM":POKE53265,27
  38. 150 GETG$:IFG$<>" "THEN150
  39. 155 POKE650,  0:V=53248:POKE2042,13:POKE2043,14
  40. 160 FORG=0TO62:READQ:POKE832+G,Q:NEXT
  41. 165 FORG=0TO62:READQ:POKE896+G,Q:NEXT
  42. 170 DIMF(20),X(20):FORG=1TO16:READF(G),X(G):NEXT:CM=40:HM=30:BK=0:BR=0:MN=0
  43. 175 SS=13:A=100:D=120:S=54272:POKES+5,0:W=RND(-TI)
  44. 177 FORT=STOS+23:POKET,0:NEXT:GOSUB665
  45. 180 PRINT"[147]":POKE53265,11:GOSUB 675:PRINT""TAB(7)"[159]LEVEL 1 = 15 BANK ROBBERS
  46. 185 [153][163]7)"SYSLEVEL 2 = 30 BANK ROBBERS
  47. 190 PRINTTAB(7)"[154]LEVEL 3 = 42 BANK ROBBERS
  48. 195 [153][163]7)" DEFWHICH LEVEL  1, 2, OR 3":[151]53265,27:[151]198,0
  49. 200 [161]G$:[139]G$[179]"1"[176]G$[177]"3"[167]200
  50. 205 [139]G$[178]"1"[167]CM[178]13:HM[178]20
  51. 210 [139]G$[178]"2"[167]CM[178]28:HM[178]25
  52. 215 [139]G$[178]"3"[167]CM[178]40:HM[178]30
  53. 220 [141] 635
  54. 225 [153]"     THERE ARE"CM"ROBBERS TO CATCH
  55. 230 PRINT"              AT BANK #"BK:FORG=0TO3E3:NEXT
  56. 235 POKE53280,2:POKE53281,0:GOSUB 360
  57. 240 PRINT""TAB(21)"[158]HIGH REWARD [150]$"HR
  58. 245 PRINT"[150]BANK #"BK
  59. 250 W=INT(RND(1)*15)+1
  60. 255 POKEV+30,0:POKEV+6,F(W):POKEV+7,X(W):POKEV+4,A:POKEV+5,D
  61. 260 J=PEEK(56321)
  62. 265 IFJ=247THENA=A+SS
  63. 270 IFJ=251THENA=A-SS
  64. 275 IFJ=254THEND=D-SS
  65. 280 IFJ=253THEND=D+SS
  66. 285 IFJ=239THEN300
  67. 290 IFTI$=A$THEN475
  68. 295 GOSUB330:GOTO255
  69. 300 GOSUB665:P=PEEK(V+30):IFP<>12THENC=C+1:GOTO672
  70. 305 IFF(W)=193ORX(W)=193THENMN=MN+1
  71. 310 MN=MN+1:PRINT""TAB(25)"[159]CROOKS HIT="MN
  72. 315 IFMN>HMTHENA$="000001":POKEV+42,2:SS=18
  73. 320 TI$="000000"
  74. 325 GOTO 250
  75. 330 IFA<20THENA=20
  76. 335 IFA>=230THENA=230
  77. 340 IFD>200THEND=200
  78. 345 IFD<40THEND=40
  79. 350 IFMN=CMTHENPOKEV+21,0:GOTO490
  80. 355 RETURN
  81. 360 PRINT"[147]":PRINT"[151][182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][146][151][181]"
  82. 365 PRINT"[180]       CITY BANK       [167]
  83. 370 [153]"POKESGNCOSWAIT    WAIT   LOGCOSWAIT   LOGCOSWAIT    WAIT   LOGTHEN"
  84. 375 [153]"SGN WAIT    WAIT     WAIT     WAIT    WAIT    THEN"
  85. 380 [153]"FN WAIT    WAIT     WAIT     WAIT    WAIT    THEN"
  86. 385 [153]"SGN                       THEN"
  87. 390 [153]"SGN WAIT    WAIT     WAIT     WAIT    WAIT    THEN"
  88. 395 [153]"SGN WAIT    WAIT     WAIT     WAIT    WAIT    THEN"
  89. 400 [153]"SGN WAIT    WAIT     WAIT     WAIT    WAIT    THEN"
  90. 405 [153]"SGN         *ANDANDANDRND         THEN"
  91. 410 [153]"SGN WAIT    WAIT    THENDEFORTAN^POKEFN WAIT    WAIT    THEN"
  92. 415 [153]"SGN WAIT    WAIT    THENDEF/TANEXPPOKEFN WAIT    WAIT    THEN"
  93. 420 [153]"SGN WAIT    WAIT    THENDEF  'POKEFN WAIT    WAIT    THEN"
  94. 425 [153]"SGN         THENDEF:::POKEFN         THEN"
  95. 430 [153]"POKE(null)USR(null)USR(null)USR(null)USR(null)USR(null)USRUSRUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
  96. 435 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  97. 440 [153]"PRINT#ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
  98. 445 [153]"  VERIFYTAB(TAB(TAB(POKEFREFREWAITPRINT#           POKEFREFREVERIFYTAB(TAB(TAB(WAIT   "
  99. 450 [153]"PRINT#TAB(TAB(VERIFYTOTOTOPOKEPOSPOSWAITPRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKEPOSPOSVERIFYTOTOTOWAITPRINT#TAB(TAB(
  100. 455 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  101. 460 POKE53280,0:POKE53281,0
  102. 465 POKEV+41,12:POKEV+42,3:POKEV+21,12
  103. 470 TI$="000000":A$="000002":RETURN
  104. 475 BR=BR+10:PRINT""TAB(25)"[150]STOLEN BARS"BR
  105. 480 IFBR=1000THEN 585
  106. 485 TI$="000000":GOTO250
  107. 490 RW=(1000-BR)*10
  108. 495 FORG=1TO500:NEXT
  109. 500 PRINT"[147][158]  CONGRATULATIONS...YOU SHOT ALL THE"
  110. 505 PRINT"   ROBBERS AND RECOVERED"BR"STOLEN
  111. 510 [153]"   GOLD BARS. FOR THIS, THE BANK HAS"
  112. 515 [153]"      GIVEN YOU A $"RW"REWARD"
  113. 520 [153][163]15)"WELL DONE!!":[151]198,0:[129]G[178]1[164]4E3:[130]
  114. 525 [153]"";
  115. 530 [153]"DEFTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  116. 535 [153]"FLASH-OPENANOTHER GOLD ROBBERY AT BANK #"BK[170]1
  117. 540 [153]"DEFTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
  118. 545 [129]G[178]1[164][181]([187](1)[172]250)[170]40:[130]:[141] 665
  119. 550 [153]"ONONONPRINTFLASH-SYSANOTHER GOLD ROBBERY AT BANK #"BK[170]1
  120. 555 [129]G[178]1[164][181]([187](1)[172]250)[170]40:[130]:[141] 665
  121. 560 [153]" PRESS <SPACE> TO FOIL ANOTHER ROBBERY
  122. 565 PRINT"[158]"TAB(11)"PRESS <F1> TO END
  123. 570 [161]G$:[139]G$[179][177]" "[175]G$[179][177]"INPUT"[167] 525
  124. 575 [139]G$[178]"INPUT"[167][128]
  125. 580 [137] 635
  126. 585 [153]"LOAD":[151]53265,11:[141] 675:[151]V[170]21,0
  127. 590 [153][163]15)"GAME OVER"
  128. 595 [153][163]15)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[141] 665
  129. 600 [153]"OPEN   THE CROOKS GOT AWAY WITH THE GOLD"
  130. 605 [153]"     YOU EARNED $"HR"IN REWARDS"
  131. 610 [153]"          YOU REACHED BANK";BK
  132. 612 [153]"SYS    YOU MISSED THE ROBBERS"C"TIMES.
  133. 614 IFC>CMTHENPRINT"    MAYBE YOU SHOULD PRACTICE MORE!
  134. 615 [153]"        WANT TO PLAY AGAIN  Y/N":[151]53265,27
  135. 620 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167] 620
  136. 625 [139]G$[178]"N"[167][141] 665:[128]
  137. 630 [141] 665:[138]155
  138. 635 [129]K[178]1[164]500:[130]
  139. 640 SS[178]13:MN[178]0:BR[178]0
  140. 645 HM[178]HM[171]5:CM[178]CM[170]2:BK[178]BK[170]1:HR[178]PR[170]RW:PR[178]HR
  141. 650 [139] HM[179][178]0[167]HM[178]0
  142. 655 [137]225
  143. 660 [143]  GUNFIRE
  144. 665 [129]XZ[178]15[164]0[169][171]2:[151]S[170]24,XZ:[151]S[170]4,129:[151]S[170]5,15
  145. 670 [151]S[170]1,40:[151]S,0:[130]:[151]S[170]4,0:[142]
  146. 672 [153]""[163]25)"MISSED SHOTS"C:[137]290
  147. 675 [153]"SYS ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ ";
  148. 680 [153]" (null)   THENUSR(null)THENUSR(null)THENUSR(null)THEN THEN    THEN THENTHENUSR(null)THEN (null)(null) (null)(null)FN   (null) ";
  149. 685 [153]" (null)   THENANDSQRTHENANDSQRTHEN THENTHENAND(null)    THENANDSQRTHENAND + (null)AND  FN    (null) ";
  150. 690 [153]" (null)   THENANDSQRTHEN THENTHEN THENTHEN (null)    THEN THENTHENANDSQRTHEN ANDSQR  FN    (null) ";
  151. 695 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP ":[142]
  152. 700 [143] CROSS-HAIR SPRITE
  153. 705 [131] 0,255,0,1,255,128,3,153,192,7,24,224,14,24,112,28,24,56,56,24,28
  154. 710 [131] 112,24,14,224,24,7,224,60,7,255,255,255,224,60,7,224,24,7
  155. 715 [131] 112,24,14,56,24,28,28,24,56,14,24,112
  156. 720 [131] 7,24,224,3,153,192,1,255,128,0,255,0
  157. 725 [143] **  CROOK SPRITE
  158. 730 [131] 0,66,0,1,60,128,4,255,32,3,253,192,23,251,232,15,247,240,24,0,24
  159. 735 [131] 0,231,0,16,132,8,28,0,56,15,231,240,7,231,224,7,231,224,7,195,224
  160. 740 [131] 7,255,224,7,0,224,6,60,96,3,255,192,0,255,128,0,0,0,0,0,0
  161. 745 [143] SPRITE POSITION
  162. 750 [131]37,193,181,193
  163. 755 [131]40,143,72,143,152,143,184,143
  164. 760 [131]40,111,72,111,112,111,152,111,184,111
  165. 765 [131]40,79,72,79,112,79,152,79,184,79
  166.