home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SALMONRUNNER.PLR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.6 KB  |  168 lines
  1. 30 POKE56,48:POKE52,48:CLR
  2. 35 IFPEEK(16375)=8THEN700
  3. 38 PRINT"[147]REPAIRING MACHINE LANGUAGE..."
  4. 40 POKE53265,27:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:FORI=.TO79
  5. 42 POKE14720+I,PEEK(53632+I):NEXT:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
  6. 44 FORI=53104TO53151:POKEI,1:NEXT
  7. 45 I=.:Z=.
  8. 46 READA:IFA<0THEN48
  9. 47 POKE49152+I,A:Z=Z+A:I=I+1:GOTO46
  10. 48 IFZ<>160018THENPRINT"ERROR IN CODE DATA":STOP
  11. 49 I=.:Z=.
  12. 50 READA:IFA<0THEN52
  13. 51 POKE53152+I,A:Z=Z+A:I=I+1:GOTO50
  14. 52 IFZ<>4625THENPRINT"ERROR IN VARIABLE DATA":STOP
  15. 53 I=.:Z=.
  16. 54 READA:IFA<0THEN56
  17. 55 POKE14336+I,A:Z=Z+A:I=I+1:GOTO54
  18. 56 IFZ<>55366THENPRINT"ERROR IN CHARACTER DATA":STOP
  19. 57 I=.:Z=.
  20. 58 READA:IFA<0THEN60
  21. 59 POKE15936+I,A:Z=Z+A:I=I+1:GOTO58
  22. 60 IFZ<>25190THENPRINT"ERROR IN SPRITE DATA":STOP
  23. 62 GOTO700
  24. 100 REM*****SET-UP PLAYFIELD*****
  25. 105 POKE53265,11
  26. 110 PRINT"[147]":POKE53280,5:POKE53281,3:POKE53269,.:POKE53270,PEEK(53270)OR16
  27. 120 POKE53272,30:POKE53275,.:POKE53276,3:POKE53282,1:POKE53283,.:POKE53285,1
  28. 130 POKE53286,.:POKE53287,6:POKE53288,11
  29. 140 FORI=56136TO56295:POKEI,14:NEXT:FORI=55656TO55659:POKEI,14:POKEI+40,14:NEXT
  30. 150 FORI=55692TO55695:POKEI,8:POKEI+40,8:NEXT
  31. 160 POKE1234,36:POKE1235,37:POKE1274,38:POKE1275,39:POKE55506,1:POKE55507,1
  32. 170 POKE55546,1:POKE55547,1:POKE1211,36:POKE1212,37:POKE1251,38:POKE1252,39
  33. 180 POKE55483,1:POKE55484,1:POKE55523,1:POKE55524,1
  34. 190 FORI=1384TO1387:POKEI,I-1363:NEXT:FORI=1424TO1426:POKEI,I-1399:NEXT
  35. 200 FORI=1420TO1423:POKEI,I-1392:NEXT:FORI=1461TO1463:POKEI,I-1428:NEXT
  36. 210 FORI=1864TO1882:POKEI,40:POKEI+40,40:POKEI+80,40:NEXT
  37. 220 FORI=1984TO2023:POKEI,40:NEXT
  38. 230 POKE52992,140:POKE52993,140:POKE52994,96:POKE52995,240:POKE52996,.
  39. 240 POKE52997,.:Z=PEEK(53278):FORI=53072TO53103:POKEI,.:NEXT:POKE53036,.
  40. 250 POKE53269,3:POKE53037,.
  41. 260 POKE53211,255:POKE53212,255:POKE53213,12:POKE54296,79:POKE54294,55
  42. 270 POKE54295,129:POKE54277,128:POKE54278,240:POKE54276,129:POKE54273,255
  43. 280 POKE54284,128:POKE54285,240:POKE54283,17:POKE1025,48:POKE1026,48:POKE1061,48
  44. 290 POKE1062,48:POKE55297,6:POKE55298,6:POKE55333,.:POKE55334,.:POKE53044,.
  45. 300 POKE53045,.:POKE53265,27
  46. 500 SYS50237
  47. 510 PRINT"[147]":POKE53272,21:FORI=54272TO54296:POKEI,.:NEXT:POKE53281,6
  48. 515 L=PEEK(53044):R=PEEK(53045):POKE53269,.
  49. 520 IFL>HSTHENHS=L
  50. 522 IFR>HSTHENHS=R
  51. 525 IFL>RTHENPRINTTAB(08)"THE LEFT (BLUE) PLAYER WON!":GOTO535
  52. 527 IFL<RTHENPRINTTAB(08)"THE RIGHT (BLACK) PLAYER WON!":GOTO535
  53. 530 PRINTTAB(16)"IT'S A TIE!"
  54. 535 PRINTTAB(15)"LEFT SCORE="L:PRINTTAB(14)"RIGHT SCORE="R
  55. 540 FORI=1TO5000:NEXT
  56. 700 POKE53280,5:POKE53281,3:PRINT"[147]":PRINTTAB(15)"[144]SALMON RUN"
  57. 705 PRINTTAB(19)"BY":PRINTTAB(15)"RODNEY MCKEAN":PRINT"HIGH SCORE= "HS
  58. 707 PRINTTAB(12)"PRESS F1 TO PLAY"
  59. 710 POKE53248,174:POKE53249,210:POKE53264,.:POKE53269,1:POKE53287,6:X(3)=253
  60. 712 POKE53276,1:POKE53285,1:POKE53286,.:A=10:B=.:X(.)=254:X(1)=253:X(2)=252
  61. 714 GETZ$:IF Z$="" THEN 714
  62. 716 IF Z$="[133]" THEN 100
  63. 718 A=10:B=B+1:IFB=4THENB=.
  64. 720 POKE2040,X(B):GOTO714
  65. 999 REM****CODE DATA****
  66. 1000 DATA133,169,134,140,132,141,166,169,202,16,2,166,169,198,139,208,247,173
  67. 1002 DATA18,208,133,139,138,72,166,140,164,141,104,96,254,14,207,208,3,254,17
  68. 1004 DATA207,189,17,207,240,21,189,14,207,201,88,208,14,169,.,157,84,207,173
  69. 1006 DATA21,208,61,172,207,141,21,208,96,173,4,207,141,46,207,173,.,208,141,47
  70. 1008 DATA207,173,1,208,141,48,207,208,18,173,5,207,141,46,207,173,2,208,141,47
  71. 1010 DATA207,173,3,208,141,48,207,173,46,207,221,17,207,208,17,173,47,207,56,253
  72. 1012 DATA14,207,176,2,73,255,201,24,176,36,144,31,173,46,207,208,11,173,47,207
  73. 1014 DATA56,253,14,207,144,20,176,9,189,14,207,56,237,47,207,144,9,73,255,201
  74. 1016 DATA24,176,3,169,1,96,169,.,96,206,49,207,208,59,206,128,207,208,54,169
  75. 1018 DATA4,141,128,207,206,129,207,173,129,207,106,162,2,176,17,189,187,207,32
  76. 1020 DATA45,196,189,190,207,157,131,7,189,193,207,208,15,189,196,207,32,54,196
  77. 1022 DATA189,199,207,157,131,7,189,202,207,157,171,7,202,16,216,206,130,207,240
  78. 1024 DATA1,96,169,160,32,182,196,173,87,207,240,16,169,.,141,87,207,141,51,207
  79. 1026 DATA169,7,141,50,207,141,89,207,173,89,207,240,35,206,50,207,16,7,169,.,141
  80. 1028 DATA89,207,240,16,174,50,207,173,51,207,208,5,189,205,207,208,3,189,212,207
  81. 1030 DATA141,7,212,141,8,212,96,173,88,207,240,250,169,.,141,88,207,169,1,208
  82. 1032 DATA191,162,1,222,112,207,240,3,76,36,194,189,80,207,208,11,189,82,207,208
  83. 1034 DATA3,169,48,44,169,88,44,169,18,157,112,207,189,80,207,240,20,189,.,207
  84. 1036 DATA201,197,208,7,169,.,157,80,207,240,6,254,.,207,76,246,193,188,.,220
  85. 1038 DATA152,41,1,208,10,189,.,207,201,69,240,3,222,.,207,152,41,2,208,10,189
  86. 1040 DATA.,207,201,197,240,3,254,.,207,152,41,4,208,25,189,4,207,208,7,189,2,207
  87. 1042 DATA201,24,240,13,222,2,207,189,2,207,201,255,208,3,222,4,207,152,41,8,208
  88. 1044 DATA20,189,4,207,240,7,189,2,207,201,64,240,8,254,2,207,208,3,254,4,207,152
  89. 1046 DATA41,16,208,10,189,.,207,201,102,176,3,157,80,207,222,114,207,208,15,169
  90. 1048 DATA8,157,114,207,222,116,207,16,5,169,3,157,116,207,188,116,207,189,80,207
  91. 1050 DATA240,4,169,255,208,3,185,160,207,157,248,7,138,10,168,189,2,207,153,.
  92. 1052 DATA208,189,.,207,153,1,208,172,16,208,189,4,207,240,6,152,29,164,207,208
  93. 1054 DATA4,152,61,166,207,141,16,208,202,48,3,76,61,193,96,162,2,189,84,207,208
  94. 1056 DATA56,206,7,207,240,3,76,31,196,206,118,207,208,248,169,13,141,118,207,157
  95. 1058 DATA84,207,169,.,157,8,207,157,11,207,157,14,207,157,17,207,169,218,157,20
  96. 1060 DATA207,169,5,32,.,192,157,23,207,169,1,32,.,192,157,26,207,222,119,207
  97. 1062 DATA208,200,234,234,234,234,234,234,189,11,207,240,75,169,64,157,119,207
  98. 1064 DATA189,29,207,240,13,222,32,207,208,54,169,.,157,29,207,157,35,207,189,35
  99. 1066 DATA207,240,18,222,20,207,222,38,207,208,33,169,5,157,29,207,157,32,207,208
  100. 1068 DATA23,32,38,196,32,164,196,208,11,192,218,208,11,169,.,157,11,207,240,4
  101. 1070 DATA192,235,240,245,32,30,192,76,85,195,189,8,207,240,89,169,32,157,119,207
  102. 1072 DATA189,41,207,10,168,185,.,208,157,14,207,185,1,208,24,105,13,157,20,207
  103. 1074 DATA188,41,207,185,4,207,157,17,207,189,14,207,217,168,207,208,44,189,17
  104. 1076 DATA207,217,170,207,208,36,189,20,207,201,109,176,29,141,87,207,169,.,153
  105. 1078 DATA82,207,157,84,207,173,21,208,61,172,207,141,21,208,189,26,207,24,105
  106. 1080 DATA1,153,44,207,76,85,195,169,64,157,119,207,189,14,207,201,160,208,21,234
  107. 1082 DATA234,234,169,.,157,29,207,169,40,157,38,207,157,11,207,157,35,207,208
  108. 1084 DATA14,173,18,208,201,37,176,7,169,7,32,.,192,240,224,32,30,192,189,84,207
  109. 1086 DATA208,3,76,31,196,173,6,207,61,175,207,240,69,173,6,207,41,1,240,41,173
  110. 1088 DATA80,207,240,36,32,65,192,240,31,169,.,157,41,207,168,189,23,207,208,5
  111. 1090 DATA169,1,153,82,207,169,.,157,11,207,169,1,157,8,207,141,88,207,208,21,173
  112. 1092 DATA6,207,41,2,240,14,173,81,207,240,9,32,85,192,240,4,169,1,208,206,222
  113. 1094 DATA122,207,208,13,169,10,157,122,207,189,125,207,73,1,157,125,207,188,125
  114. 1096 DATA207,189,11,207,208,5,189,8,207,240,5,185,178,207,208,13,189,26,207,208
  115. 1098 DATA5,185,180,207,208,3,185,182,207,157,250,7,173,21,208,29,175,207,141,21
  116. 1100 DATA208,189,23,207,208,3,169,.,44,169,1,157,41,208,169,208,133,252,189,184
  117. 1102 DATA207,133,251,189,14,207,160,.,145,251,200,189,20,207,145,251,172,16,208
  118. 1104 DATA189,17,207,240,6,152,29,175,207,208,4,152,61,172,207,141,16,208,202,48
  119. 1106 DATA3,76,45,194,96,254,20,207,188,20,207,96,157,91,7,169,19,141,174,7,96
  120. 1108 DATA157,91,7,169,20,208,245,32,165,192,32,43,194,32,59,193,172,44,207,240
  121. 1110 DATA34,169,.,141,44,207,152,24,109,52,207,141,52,207,238,2,4,173,2,4,201,58
  122. 1112 DATA208,8,169,48,141,2,4,238,1,4,136,208,235,172,45,207,240,34,169,.,141,45
  123. 1114 DATA207,152,24,109,53,207,141,53,207,238,38,4,173,38,4,201,58,208,8,169,48
  124. 1116 DATA141,38,4,238,37,4,136,208,235,206,219,207,208,164,206,220,207,208,159
  125. 1118 DATA206,221,207,208,154,96,189,17,207,208,12,189,14,207,201,160,176,3,169
  126. 1120 DATA.,44,169,1,96,141,130,207,173,30,208,141,6,207,96,-1
  127. 1122 REM****VARIABLES****
  128. 1124 DATA252,253,254,253,1,2,254,253,24,64,.,1,251,247,239,4,8,16,250,251,250
  129. 1126 DATA250,249,249,4,6,8,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,32,30
  130. 1128 DATA27,23,18,12,5,6,13,19,24,28,31,33,112,142,6,-1
  131. 1130 REM****PROGRAMABLE CHARACTERS****
  132. 1132 DATA.,.,.,.,.,.,.,.,255,223,247,247,247,255,127,255,192,252,255,223,245,255
  133. 1134 DATA255,255,.,.,.,.,.,64,192,192,247,253,255,253,245,247,247,253,255,247
  134. 1136 DATA253,253,255,127,255,127,192,240,240,192,64,65,116,240,223,255,127,255
  135. 1138 DATA223,247,253,253,255,223,213,127,223,223,215,247,240,240,252,252,223,247
  136. 1140 DATA247,255,255,95,247,253,255,223,247,253,192,252,255,255,255,255,255,255
  137. 1142 DATA.,.,.,.,64,208,192,192,247,247,253,255,255,255,253,253,223,223,127,223
  138. 1144 DATA247,255,255,255,80,244,241,192,192,192,240,240,255,127,127,221,221,223
  139. 1146 DATA223,223,127,223,255,255,255,127,223,255,240,241,84,124,221,255,247,255
  140. 1148 DATA20,64,64,68,17,64,1,20,16,64,1,84,.,80,5,64,63,253,250,255,255,253,63
  141. 1150 DATA15,239,255,119,239,111,239,255,255,255,223,175,235,250,95,255,255,112
  142. 1152 DATA212,252,252,252,252,240,192,.,.,.,3,15,63,255,255,15,63,255,255,255,240
  143. 1154 DATA192,.,.,192,192,192,.,.,.,.,63,253,250,255,255,253,63,15,247,255,238
  144. 1156 DATA247,246,247,255,255,255,251,245,215,95,250,255,255,112,212,252,252,252
  145. 1158 DATA252,240,192,.,.,.,.,.,.,.,.,.,3,3,3,.,.,.,.,240,252,255,255,255,15,3,.
  146. 1160 DATA.,.,.,192,240,252,255,255,252,254,255,126,31,30,28,127,.,.,192,240
  147. 1162 DATA248,252,252,252,255,253,127,31,3,3,.,.,190,254,252,248,224,.,.,.,255
  148. 1164 DATA255,255,255,255,255,255,255,-1
  149. 1166 REM****SPRITE DATA****
  150. 1168 DATA.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,16,127,224,25,255,248,27,255
  151. 1170 DATA24,31,255,24,31,255,248,27,255,248,25,255,248,16,127,224,.,.,.,.,.,.,.
  152. 1172 DATA.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  153. 1174 DATA4,127,128,6,254,96,7,254,96,7,255,224,6,255,224,4,127,128,.,.,.,.,.,.
  154. 1176 DATA.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
  155. 1178 DATA.,.,.,.,8,124,.,12,255,128,7,254,96,7,254,96,6,255,224,2,127,224,.,3,128
  156. 1180 DATA.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.
  157. 1182 DATA166,.,130,42,2,160,10,10,160,8,10,170,40,170,170,170,170,170,170,170
  158. 1184 DATA170,170,170,42,170,168,42,187,168,40,179,40,.,51,.,.,51,.,.,192,192,.
  159. 1186 DATA192,192,3,51,48,.,.,.,.,.,.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.
  160. 1188 DATA.,8,.,10,40,160,42,170,168,42,170,168,170,170,170,170,170,170,170,187
  161. 1190 DATA170,40,179,40,40,51,40,.,51,.,.,192,192,.,192,192,3,51,48,.,.,.,.,.
  162. 1192 DATA.,.,.,.,.,.,.,.,.,40,.,.,166,.,2,42,.,.,10,.,.,8,.,10,40,160,42,170
  163. 1194 DATA168,42,170,168,42,170,168,42,170,168,170,187,170,168,179,42,168,51,42
  164. 1196 DATA160,51,10,128,192,194,.,192,192,3,51,48,.,128,192,194,128,51,2,128,51
  165. 1198 DATA2,160,51,10,168,51,42,168,179,42,170,187,170,42,170,168,42,170,168,42
  166. 1200 DATA170,168,42,170,168,10,40,160,.,8,.,.,10,.
  167. 1202 DATA.,42,.,.,38,.,.,42,.,.,8,.,.,8,.,.,.,.,.,.,.,.,-1
  168.