home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_22_(10-1984).d64 / sno-cat_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  228 lines
  1. 2 POKE 53281,1:POKE 53280,0
  2. 4 POKE 52,60:POKE 56,60
  3. 5 PRINT "[147]"
  4. 10 DATA 120,169,73,141,20,3,169,3,141
  5. 20 DATA 21,3,88,96,169,208,133,252,169
  6. 30 DATA 3,133,251,162,1,160,0,177,251
  7. 40 DATA 105,01,144,2,169,251,145,251,224
  8. 50 DATA 7,240,8,232,230,251,230,251,24
  9. 60 DATA 144,234,173,1,220,41,15,201
  10. 62 DATA 11,240,7,201,7,240,16,76,49,234,173,0,208,201,32,240,246,206,0,208
  11. 64 DATA 24,144,240,173,0,208,201,255,240,233,238,0,208,24,144,227,0,0,0,0,0
  12. 70 FORU=828TO921:READQ:POKEU,Q:NEXT
  13. 80 SYS828:POKE 53248+21,0:VIC=53248
  14. 85 GOSUB 400
  15. 86 REM
  16. 87 GOSUB 1000
  17. 89 POKE 856,2
  18. 90 X5=RND(-SQR(RND(1)*TI))
  19. 100 S=53248:PRINT "[147][144]"
  20. 105 POKE 53281,3
  21. 110 FORU=1024 TO 1063:POKEU,160:POKEU+960,160
  22. 115 POKE54272+U,6:POKE54272+U+960,6:NEXT
  23. 120 FORU=1024 TO 1984 STEP 40:POKEU,160:POKE U+33,160:POKE U+39,160
  24. 125 POKE U+54272,14:POKE 54272+U+33,14:POKE 54272+U+39,14:NEXT
  25. 126 POKE 53281,1
  26. 130 FORU=0TO14STEP2:POKEU+VIC,(U*18):NEXT
  27. 131 POKE 2040,203
  28. 132 POKE VIC+28,34:POKE VIC+37,5:POKE VIC+38,5
  29. 133 FORU=40 TO 47:POKEVIC+U,5:NEXT
  30. 135 POKE VIC+21,255
  31. 140 FORI=1TO7:POKE 2040+I,202:NEXT
  32. 141 DI=254
  33. 145 X=150:DI=0
  34. 146 POKE VIC,X:TI$="000000":A$(2)="SECOND":A$(3)="THIRD ":A$(4)="FOURTH "
  35. 147 A1=PEEK(VIC+30):FORI=0TO24:POKE54272+I,0:NEXT
  36. 148 POKE 54296,15:POKE 54273,0:POKE54277,85:POKE54278,85:POKE 54276,129
  37. 149 A$(1)="BRAKE ":G=2:A$(5)="OVER DRIVE"
  38. 150 I=0:A=INT(RND(1)*7)+1:IF PEEK(VIC+(A*2)+1)>240 THEN I=1
  39. 151 A1=PEEK(VIC+30)AND1:IFA1THEN 3000
  40. 154 IFBR=0THENPOKE 856,G
  41. 155 IFBR=0THENIF(PEEK(56321)AND16)=0THENPOKE856,1:BR=1:GOSUB5000               
  42. 156 IFBRTHEN DI=DI-1                   
  43. 157 IFBRTHENIF(PEEK(56321)AND16)=16THENPOKE856,G:BR=0:POKE54276,129:GOSUB5100
  44. 161 DI=DI+1:PRINT" DISTANCE TO GO:    [157][157][157][157]"400-DI;:IF DI =>400 THEN 1500
  45. 162 IF TI$="000010"THENG=3
  46. 163 IF TI$="000050"THENG=4
  47. 165 PRINT TAB(20);" GEAR ";A$(PEEK(856));
  48. 166 PRINT ""TAB(33);""TI$"
  49. 167 [153] ""[163]34)"TIME"
  50. 168 [151] 54272,G[172]30[170]20
  51. 169 [139] TI$[178]"000008" [167] [153]""[163]9);"SHIFTING GEARS"
  52. 170 [139] TI$[178]"000048" [167] [153]""[163]9);"SHIFTING GEARS"
  53. 171 [139] TI$[178]"000011" [167] [153]""[163]9);"              "
  54. 172 [139] TI$[178]"000051" [167] [153]""[163]9);"              "
  55. 174 [139]I[178]0[167][137] 150
  56. 175 [151] 2040[170]A,202
  57. 177 [151] VIC[170](A[172]2)[170]1,0
  58. 178 A1[178][194](VIC[170]30)[175]1:[139]A1[167] 3000
  59. 179 [151] 54272,[194](856)[172]12
  60. 180 [137] 150
  61. 400 [143]     ***    OPENING SCREEN     ***
  62. 405 [153] "LOAD"
  63. 470 [131]0,0,120,198,60,204,198,102
  64. 480 [131]192,246,102,120,246,102,12,222,102
  65. 490 [131]204,222,102,120,198,60,0,0,0
  66. 500 I[178]200:[141] 520
  67. 510 [137] 560
  68. 520 [129]R[178]I[172]64[164](I[172]64)[170]62:[151]R,0:[130]
  69. 530 [129]U[178]I[172]64[170]19 [164] I[172]64[170]45:[135]Q:[151]U,Q:[130]
  70. 540 [142]
  71. 560 I[178]201:[141] 520
  72. 570 [131] 0,0,0,120,49,248,204,120,96
  73. 580 [131] 192,204,96,192,252,96,192,204,96
  74. 590 [131] 204,204,96,120,204,96,0,0,0,0
  75. 605 [151] 2040,200:[151] 2041,200:[151] 2042,201:VIC[178]53248
  76. 610 [151] VIC[170]21,6:[151] VIC[170]29,7:[151]VIC[170]23,7
  77. 620 [151] VIC[170]2,136:[151]VIC[170]4,188
  78. 625 [151] VIC[170]41,14:[151] VIC[170]40,14
  79. 630 [151] VIC[170]3,0:[151]VIC[170]5,0
  80. 632 S[178]54272:[151]S[170]24,15:[151]S[170]5,85:[151]S[170]6,85:[151]S[170]12,85:[151]S[170]13,85
  81. 634 [151] S[170]4,33:[151]S[170]11,17
  82. 640 [139] [194](VIC[170]3)[178][177]127 [167] [151] VIC[170]1,[194](VIC[170]3):[137] 660
  83. 645 [151] S[170]1,128[171][194](VIC[170]3):[151]S[170]8,128[171][194](VIC[170]5)
  84. 650 [137] 640
  85. 660 [151] VIC,[194](VIC[170]2):[151] VIC[170]21,5:[151] VIC[170]1,127:[151]VIC[170]39,6
  86. 670 [139] [194](VIC[170]5)[177][178]127 [167] 690
  87. 675 [151] S[170]8,128[171][194](VIC[170]5)
  88. 680 [137] 670
  89. 690 [151] 856,0:[151] VIC[170]41,6:[151]VIC[170]5,127
  90. 693 [151] S[170]24,0
  91. 700 [129]U[178]0[164]5:[129]E[178]0[164]14:[151]VIC[170]39,E:[151]VIC[170]41,E:[130]E,U:[141]720
  92. 701 [151] 53254,171:[151]53255,200:[151]53257,100:[151]53256,171:[151]2044,204
  93. 702 [151]2043,203:[151] VIC[170]21,13[170]16
  94. 703 [151] VIC[170]42,12
  95. 704 [151] 198,0:[129]DL[178]1[164]400:[130]
  96. 705 SB[178]1024:CB[178]SB[170]54272:[129]I[178]10[164]29:[151]SB[170]I[170]160,160:[151]CB[170]I[170]160,6
  97. 706 [151] SB[170]I[170]880,160:[151]CB[170]I[170]880,6:[130]:[129]I[178]4[164]22:W[178]I[172]40:[151]SB[170]W[170]10,160
  98. 707 [151] CB[170]W[170]10,6:[151]SB[170]W[170]29,160:[151]CB[170]W[170]29,6:[130]
  99. 708 [153]"PRESS FIRE"
  100. 710 [161] A$:[139]A$[178]""[167]710
  101. 711 [151] VIC[170]21,0:[129]U[178]0[164]14:[151]U[170]VIC,0:[130]
  102. 715 [151]VIC[170]23,0:[151] VIC[170]29,0:[153]"LOAD":[142]
  103. 720 [129]I [178]202[172]64 [164] 204[172]64[170]62
  104. 730 [135] Q:[151]I,Q:[130]:[142]
  105. 740 [131] 0,16,0,0,40,0,0,84,0
  106. 750 [131] 0,170,0,1,85,0,2,170,128
  107. 760 [131] 5,85,64,2,170,128,5,85,64
  108. 770 [131] 10,170,160,21,85,80,10,170,160
  109. 780 [131] 21,85,80,42,170,168,0,56,0
  110. 790 [131] 0,56,0,0,56,0,5,85,64
  111. 800 [131] 42,128,168,0,0,0,0,0,0
  112. 810 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0
  113. 820 [131] 126,0,126,24,255,24,126,126,126
  114. 830 [131] 31,255,248,126,126,126,24,255,24
  115. 840 [131] 126,255,126,16,255,8,112,255,14
  116. 850 [131] 23,0,232,119,255,238,22,255,104
  117. 860 [131] 118,255,110,22,255,104,119,255,238
  118. 870 [131] 16,0,8,126,0,126,0,0,0,0
  119. 880 [142]
  120. 1000 [143]    ***    INSTRUCTIONS       ***
  121. 1001 [153] "LOAD":A1[178][194](56321)[175]16:[139]A1[178]0[167]1000
  122. 1002 [151] 856,0
  123. 1003 [151] VIC[170]23,0:[151] V[170]29,0
  124. 1005 [151] 53281,6:[129]I[178]12[164]27:[151]1064[170]I,160:[151]1064[170]I[170]160,160:[130]
  125. 1008 [129]I[178]1064 [164] 1064[170]160[169]40:[151]I[170]12,160:[151]I[170]27,160:[130]
  126. 1010 [153] ""[163]14);"CONTINSTRUCTIONS"
  127. 1020 [153] [163]14);"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  128. 1040 [153] "CONT  YOU ARE ONE OF THE RANGERS"
  129. 1050 [153] "  WITH THE JOB OF RESCUING"
  130. 1060 [153] "  SKIERS AT THE MOUNT CRUMB SKI LODGE."
  131. 1090 [153] "  YOU MUST MAKE THE TREACHEROUS"
  132. 1100 [153] "  CLIMB TO SAVE THEM"
  133. 1110 [153] "   THIS IS YOU:"
  134. 1120 [153] [163]15);"AND(null)"
  135. 1130 [153] [163]15);"USR(null)":VIC[178]53248
  136. 1132 [151] VIC[170]5,70:[151] VIC[170]4,40:[151] 2042,202:[151]VIC[170]41,0
  137. 1140 [151] VIC[170]21,5:[151]2040,203
  138. 1150 [151] VIC,180:[151] VIC[170]1,200
  139. 1160 [153] "LIST  PRESS FIREWAIT TO START"
  140. 1163 SB[178]1024:CB[178]54272[170]SB:[129]I[178]0[164]39:[151]SB[170]I,160:[151]CB[170]I,7
  141. 1164 [151]SB[170]I[170]960,160:[151]CB[170]I[170]960,7:[130]
  142. 1165 [129]I[178]0[164]960 [169] 40
  143. 1166 [151]SB[170]I,160:[151]CB[170]I,7:[151]SB[170]I[170]39,160:[151]CB[170]I[170]39,7:[130]
  144. 1170 A[178][194](56321)[175]16:[139]A[167]1170
  145. 1180 [153]"LOAD":[151]VIC[170]21,0:[142]
  146. 1500 [143]    ***    YOU MADE IT        ***
  147. 1501 [151] VIC[170]11,0:[151]2045,204
  148. 1502 T$[178]TI$
  149. 1505 [151] VIC[170]21,252
  150. 1510 [139] [194](VIC[170]5)[178][179]50[167]1510
  151. 1520 SP[178]53251:[129]U[178]1[164]7
  152. 1530 [139] U[178]5[167]1550
  153. 1540 [151]SP,0
  154. 1550 SP[178]SP[170]2:[130]
  155. 1560 [139] [194](VIC[170]11)[178][179]150 [167] 1560
  156. 1570 [151] 856,2
  157. 1580 [139][194](VIC[170]11)[178][179]179 [167] 1580
  158. 1590 [151] 856,0
  159. 1600 [153] ""[163]11);"YOU MADE IT"
  160. 1610 H1(1)[178]25:L1(1)[178]30:H2(1)[178]18:L2(1)[178]209
  161. 1620 H1(2)[178]33:L1(2)[178]135:H2(2)[178]25:L2(2)[178]30
  162. 1630 H1(3)[178]42:L1(3)[178]62 :H2(3)[178]31:L2(3)[178]165
  163. 1640 H1(4)[178]50:L1(4)[178]60 :H2(4)[178]37:L2(4)[178]162
  164. 1650 H1(5)[178]42:L1(5)[178]62 :H2(5)[178]31:L2(5)[178]165
  165. 1660 H1(6)[178]50:L1(6)[178]60 :H2(6)[178]37:L2(6)[178]162
  166. 1670 S[178]54272:[151]S[170]5,85:[151]S[170]6,85:[151]S[170]12,85:[151]S[170]13,85
  167. 1680 [151]S[170]24,15:[151]S[170]4,33:[151]S[170]11,17
  168. 1685 [129] X[178]1[164]6:[151]S,L1(X):[151]S[170]1,H1(X):[151]S[170]7,L2(X):[151]S[170]8,H2(X)
  169. 1690 [139] H1(X)[178]50[167][129]T[178]1[164]200:[130]
  170. 1695 [129]T[178]1[164]200:[130]:[130]X
  171. 1699 [129]D[178]0[164]24:[151]S[170]D,0:[130]
  172. 1700 [137] 3100
  173. 3000 [143]    ***    YOU CRASHED ? ? ?     ***
  174. 3002 [151]856,0:S[178]54272:[151]S,240:[151]S[170]1,33:[151]S[170]5,8:[151]S[170]22,104:[151]S[170]23,1
  175. 3003 [151] S[170]24,79                
  176. 3005 [151]S[170]4,129:[129]DL[178]1[164]100:[130]:[151]S[170]4,128
  177. 3006 [151] 856,1
  178. 3010 [129]I[178]200 [164] 251:[151]53249,I:[130]
  179. 3060 [151] 856,1:T$[178]TI$:[151]S[170]4,0
  180. 3070 [129]Y[178]32[164]50:[151]2040,Y:[130]
  181. 3080 [151] VIC[170]21,254
  182. 3081 S[178]54272:[151]S[170]24,15:[151]S[170]5,85:[151] S[170]1,1:[151] S[170]4,17
  183. 3083 [129]DL[178]1[164]200:[130]:[151]S[170]4,16:[129]DL[178]1[164]200:[130]:[151] S[170]4,0
  184. 3090 [153] ""[163]8);"    YOU CRASHED  "
  185. 3095 [151] 54276,0
  186. 3100 [153] ""[163]13)"GAME OVER"
  187. 3105 [151]S[170]4,0:[151]S[170]4,33:[151] S[170]5,85:[151]S[170]24,15
  188. 3110 A1[178][194](56321)[175]16:[151]53280,[187](1)[172]16
  189. 3111 SC[178][182]([181](((300[171][197](T$))[172]DI)[173]2)):[139]DI[178]400[167]SC[178]SC[170]500
  190. 3112 A[178][181]([187](1)[172]7)[170]1:[139] [194](VIC[170](A[172]2)[170]1)[178]251 [167] [151]VIC[170](A[172]2)[170]1,0
  191. 3114 [139] A1 [167] 3110
  192. 3115 [151] 56321,0:[151]53280,0
  193. 3116 [151] S[170]24,0
  194. 3117 [151] 53281,14
  195. 3120 [151] VIC[170]21,0
  196. 3125 A1[178][194](56321)[175]16:[139] A1[178]0[167]3125
  197. 3130 [153] "LOAD"
  198. 3133 [153] "             YOUR SCORE "SC
  199. 3136 [139]SC[178][177]HS [167] HS[178]SC
  200. 3139 [153] "             BEST SCORE "HS
  201. 3140 [153] "       WOULD YOU LIKE TO"
  202. 3150 [153] "           PLAY AGAIN?"
  203. 3160 [153] "              Y / N"
  204. 3165 [153]  "OPEN   SYSWAIT^OPEN   SYS OPEN WAIT"
  205. 3170 A4[178]1761:A5[178]1765
  206. 3175 A[178]A4
  207. 3180 A1[178][194](56321)[175]15
  208. 3190 [139] A1[178]11[167]A[178]A4
  209. 3200 [139] A1[178]7 [167] A[178]A5
  210. 3210 [151] A4,32:[151]A5,32:[151]A,30
  211. 3220 A1[178][194](56321)[175]16:[139]A1[167]3180
  212. 3230 [139] A[178]A4 [167] 86
  213. 3235 [151] 198,0:[129]I[178]1[164]30:[153]"";:[130]
  214. 3240 [128]
  215. 4000 [131]  31 , 255 , 224 , 31 , 199 , 224 , 31 , 199 , 224
  216. 4010 [131]  31 , 1 , 224 , 31 , 1 , 224 , 31 , 199 , 224
  217. 4020 [131]  31 , 199 , 224 , 31 , 255 , 224 , 24 , 0 , 0
  218. 4030 [131]  24 , 112 , 0 , 24 , 112 , 0 , 31 , 252 , 0
  219. 4040 [131]  24 , 126 , 0 , 24 , 115 , 0 , 24 , 246 , 0
  220. 4050 [131]  25 , 176 , 0 , 25 , 176 , 0 , 127 , 176 , 0
  221. 4060 [131]  225 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0
  222. 5000 [151] 54276,0:[151]54277,144:[151] 54276,33:[151] 54276,32:[151]54278,144
  223. 5005 [151] 54273,20
  224. 5010 [142]
  225. 5100 [151] 54276,0:[151] 54276,129
  226. 5105 [151] 54273,0:[151] 54277,85
  227. 5110 [142]
  228.