Loadstar 43/043.d81/me

Commodore BASIC | 2022-08-26 | 12KB | 558 lines

0 ifed%=0thenclr:poke52,80:poke56,80:poke 46,60:clr
1 ifed%=0thengosub2000:ed%=1:load"zomp",8,1
2 gosub1000:printtab(14)"([208]ress key)"
3 geta$:ifa$=""then3
10 el=peek(763):mq=peek(761):mr=peek(762)
12 dimk9(7,2),dx(2),en(2),zp(2):fora=1to7
13 k9(a,0)=39+a:k9(a,1)=35+a:k9(a,2)=31+a:next
14 f3=50170:f4=50171:x1=53248:x2=53250:x3=53252:x4=53254:w1=32:w2=34
15 f1=50168:f2=50169:x=60:y=176:mx=53248:hx=53264:xx=77:xt=237:ux=101:ut=5
20 sx=1:sy=1:cd=3:v=1:n=1:gosub136:gosub212:dx(1)=2:dx(2)=-2:en(1)=254:en(2)=72
21 k1=1:k2=1:zp(1)=204:zp(2)=52
22 pokef1,k9(k1,n):k1=k1+1:ifk1=5thenk1=1:k2=k2+1+3*(k2=3):ifk2=3thengosub250
23 x=x+dx(n):pokehx,x/256:pokemx,x-256*peek(hx)
24 ed=ed+1:ifed=444thened=0:el=el+(el>0):gosub212:ifel=0then332
26 ifhhthenifx=en(p)thengosub222
27 iftbthenifx=zp(p)then334
28 ifx>34andx<300then40
36 gosub116:gosub136
40 gosub41:goto22
41 geta$:ifa$=""thenreturn
44 ifa$<>"r"then52
45 n=3-n:cd=cd+2:ifcd>4thencd=cd-4
46 return
52 ifa$<>"e"then90
54 hh=1:return
90 ifa$<>"v"then104
92 x=334-x:v=3-v:n=3-n:po=1:gosub136:return
104 ifa$<>"s"then108
105 geta$:ifa$=""ora$="s"then105
106 ifa$="w"thenreturn
107 gosub44:goto105
108 rem
112 ifa$<>"h"then132
113 pokevc+21,0:sys32780:print"[147]"tab(7)"([197])nter hall":gosub11300
114 geta$:ifa$=""then114
115 sys32783:sys32798:pokef1,k9(k1,v):pokef2,k9(2,0):gosub212:pokevc+21,3:return
116 oncdgoto118,120,122,124
118 sx=sx-1:ifsx<1thensx=10
119 goto125
120 sy=sy+1:ifsy>10thensy=1
121 goto125
122 sx=sx+1:ifsx>10thensx=1
123 goto125
124 sy=sy-1:ifsy<1thensy=10
125 return
126 onvgoto128,130
128 oncdgoto120,118,120,118
130 oncdgoto124,122,124,122
132 ifa$<>"q"thenreturn
134 goto318
136 gosub700
137 pokevc+21,0:r=sx+sy:tb=(r=13):onvgoto138,140
138 oncdgoto142,144,142,144
140 oncdgoto144,142,144,142
142 p=1:sys32792:goto152
144 p=2:sys32795
152 gosub212:pokevc+1,y:pokevc+2,160*(3-p)-65:pokevc+3,112
153 pokehx,x/256:pokemx,x-256*peek(hx):pokef1,k9(k1,n):pokef2,k9(1,0)
154 pokevc+21,3
182 onpgoto200,201
200 a=98:b=8:e=a:goto202
201 a=14:b=8:e=a
202 ford=1tosx:gosub206:next:a=e:b=16:ford=1tosy:gosub206:next:geta$:return
206 poke679,0:poke680,a:poke682,a:poke681,b:poke683,b+4:sys37379:a=a+3
207 return
212 print"  [197][204]"el;:return
222 qb%=(sx=5andsy=4):pokef1,47:pokevc+1,y-4
224 fora=1to400:next:gosub126
226 oncdgoto228,230,228,230
228 n=1:cd=v*2:goto232
230 n=2:cd=1-((v=2)*2)
232 gosub136:hh=0:ifqb%=0thenreturn
233 goto288
250 pokef2,k9(1+7*rnd(1),0):return
288 print"        "
289 print"[145][145]     [217]ou've tripped a mechanism!!"
290 print"        [193] wall slides aside!!"
291 pokevc+21,0:gosub1100:sys32780
292 print"[147]             [212]he door to [203]a!"
293 fora=1to2344:next
294 ed%=22:load"p4",8,1
295 sys32783:sys32801:gosub666
296 sys32780:print"[147]          [212]his is not the end.":pokevc+21,0
297 print"         [201]t is the beginning of"
298 print"             [197]xpedition: [203]a"
299 geta$:ifa$=""then299
300 clr:load"hello",8
318 sys32780:print"[147]     [215]e now rejoin the remainder":pokevc+21,0
319 printtab(10)"of the expedition":printtab(10)"(if there is any)"
320 rem
321 gosub344:clr:load"az",8
332 sys32780:print"[147]   [201]'m sorry to inform you that our":pokevc+21,0
333 print"    intrepid explorer has starved.":fora=1to7000:next:goto318
334 poke679,3:poke680,16-80*(p=1):poke681,134
335 poke682,42-80*(p=1):poke683,76:sys37379
336 b=54296:fora=1to47:pokeb,15:pokeb,0:next:fora=1to834:next
337 poke679,0:poke680,16-80*(p=1):poke681,134
338 poke682,42-80*(p=1):poke683,76:sys37379:pokemx,0:pokehx,0
339 fora=1to4000:next:sx=1:sy=1:cd=3:v=1:gosub136:el=el+(el>0):gosub212
340 ifel=0thensys32780:print"[147]         [211]orry---":goto444
342 gosub212:goto22
344 poke767,99:poke761,mq:poke762,mr:poke763,el
345 poke52,127:poke56,127:poke 46,110:return
444 pokevc+21,0:fora=1to6666:next:goto318
666 geta$:ifa$<>""then666
667 pokex1,xx:pokex2,xx+24:pokex3,xt:pokex4,xt-232:pokehx,8
668 pokevc+21,15
669 fora=0to6:b=3*a:c=32+a*2:d=44-a*2
670 pokex1,xx+b:pokex2,ux+b:pokex3,xt+b:pokex4,ut+b
671 pokef1,c:pokef2,c+1:pokef3,d:pokef4,d+1
672 forzz=1to6:next:next
673 geta$:ifa$<>""thenreturn
674 fora=6to0step-1:b=3*a:c=32+a*2:d=44-a*2
675 pokex1,xx+b:pokex2,ux+b:pokex3,xt+b:pokex4,ut+b
676 pokef1,c:pokef2,c+1:pokef3,d:pokef4,d+1
677 next:goto669
700 ifpo=1thenpo=0:return
701 x=262*n-226:return
1000 n=16:ifed%=22then295
1010 dimm(n),pc(n),m1(n),m2(n)
1020 a=800
1030 fori=1ton:ad=a*64+(i-1)*64
1040 readm,pc(i),m1(i),m2(i):m(i)=mand1:fork=0to63:readm:pokead+k,m:next:next
1050 vc=53248:pokevc+39,pc(1):pokevc+40,pc(9):pokevc+41,pc(1):pokevc+42,pc(1)
1060 pokevc+37,m1(1):pokevc+38,m2(1):pokevc+23,0:pokevc+29,0
1070 pokevc+28,1:return
1100 n=14
1120 a=800
1125 restore:fori=1to1088:readm:next
1130 fori=1ton:ad=a*64+(i-1)*64
1140 readm,pc(i),m1(i),m2(i):m(i)=mand1:fork=0to63:readm:pokead+k,m:next:next
1170 pokevc+28,0
1180 pokef1,32:pokef2,33:pokef3,34:pokef4,35
1190 pokex1+1,113:pokex2+1,113:pokex3+1,113:pokex4+1,113
1200 return
2000 print"[147][213]pon awakening, after being gassed,"
2005 poke53280,0:poke53281,0
2010 print"     one foolhardy soul is found"
2020 print"       alone in a strange maze,
2030 [153]"  without bullets, grenades, or food.
2040 print"     [210]emember: [208]ress ([200]) for help"
2050 return
11300 printtab(7)"([210])everse direction"
11301 printtab(7)"([211])top
11302 [153][163]7)"((NULL))iew reverse
11303 printtab(7)"([215])alk
11304 [153][163]7)"((NULL))uit
11305 return
50000 data 129,1,5,6,0
50010 data 160,0,2,168,0
50020 data 0,160,0,0,160
50030 data 0,0,32,0,0
50040 data 84,0,0,85,0
50050 data 1,85,0,1,81
50060 data 0,8,81,0,0
50070 data 82,0,0,240,0
50080 data 0,240,0,3,240
50090 data 0,3,252,0,15
50100 data 60,0,15,12,0
50110 data 8,15,0,8,2
50120 data 0,40,2,0,0
50130 data 10,0,0,129,1
50140 data 5,6,0,160,0
50150 data 2,168,0,0,160
50160 data 0,0,160,0,0
50170 data 32,0,0,84,0
50180 data 0,85,0,1,85
50190 data 0,1,85,0,8
50200 data 81,0,0,82,0
50210 data 0,248,0,0,240
50220 data 0,0,240,0,3
50230 data 240,0,3,240,0
50240 data 3,60,0,2,60
50250 data 0,2,8,0,10
50260 data 8,0,0,40,0
50270 data 0,129,1,5,6
50280 data 0,160,0,2,168
50290 data 0,0,160,0,0
50300 data 160,0,0,32,0
50310 data 0,84,0,0,84
50320 data 0,0,84,0,0
50330 data 84,0,1,84,0
50340 data 2,20,0,0,44
50350 data 0,0,60,0,0
50360 data 240,0,0,240,0
50370 data 0,240,0,0,60
50380 data 0,0,32,0,0
50390 data 168,0,0,136,0
50400 data 2,128,0,0,129
50410 data 1,5,6,0,160
50420 data 0,2,168,0,0
50430 data 160,0,0,160,0
50440 data 0,32,0,0,84
50450 data 0,1,85,0,1
50460 data 85,0,4,84,64
50470 data 4,84,64,32,84
50480 data 64,0,60,64,0
50490 data 60,128,0,60,0
50500 data 0,60,0,0,15
50510 data 0,0,15,0,0
50520 data 15,0,0,34,0
50530 data 0,32,128,0,162
50540 data 128,0,129,1,5
50550 data 6,0,160,0,2
50560 data 168,0,0,160,0
50570 data 0,160,0,0,128
50580 data 0,1,80,0,5
50590 data 80,0,5,84,0
50600 data 4,84,0,4,82
50610 data 0,8,80,0,0
50620 data 240,0,0,240,0
50630 data 0,252,0,3,252
50640 data 0,3,207,0,3
50650 data 15,0,15,2,0
50660 data 8,2,0,8,2
50670 data 128,10,0,0,0
50680 data 129,1,5,6,0
50690 data 160,0,2,168,0
50700 data 0,160,0,0,160
50710 data 0,0,128,0,1
50720 data 80,0,5,80,0
50730 data 5,84,0,5,84
50740 data 0,4,82,0,8
50750 data 80,0,2,240,0
50760 data 0,240,0,0,240
50770 data 0,0,252,0,0
50780 data 252,0,3,204,0
50790 data 3,200,0,2,8
50800 data 0,2,10,0,2
50810 data 128,0,0,129,1
50820 data 5,6,0,160,0
50830 data 2,168,0,0,160
50840 data 0,0,160,0,0
50850 data 128,0,1,80,0
50860 data 1,80,0,1,80
50870 data 0,1,80,0,1
50880 data 84,0,1,72,0
50890 data 3,128,0,3,192
50900 data 0,0,240,0,0
50910 data 240,0,0,240,0
50920 data 3,192,0,0,128
50930 data 0,2,160,0,2
50940 data 32,0,0,40,0
50950 data 0,129,1,5,6
50960 data 0,160,0,2,168
50970 data 0,0,160,0,0
50980 data 160,0,0,128,0
50990 data 1,80,0,5,84
51000 data 0,5,84,0,17
51010 data 81,0,17,81,0
51020 data 17,80,128,19,192
51030 data 0,35,192,0,3
51040 data 192,0,3,192,0
51050 data 15,0,0,15,0
51060 data 0,15,0,0,8
51070 data 128,0,32,128,0
51080 data 40,160,0,0,128
51090 data 1,0,0,0,95
51100 data 128,7,255,48,