home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 September
/
1985-09.d64
/
maze-mania
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
6KB
|
125 lines
10 w=54272:fort=wtow+24:poket,0:next
20 poke657,128:poke53280,0:poke53281,0:print"[147]"tab(14)"maze-mania
30 [153]""[163]4)"pokeplease wait while data is loaded":[134]u(255),h(255)
40 cz[178]0:[129]ig[178]49152[164]49619:[135]ya:[151]ig,ya:cz[178]cz[170]ya:[130]
50 [129]bi[178]50176[164]50442:[135]ka:[151]bi,ka:cz[178]cz[170]ka:[130]
60 [139]cz[179][177]91037[167][153]" error in data statementspoke":[144]
70 [129]f[178]1[164]23:[135]u(f),h(f):[130]
80 lv[178]1:vl[178]lv[170]1:pl[178]1:mn(1)[178]3:mn(2)[178]3:pp[178]65:j[178]5:k[178]15:g$[178]"(NULL)":[151]198,0
90 [129]i[178]1[164]2:sc(i)[178]0:[130]
100 [153]"load"[163]12)"maze-mania":[153]""[163]11)"1wait normal game"
110 [153]""[163]11)"2wait fade game":[153]""[163]11)"3wait nervous game"
120 [153]""[163]10)"input your choice sincmd";:[151]204,0
130 [161]mt$:[139]mt$[178]""[176]mt$[179]"1"[176]mt$[177]"3"[167]130
140 [153]mt$:[153]""[163]7)"how many players (1 or 2) sincmd";:[151]204,0
150 [161]a$:[139]a$[178]""[176]a$[179]"1"[176]a$[177]"2"[167]150
160 np[178][197](a$):mt[178][197](mt$):[153]a$:[151]204,1:[151]207,0:[151]646,vl
170 mt$[178]" wait wait wait wait wait peekwait":m$[178]" ":mm$[178]"peekwait"[170]mt$[170]"cmdcmd"
180 a[178]1226:b[178]55498:[151]56322,[194](56322)[175]127
190 c[178]a:d[178]b:[153]"load level"lv[163]15)"time 000"[163]28)"score"sc(pl)
200 [153]" orlenlenlenlenlenlenlenlenlenlenlenlenlenmaze-manialenlenlenlenlenlenlenlenlenlenlenlenlen^"
210 [129]i[178]1[164]17:[153]" peekwait"mt$[163]25)mm$" peekwait":[130]:[153]"";:[129]i[178]1[164]8
220 [153][163]14)m$"":[130]:[153]""[163]13)" "
230 [153]""[163]38)" ":[153]""[163]26)" "
240 [153]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp":[153]""[163]12)"player"pl;
250 [153][163]22)"men ";:[129]i[178]1[164]mn(pl):[153]g$;:[130]
260 t[178][181](15[172][187](1)):a[178]a[170]t[172]40:b[178]b[170]t[172]40:[151]a[170]1,32:[151]a[170]34,32
270 [129]p[178]5[164]11[169]2:q[178][181](11[172][187](1))[170]6:z[178][181](11[172][187](1))[170]6:[153]"";:[129]i[178]0[164]q
280 [153]"";:[130]i:[153][163]p)" ":[153]"";:[129]i[178]0[164]z:[153]"";:[130]i
290 [153][163]p[170]23)" ";:[130]p:[129]q[178]4[164]19[169]2:p[178][181](10[172][187](1))[170]15:[153]"";
300 [129]i[178]0[164]q:[153]"";:[130]i:[153][163]p);:[153]" ":[130]q
310 [151]1542,102:[151]55814,0:[151]1543,160:[151]55815,0
320 aa[178][181](a[173]256):bb[178]aa[172]256:cc[178]a[171]bb:[151]167,cc:[151]169,cc:[151]168,aa:[151]170,aa
330 [151]911,k:[151]910,200:[151]912,k
340 [151]900,0:[151]904,j:[151]905,0:[151]902,0:[151]903,0:[151]901,8:[151]56325,pp
350 [139]mt[178]2[167][151]902,1:[137]370
360 [139]mt[178]3[167][151]903,1
370 [158]49152
380 [139][194](900)[178]1[167][158]65418:[137]410
390 [139][194](910)[179][178]0[167][158]65418:[137]700
400 [137]380
410 [139][194](167)[170]256[172][194](168)[178]1541[167]t[178][194](910):sc(pl)[178]sc(pl)[170](t[172]lv):[137]430
420 n1[178]1:n2[178]9:[141]730:mn(pl)[178]mn(pl)[171]1:[137]520
430 [151]1541,32:[151]1542,81:[151]55814,1:n1[178]10:n2[178]23:[141]730
440 [139]a$[178]"1"[167]mn(pl)[178]mn(pl)[170]1:[137]490
450 [151]646,vl
460 [139]pl[178]1[167][141]680:pl[178]2:ck[178]1:[137]510
470 s2[178]s2[170]sc(pl):[141]680:pl[178]1:[137]490
480 [139]a$[178]"1"[167]pl[178]2
490 pp[178]pp[171]5:ck[178]0:j[178]j[170]1:k[178]k[170]4:lv[178]lv[170]1:[139]lv[178]11[167]660
500 vl[178]vl[170]1
510 [141]710:[151]900,0:[151]646,vl:[137]170
520 [139]mn(pl)[177]0[167]510
530 [139]a$[178]"1"[167]570
540 [153]""[163]11)"game over player"pl:lv(pl)[178]lv:[141]690
550 [139]pl[178]2[167]a$[178]"1":pl[178]1:[137]640
560 a$[178]"1":pl[178]2:[137]510
570 lv(pl)[178]lv:[153]"load"[163]14)"game over":[141]690
580 [153]"load"[163]15)"scoreboard":[153][163]15)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
590 [151]56322,[194](56322)[176]128:[129]i[178]1[164]np
600 [153]""[163]8)"player"i[166]5[171][195]([196](sc(i))))sc(i)[163]27)"level"lv(i)[171]1
610 [130]:[153]""[163]12)"press firebuttonwait":[153][163]13)"to play again"
620 [146]56321,16,16:[146]56321,16
630 [153]"load":[151]53265,27:[151]53270,200:[137]80
640 [139]ck[178]1[167]490
650 [137]510
660 [153]"load"[163]14)"well done!!"
670 [153]" you have completed all ten levels":[141]690:[137]580
680 [153]""[163]28)"score"sc(pl):mn(pl)[178]mn(pl)[170]1:[129]i[178]1[164]1000:[130]:[142]
690 [129]i[178]1[164]2800:[130]:[142]
700 [153]""[163]14)"out of time":[129]i[178]1[164]500:[130]:[137]420
710 [139]mn(pl)[177]3[167]mn(pl)[178]3
720 [142]
730 [151]w[170]24,15:[151]w[170]5,17:[151]w[170]6,241
740 [129]i[178]n1[164]n2:[151]w,u(i):[151]w[170]1,h(i):[151]w[170]4,17:[129]t[178]1[164]50:[130]:[151]w[170]4,16
750 [151]w[170]1,u(i)[171]20:[151]w,h:[151]w[170]4,17:[129]t[178]1[164]50:[130]:[151]w[170]4,16:[130]:[142]
760 [131] 120,169,255,141,15,212,169,129,141,18,212,162,17,173,27
770 [131] 212,74,74,74,74,205,133,3,144,244,157,48,194,157,0
780 [131] 194,202,16,235,162,35,189,150,193,157,96,194,157,144,194
790 [131] 138,157,192,194,138,74,168,189,186,193,157,240,194,202,16
800 [131] 231,169,73,141,20,3,169,192,141,21,3,88,96,173,132
810 [131] 3,240,3,76,49,234,173,135,3,240,21,173,27,212,201
820 [131] 50,176,14,230,2,165,2,41,7,9,24,141,17,208,141
830 [131] 22,208,162,17,222,0,194,240,3,76,80,193,189,48,194
840 [131] 157,0,194,138,10,168,189,240,194,16,27,73,255,24,105
850 [131] 1,133,251,185,96,194,56,229,251,153,96,194,185,97,194
860 [131] 233,0,153,97,194,76,176,192,185,96,194,24,125,240,194
870 [131] 153,96,194,185,97,194,105,0,153,97,194,138,10,168,185
880 [131] 96,194,133,251,185,97,194,133,252,140,61,3,160,0,177
890 [131] 251,201,160,144,44,189,240,194,73,255,24,105,1,157,240
900 [131] 194,173,27,212,74,74,74,74,205,133,3,144,3,157,48
910 [131] 194,172,61,3,185,144,194,153,96,194,185,145,194,153,97
920 [131] 194,76,80,193,201,81,208,8,169,1,141,132,3,76,80
930 [131] 193,172,61,3,185,144,194,133,253,185,145,194,133,254,160
940 [131] 0,169,32,145,253,169,102,145,251,172,61,3,165,251,153
950 [131] 144,194,24,105,0,133,253,165,252,153,145,194,105,212,133
960 [131] 254,152,41,7,208,2,169,13,172,134,3,240,19,254,192
970 [131] 194,189,192,194,201,8,144,5,169,0,157,192,194,170,189
980 [131] 204,193,160,0,145,253,202,48,3,76,109,192,206,144,3
990 [131] 208,20,173,143,3,141,144,3,173,142,3,208,6,238,132
1000 [131] 3,76,147,193,206,142,3,162,47,173,142,3,232,56,233
1010 [131] 100,16,250,142,60,4,24,105,100,162,47,232,56,233,10
1020 [131] 16,250,142,61,4,24,105,10,9,48,141,62,4,76,0
1030 [131] 196,36,7,38,7,40,7,42,7,44,7,254,4,78,5
1040 [131] 158,5,238,5,62,6,142,6,222,6,187,4,189,4,191
1050 [131] 4,193,4,195,4,197,4,216,216,216,216,216,1,1,1,1,1,1,1
1060 [131] 40,40,40,40,40,40,12,11,0,0,0,11,12,0,173,137,3,205,136,3,176
1070 [131] 6,238,137,3,76,49,234,160,0,234,234,234,140,137,3,169,32,145
1080 [131] 167,165,169,133,167,165,170,133,168,162,0,134,4,134,5,173,1
1090 [131] 220,74,176,1,136,74,176,1,200,74,176,1,202,74,176,1,232,134
1100 [131] 4,132,5,74,42,41,1,141,188,2,165,4,201,1,240,18,201,255
1110 [131] 240,3,76,145,196,165,169,208,2,198,170,198,169,76,100,196,230,169
1120 [131] 208,2,230,170,160,0,177,169,201,32,208,3,76,126,196,201,102,240
1130 [131] 3,76,137,196,169,1,141,132,3,76,229,196,165,169,133,167,165,170
1140 [131] 133,168,76,229,196,165,167,133,169,165,168,133,170,165,5,201,1,240
1150 [131] 23,201,255,240,3,76,229,196,56,165,169,233,40,133,169,165,170,233
1160 [131] 0,133,170,76,187,196,24,165,169,105,40,133,169,165,170,105,0,133
1170 [131] 170,160,0,177,169,201,32,208,3,76,221,196,201,102,208,8,169,1
1180 [131] 141,132,3,76,229,196,165,167,133,169,165,168,133,170,76,229,196,165
1190 [131] 170,133,168,165,169,133,167,160,0,169,81,145,167,165,168,72,165,167
1200 [131] 72,24,165,167,105,0,133,167,165,168,105,212,133,168
1210 [131] 169,1,145,167,104,133,167,104,133,168,76,49,234,70
1220 [131] 70,68,66,64,62,60,58,56,54,52,50,48,46,44,42,40,38
1230 [131] 56,56,144,254,58,56,40,108,28,16,56,124,254,254,124,56
1240 [131] 215,254,124,255,255,223,147,161,255,