home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / sno-cat_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  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] vi