home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 August
/
1984-08.d64
/
sno-cat_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
7KB
|
228 lines
2 poke 53281,1:poke 53280,0
4 poke 52,60:poke 56,60
5 print "[147]"
10 data 120,169,73,141,20,3,169,3,141
20 data 21,3,88,96,169,208,133,252,169
30 data 3,133,251,162,1,160,0,177,251
40 data 105,01,144,2,169,251,145,251,224
50 data 7,240,8,232,230,251,230,251,24
60 data 144,234,173,1,220,41,15,201
62 data 11,240,7,201,7,240,16,76,49,234,173,0,208,201,32,240,246,206,0,208
64 data 24,144,240,173,0,208,201,255,240,233,238,0,208,24,144,227,0,0,0,0,0
70 foru=828to921:readq:pokeu,q:next
80 sys828:poke 53248+21,0:vic=53248
85 gosub 400
86 rem
87 gosub 1000
89 poke 856,2
90 x5=rnd(-sqr(rnd(1)*ti))
100 s=53248:print "[147][144]"
105 poke 53281,3
110 foru=1024 to 1063:pokeu,160:pokeu+960,160
115 poke54272+u,6:poke54272+u+960,6:next
120 foru=1024 to 1984 step 40:pokeu,160:poke u+33,160:poke u+39,160
125 poke u+54272,14:poke 54272+u+33,14:poke 54272+u+39,14:next
126 poke 53281,1
130 foru=0to14step2:pokeu+vic,(u*18):next
131 poke 2040,203
132 poke vic+28,34:poke vic+37,5:poke vic+38,5
133 foru=40 to 47:pokevic+u,5:next
135 poke vic+21,255
140 fori=1to7:poke 2040+i,202:next
141 di=254
145 x=150:di=0
146 poke vic,x:ti$="000000":a$(2)="second":a$(3)="third ":a$(4)="fourth "
147 a1=peek(vic+30):fori=0to24:poke54272+i,0:next
148 poke 54296,15:poke 54273,0:poke54277,85:poke54278,85:poke 54276,129
149 a$(1)="brake ":g=2:a$(5)="over drive"
150 i=0:a=int(rnd(1)*7)+1:if peek(vic+(a*2)+1)>240 then i=1
151 a1=peek(vic+30)and1:ifa1then 3000
154 ifbr=0thenpoke 856,g
155 ifbr=0thenif(peek(56321)and16)=0thenpoke856,1:br=1:gosub5000
156 ifbrthen di=di-1
157 ifbrthenif(peek(56321)and16)=16thenpoke856,g:br=0:poke54276,129:gosub5100
161 di=di+1:print" distance to go: [157][157][157][157]"400-di;:if di =>400 then 1500
162 if ti$="000010"theng=3
163 if ti$="000050"theng=4
165 print tab(20);" gear ";a$(peek(856));
166 print ""tab(33);""ti$"
167 [153] ""[163]34)"time"
168 [151] 54272,g[172]30[170]20
169 [139] ti$[178]"000008" [167] [153]""[163]9);"shifting gears"
170 [139] ti$[178]"000048" [167] [153]""[163]9);"shifting gears"
171 [139] ti$[178]"000011" [167] [153]""[163]9);" "
172 [139] ti$[178]"000051" [167] [153]""[163]9);" "
174 [139]i[178]0[167][137] 150
175 [151] 2040[170]a,202
177 [151] vic[170](a[172]2)[170]1,0
178 a1[178][194](vic[170]30)[175]1:[139]a1[167] 3000
179 [151] 54272,[194](856)[172]12
180 [137] 150
400 [143] *** opening screen ***
405 [153] "load"
470 [131]0,0,120,198,60,204,198,102
480 [131]192,246,102,120,246,102,12,222,102
490 [131]204,222,102,120,198,60,0,0,0
500 i[178]200:[141] 520
510 [137] 560
520 [129]r[178]i[172]64[164](i[172]64)[170]62:[151]r,0:[130]
530 [129]u[178]i[172]64[170]19 [164] i[172]64[170]45:[135]q:[151]u,q:[130]
540 [142]
560 i[178]201:[141] 520
570 [131] 0,0,0,120,49,248,204,120,96
580 [131] 192,204,96,192,252,96,192,204,96
590 [131] 204,204,96,120,204,96,0,0,0,0
605 [151] 2040,200:[151] 2041,200:[151] 2042,201:vic[178]53248
610 [151] vic[170]21,6:[151] vic[170]29,7:[151]vic[170]23,7
620 [151] vic[170]2,136:[151]vic[170]4,188
625 [151] vic[170]41,14:[151] vic[170]40,14
630 [151] vic[170]3,0:[151]vic[170]5,0
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
634 [151] s[170]4,33:[151]s[170]11,17
640 [139] [194](vic[170]3)[178][177]127 [167] [151] vic[170]1,[194](vic[170]3):[137] 660
645 [151] s[170]1,128[171][194](vic[170]3):[151]s[170]8,128[171][194](vic[170]5)
650 [137] 640
660 [151] vic,[194](vic[170]2):[151] vic[170]21,5:[151] vic[170]1,127:[151]vic[170]39,6
670 [139] [194](vic[170]5)[177][178]127 [167] 690
675 [151] s[170]8,128[171][194](vic[170]5)
680 [137] 670
690 [151] 856,0:[151] vic[170]41,6:[151]vic[170]5,127
693 [151] s[170]24,0
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
701 [151] 53254,171:[151]53255,200:[151]53257,100:[151]53256,171:[151]2044,204
702 [151]2043,203:[151] vic[170]21,13[170]16
703 [151] vic[170]42,12
704 [151] 198,0:[129]dl[178]1[164]400:[130]
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
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
707 [151] cb[170]w[170]10,6:[151]sb[170]w[170]29,160:[151]cb[170]w[170]29,6:[130]
708 [153]"press fire"
710 [161] a$:[139]a$[178]""[167]710
711 [151] vic[170]21,0:[129]u[178]0[164]14:[151]u[170]vic,0:[130]
715 [151]vic[170]23,0:[151] vic[170]29,0:[153]"load":[142]
720 [129]i [178]202[172]64 [164] 204[172]64[170]62
730 [135] q:[151]i,q:[130]:[142]
740 [131] 0,16,0,0,40,0,0,84,0
750 [131] 0,170,0,1,85,0,2,170,128
760 [131] 5,85,64,2,170,128,5,85,64
770 [131] 10,170,160,21,85,80,10,170,160
780 [131] 21,85,80,42,170,168,0,56,0
790 [131] 0,56,0,0,56,0,5,85,64
800 [131] 42,128,168,0,0,0,0,0,0
810 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0
820 [131] 126,0,126,24,255,24,126,126,126
830 [131] 31,255,248,126,126,126,24,255,24
840 [131] 126,255,126,16,255,8,112,255,14
850 [131] 23,0,232,119,255,238,22,255,104
860 [131] 118,255,110,22,255,104,119,255,238
870 [131] 16,0,8,126,0,126,0,0,0,0
880 [142]
1000 [143] *** instructions ***
1001 [153] "load":a1[178][194](56321)[175]16:[139]a1[178]0[167]1000
1002 [151] 856,0
1003 [151] vic[170]23,0:[151] v[170]29,0
1005 [151] 53281,6:[129]i[178]12[164]27:[151]1064[170]i,160:[151]1064[170]i[170]160,160:[130]
1008 [129]i[178]1064 [164] 1064[170]160[169]40:[151]i[170]12,160:[151]i[170]27,160:[130]
1010 [153] ""[163]14);"continstructions"
1020 [153] [163]14);"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
1040 [153] "cont you are one of the rangers"
1050 [153] " with the job of rescuing"
1060 [153] " skiers at the mount crumb ski lodge."
1090 [153] " you must make the treacherous"
1100 [153] " climb to save them"
1110 [153] " this is you:"
1120 [153] [163]15);"and(NULL)"
1130 [153] [163]15);"usr(NULL)":vic[178]53248
1132 [151] vic[170]5,70:[151] vic[170]4,40:[151] 2042,202:[151]vic[170]41,0
1140 [151] vic[170]21,5:[151]2040,203
1150 [151] vic,180:[151] vic[170]1,200
1160 [153] "list press firewait to start"
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
1164 [151]sb[170]i[170]960,160:[151]cb[170]i[170]960,7:[130]
1165 [129]i[178]0[164]960 [169] 40
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]
1170 a[178][194](56321)[175]16:[139]a[167]1170
1180 [153]"load":[151]vic[170]21,0:[142]
1500 [143] *** you made it ***
1501 [151] vic[170]11,0:[151]2045,204
1502 t$[178]ti$
1505 [151] vic[170]21,252
1510 [139] [194](vic[170]5)[178][179]50[167]1510
1520 sp[178]53251:[129]u[178]1[164]7
1530 [139] u[178]5[167]1550
1540 [151]sp,0
1550 sp[178]sp[170]2:[130]
1560 [139] [194](vic[170]11)[178][179]150 [167] 1560
1570 [151] 856,2
1580 [139][194](vic[170]11)[178][179]179 [167] 1580
1590 [151] 856,0
1600 [153] ""[163]11);"you made it"
1610 h1(1)[178]25:l1(1)[178]30:h2(1)[178]18:l2(1)[178]209
1620 h1(2)[178]33:l1(2)[178]135:h2(2)[178]25:l2(2)[178]30
1630 h1(3)[178]42:l1(3)[178]62 :h2(3)[178]31:l2(3)[178]165
1640 h1(4)[178]50:l1(4)[178]60 :h2(4)[178]37:l2(4)[178]162
1650 h1(5)[178]42:l1(5)[178]62 :h2(5)[178]31:l2(5)[178]165
1660 h1(6)[178]50:l1(6)[178]60 :h2(6)[178]37:l2(6)[178]162
1670 s[178]54272:[151]s[170]5,85:[151]s[170]6,85:[151]s[170]12,85:[151]s[170]13,85
1680 [151]s[170]24,15:[151]s[170]4,33:[151]s[170]11,17
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)
1690 [139] h1(x)[178]50[167][129]t[178]1[164]200:[130]
1695 [129]t[178]1[164]200:[130]:[130]x
1699 [129]d[178]0[164]24:[151]s[170]d,0:[130]
1700 [137] 3100
3000 [143] *** you crashed ? ? ? ***
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
3003 [151] s[170]24,79
3005 [151]s[170]4,129:[129]dl[178]1[164]100:[130]:[151]s[170]4,128
3006 [151] 856,1
3010 [129]i[178]200 [164] 251:[151]53249,i:[130]
3060 [151] 856,1:t$[178]ti$:[151]s[170]4,0
3070 [129]y[178]32[164]50:[151]2040,y:[130]
3080 [151] vi