home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SAVE-THE-BANK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  134 lines
  1. 5 POKE650,120
  2. 20 V=53248
  3. 40 POKE2042,13:POKE2043,14
  4. 50 FORG=0TO62:READ  Q:POKE832+G,Q:NEXT
  5. 60 FORG=0TO62:READ  Q:POKE896+G,Q:NEXT
  6. 70 DIMF(20),X(20)
  7. 80 FORG=1TO16
  8. 90 READF (G),X(G)
  9. 100 NEXT G
  10. 110 CMN=40:HMN=30:BK=1
  11. 120 BR=0:MN=0
  12. 130 SS=13:A=100:D=120
  13. 135 GOSUB7000
  14. 140 PRINT"[147]"
  15. 150 PRINT"THIEVES TO CATCH=";CMN
  16. 160 FORG=0TO1000:NEXT
  17. 170 GOSUB 2000
  18. 180 PRINT"HIGH REWARD= ";HRW
  19. 185 PRINT"BANK=";BK
  20. 190 W=INT(RND(1)*15)+1
  21. 200 POKEV+30,0:POKEV+6,F(W):POKEV+7,X(W)
  22. 210 POKEV+4,A:POKEV+5,D
  23. 220 J=PEEK(56321)
  24. 230 IFJ=247 THENA=A+SS
  25. 240 IFJ=251 THENA=A-SS
  26. 250 IF J=254 THEN D=D-SS
  27. 260 IF J=253 THEN D=D+SS
  28. 270 IF J=239 THEN 500
  29. 280 IFTI$=A$THENGOTO4000
  30. 290 GOSUB 1000
  31. 300 GOTO 200
  32. 500 GOSUB 9000
  33. 530 P=PEEK(V+30):IFP<>12THEN280
  34. 560 MN=MN+1:PRINT"CROOKS HIT=";MN
  35. 570 IFMN>HMNTHENA$="000001":POKEV+42,2:SS=18
  36. 580 TI$="000000"
  37. 590 GOTO 190
  38. 1000 REM CHECK
  39. 1010 IFA<20THENA=20
  40. 1020 IFA>=230THENA=230
  41. 1030 IF D>200THEND=200
  42. 1040 IF D<40THEND=40
  43. 1050 IFMN=CMNTHENPOKEV+21,0:GOTO5000
  44. 1060 RETURN
  45. 2000 PRINT"[147]":PRINT"[170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  46. 2010 PRINT"[180]       CITY BANK       [170]"
  47. 2020 PRINT"[180][185][183][175][185][183][175]  [185][183][175]  [185][183][175][185][183][175][170]"
  48. 2030 PRINT"[180][180][170][180][170]  [180][170]  [180][170][180][170][170]"
  49. 2040 PRINT"[180][182][175][171][182][175][171]  [182][175][171]  [182][175][171][182][175][171][170]"
  50. 2050 PRINT"[180]                       [170]"
  51. 2060 PRINT"[180][185][183][175][185][183][175]  [185][183][175]  [185][183][175][185][183][175][170]"
  52. 2070 PRINT"[180][180][170][180][170]  [180][170]  [180][170][180][170][170]"
  53. 2080 PRINT"[180][182][175][171][182][175][171]  [182][175][171]  [182][175][171][187][187][175][171][170]"
  54. 2090 PRINT"[180]                       [170]"
  55. 2100 PRINT"[180][185][183][175][185][183][175][185][183][175][185][183][175][170]"
  56. 2110 PRINT"[180][180][170][180][170][180]   [170][180][170][180][170][170]"
  57. 2120 PRINT"[180][182][175][171][182][175][171][180]   [170][182][175][171][171][182][175][171][170]"
  58. 2130 PRINT"[180]         [180]   [170]         [170]"
  59. 2150 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]"
  60. 2160 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]"
  61. 2170 PRINT"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][171]"
  62. 2180 PRINT"[163][163][191][191][191][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][191][191][191][163][163]"
  63. 2190 PRINT"[163][163][191][191][191][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][191][191][191][163][163]"
  64. 2200 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]"
  65. 2210 POKE53280,14:POKE53281,1
  66. 2220 POKEV+41,6:POKEV+42,5
  67. 2230 POKEV+21,12
  68. 2240 TI$="000000":A$="000002"
  69. 2900 RETURN
  70. 4000 BR=BR+10:PRINT"STOLEN BARS";BR
  71. 4010 IFBR=1000THEN6000
  72. 4030 TI$="000000"
  73. 4040 GOTO 190
  74. 5000 REOB CA
  75. 5005 RW=(1000-BR)*10
  76. 5007 FORG=1TO500:NEXT
  77. 5010 PRINT"[147]":PRINT"CONGRADULATIONS...YOU HIT ALL THE":PRINT
  78. 5020 PRINT"ROBBERS WITH THEM ONLY STEALING";BR:PRINT
  79. 5030 PRINT"GOLD BARS.FOR THIS THE BANK HAS":PRINT
  80. 5040 PRINT"GIVEN YOU A /";RW;"REWARD":PRINT
  81. 5050 PRINT"WELL DONE":PRINT
  82. 5055 PRINT"FLASH-ANOTHER GOLD ROBBERY"
  83. 5065 PRINT"PRESS 'F1'"
  84. 5070 GOSUB 7500
  85. 5075 GOTO 8000
  86. 5080 END
  87. 6000 REM GOLD STOLEN
  88. 6001 POKE53281,1
  89. 6005 PRINT"[147]":POKEV+21,0
  90. 6010 PRINT"GAME OVER"
  91. 6030 PRINT"[163][163][163][163][163][163][163][163][163]":PRINT
  92. 6045 PRINT"THE CROOKS GOT AWAY WITH THE GOLD":PRINT
  93. 6050 PRINT"YOU EARNED /";HRW;"IN REWARDS":PRINT
  94. 6055 PRINT"YOU REACHED BANK";BK
  95. 6060 PRINT"WANT TO PLAY AGAIN(Y/N)?"
  96. 6070 GETB$:IFB$="Y"THENRUN
  97. 6080 IF B$="N"THENEND
  98. 6090 GOTO6070
  99. 7000 REM INTER
  100. 7010 PRINT"[147]"
  101. 7030 PRINT"INTSRUCTIONS":PRINT"[183][183][183][183][183][183][183][183][183][183][183][183]"
  102. 7040 PRINT"BANKERSVILLE WAS A QUEIT TOWN UNTIL"
  103. 7050 PRINT"EACH OF IT'S BANK RECEIVED 1000 GOLDBARS"
  104. 7360 PRINT"JOYSTICK- PORT 1        ..GOOD LUCK":GOSUB7500
  105. 7370 RETURN
  106. 7490 END
  107. 7500 GETB$:IFB$="[133]"THENRETURN
  108. 7511 FORK=1TO2300:NEXTK
  109. 8010 SS=13:MN=0:BR=0
  110. 8020 HMN=HMN-5:CMN=CMN+2:BK=BK+1:HRW=PRW+RW:PRW=HRW
  111. 8030 IF HMN<=0THENHMN=0
  112. 8040 PRINT"[147]"
  113. 8050 GOTO 140
  114. 8999 REM SOUNDS
  115. 9000 VL=54296:WA=54276:AT=54277:H=54272:L=54273
  116. 9010 FORG=15TO10STEP-1:POKEVL,G:POKEWA,33:POKEAT,8:POKEH,1:POKEL,18:NEXT
  117. 9050 POKEWA,0:POKEAT,0:POKEL,0
  118. 9080 RETURN
  119. 10000 REM CROSS
  120. 10030 DATA0,24,0,0,60,0,0,126,0,0,126,0,0,126,0,0,126,0,0,126,0,255,255,255
  121. 10040 DATA255,255,255,255,255,255,255,255,255
  122. 10045 DATA255,255,255,0,126,0,0,126,0,0,126,0
  123. 10050 DATA0,126,0,0,126,0,0,60,0,0,24,0
  124. 10060 DATA0,0,0,0,0,0
  125. 10065 REM DATA
  126. 10070 DATA0,126,0,0,255,0,0,0,0,31,255,248,0,255,128,0,255,192,1,255,192
  127. 10080 DATA3,255,192,3,255,192,1,255,128,0,127,128,0,127,0,1,255,0
  128. 10090 DATA1,255,0,1,255,0,0,31,0,0,15,0,0,0,0,0,0,0,0,0,0,0,0,0
  129. 10099 REM UPDATE
  130. 10100 DATA37,193,181,193
  131. 10110 DATA40,143,72,143,152,143,184,143
  132. 10120 DATA40,111,72,111,112,111,152,111,184,111
  133. 10130 DATA40,79,72,79,112,79,152,79,184,79,-1
  134.