home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 January
/
Ahoy_Magazine_85-01_1985_Double_L.d64
/
alice
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
347 lines
5 rem alice
10 poke53280,0:poke53281,0:print"[147][129]":fori=1to7:print:next
15 printtab(15)"[213][201][176] [178][213][201][176][174]":printtab(15)"[171][179][221] [221][221] [171]":printtab(15)"[189][173][173][189][177][202][203][173][189]"
17 print:printtab(15)"by spirko":se=54272:pokese+24,15
20 dimr$(5,5,5),px(12),py(12),sp(12),k$(12),a(15),b(15),c(15)
30 deffnr(r)=s(0)+s(1)+s(2)+s(3)+s(4)+s(5)+s(6)+s(7):oo=int(14*rnd(0))+1
35 fori=1to6:sp(i+6)=2+2*i:next
40 gosub1700:gosub2000:deffnx(r)=r(3)+r(4)+r(6)+r(7)
47 fori=0to5:readl$(i):next:fori=1to4:readdr$(i):next
48 fori=1to4:readq$(i):next
50 g1=1472:g2=1730
55 fori=1to12:readpx(i),py(i):next:fori=7to12:readk$(i):next
60 fori=1to15:reada(i),b(i),c(i):next:fori=1to3:readj,st$(j):next
61 forz=0to5:fory=0to5:forx=0to5:readr$(x,y,z):l=asc(left$(r$(x,y,z),1))
62 ifl>77andl<84thengosub1500
64 nextx,y,z:x=4:y=5:z=0
65 print"[147][155]":print:print:print"is this a[167]n[146]ew game or a[167]c[146]ontinuation?"
66 geta$:ifa$=""then66
67 ifa$="c"then700
69 print"[147]":print:print:printtab(12)"[159]right [170]>[146][180]"
70 printtab(12)"left [167]<[146][165]":printtab(12)"up [167]x[146][165]"
71 printtab(12)"down [170]z[146][165]":printtab(12)"quit [167]f1[146][165]"
72 printtab(12)"yes [170]space[146][180]":printtab(12)"no any key"
80 print:print:print:print:printtab(11)"[155][170]f1[146][180] slow"
81 printtab(11)"[170]f3[146][165] medium":printtab(11)"[170]f5[146][165] fast"
85 print:printtab(12)"[155]what speed? [150]";
86 print"[214][157]";:geta$:print"[219][157]";:ifa$=""then86
87 ifa$="[133]"thensp=4:goto90
88 ifa$="[134]"thensp=5:goto90
89 sp=7
90 forh=1to4:readl:fori=ltol+62:readj:pokei,j:nexti,h
100 print"[147][129][177][219][219][178][177][179][146] [171][177][219][178][177][219]"
101 print"[219][157][178][157][171][157][219][157][177][157][179][157][219][157][171][157][221][157][178][157][219][157][177][157][171][157][219][157][173]";
102 print"[157][179][219][177][219][179][179][177][192][177][178][171][178][177][219][189]";
103 print"[219][145][157][178][145][157][219][145][157][171][145][157][177][145][157][178][145][157][179][145][157][219][145][157][221][145][157][171][145][157][177][145][157][171][145][157][219][145][157][177][145][157][219][145][157]"
105 v=53248:v2=v+2:v3=v+3:vc=v+31:pokev+37,1:pokev+38,10
115 s(1)=2:poke2041,13:pokev+28,3:pokev+40,14
116 pokev+2,px(5):pokev+3,py(5):fori=1to1500:next
120 pokev+41,10:poke2042,14:pokev+42,5:poke2043,14
130 pokev+43,4:poke2044,14:pokev+44,14:poke2045,14
135 pokev+45,7:poke2046,14:poke2047,14:pokev+46,1
217 lp$="[155]"
220 print"[158]"tab(26)"map level"
222 qp$=""
224 printqp$"[145][164][164][164][157][157][157][157][170][180][157][157][157][157][157][170][180][157][157][157][157][157][167][165][157][157][157][157][163][163][163]"
225 sp$="[159]"
226 print""tab(26);:gosub230
228 print""tab(26);:gosub230:goto250
230 print"[152][176][192][192][174][176][192][192][174][176][192][192][174][157][157][157][157][157][157][157][157][157][157][157][157][221] [221][221] [221][221] [221][157][157][157][157][157][157][157][157][157][157][157][157][221] [221][221] [221][221] [221]";
232 print"[157][157][157][157][157][157][157][157][157][157][157][157][173][192][192][189][173][192][192][189][173][192][192][189]":return
250 print"[158]"tab(22)"gold":lc=54272
260 ifgs>0thenfori=1togs:pokeg2+i,81:pokeg2+i+lc,7:next
300 er$=" ":er$=sp$+er$+er$
440 ax=px(5):ay=py(5):pokev+21,fnr(r):pokev+16,fnx(r)
450 fore=7to12:ifs(e-5)>0thenpokev+sp(e),px(e):pokev+sp(e)+1,py(e)
460 next
500 printer$:gosub1100:gosub1200:ifsk=0thengosub600
502 ifsk=1then510
505 gosub1000
510 sk=0:printer$:s(1)=0:s(0)=0:pokev+21,fnr(r):gosub1400
515 gosub1300:ifnd=0then500
520 k=nd-(nd<3)*2+(nd>2)*2:ax=px(k):ay=py(k)
530 ax=px(k):ay=py(k):y=y+(nd=1)-(nd=3):x=x-(nd=2)+(nd=4):goto500
600 s(1)=2:pokev2,ax:pokev3,ay:pokev+21,fnr(r)
610 fori=1to24step2:nx=i*(nd=4)-i*(nd=2):ny=i*(nd=1)-i*(nd=3)
620 pokev2,ax+nx:pokev3,ay+ny:next
625 ax=nx+ax:ay=ay+ny:return
700 print:print:print"are you using t[146]ape or d[146]isk?"
702 getb1$:on -(b1$="")goto702:ifb1$="d"thenb1=2:goto760
704 b1=1:print"[147]"
708 print:print:print"load continuation":print
710 open1,1,0,"continuation"
720 input#b1,sp,oo,gs,x,y,z,r(3),r(4),r(6),r(7)
730 fori=2to7:input#b1,s(i):next
735 fori=2to7:input#b1,d$(i):next
740 forc=0to5:forb=0to5:fora=0to5:input#b1,r$(a,b,c):nexta,b,c
750 closeb1:ifb1=1then:goto90
752 open15,8,15:input#15,e1$,e2$,e3$,e4$:close15:e1=val(e1$):ife1<20thengoto90
754 print"[147]disk error":printe1$,e2$,e3$,e4$:end
760 print:print"loading please wait...."
762 open2,8,2,"0:continuation,s,r":goto720
800 pokev+21,0:print"[147][155]":print:print" do you wish to
801 [153]:[153]"thencwaitontinue this game orthennwaitot?":[153]:[153]
805 [161]a$:[139]a$[178]""[167]805
806 [139]a$[179][177]"c"[167][128]
810 [153]"save to twaitape or dwaitisk?":[153]:[153]
812 [161]b1$:[145] [171](b1$[178]"")[137]812:[139]b1$[178]"d"[167]b1[178]2:[137]870
814 b1[178]1:[153]"load"
820 [153]"save continuation":[153]:[153]
825 [159]1,1,1,"continuation":c$[178][199](13)
830 [152]b1,sp;c$;oo;c$;gs;c$;x;c$;y;c$;z
835 [152]b1,r(3);c$;r(4);c$;r(6);c$;r(7)
840 [129]i[178]2[164]7:[152]b1,s(i):[130]
845 [129]i[178]2[164]7:[152]b1,d$(i):[130]
850 [129]c[178]0[164]5:[129]b[178]0[164]5:[129]a[178]0[164]5:[152]b1,r$(a,b,c):[130]a,b,c
860 [152]b1:[160]b1:[139]b1[178]1[167] [128]
862 [152]15,"v":[160]15:[128]
870 [153]:[153]"saving to disk...."
872 [159]15,8,15,"s0:continuation":[159]2,8,2,"0:continuation,s,w":c$[178][199](13)
874 [137]830
1000 ny[178]0:nx[178]0:[139]s(3)[177]0[176]s(7)[177]0[167][141]1600
1005 p[178][194](vc):[139]p[178]2[167]1030
1008 [161]m$:[139]m$[179][177]""[167]1040
1010 ay[178]ay[170]ny[172][182](p[179][177]2):ax[178]ax[170]nx[172][182](p[179][177]2):[151]v2,ax:[151]v3,ay
1015 nd[178][171](ay[179]65)[171]2[172](ax[177]150)[171]3[172](ay[177]175)[171]4[172](ax[179]35):[139]nd[177]0[167][142]
1020 [137]1005
1030 ax[178]ax[171]nx:ay[178]ay[171]ny:[151]v2,ax:[151]v3,ay
1040 ny[178]sp[172](m$[178]"x")[171]sp[172](m$[178]"z"):nx[178]sp[172](m$[178]",")[171]sp[172](m$[178]".")
1045 [139]m$[178]"input"[167]800
1050 [137]1010
1100 r$[178]r$(x,y,z):[129]i[178]1[164]4:pd(i)[178][197]([202](r$,i[170]1,1))
1115 [139](s(3)[177]0[176]s(7)[177]0)[175]i[178]k[167]pd(i)[178]1
1116 [153]pd$(i);:[145]pd(i)[170]1[137]1120,1130,1140,1145
1120 [153]wd$(i):[137]1147
1130 [153]od$(i):[137]1147
1140 [153]gd$(i):[137]1147
1145 [153]sd$(i)
1147 [130]:[153]lp$;l$(z)
1150 [153]qp$[166]x1);:q$[178]" ":[145]y1[170]1[141]1170,1180,1190
1151 x1[178][181](x[173]2):y1[178][181](y[173]2):x2[178]x[171]x1[172]2:y2[178]y[171]y1[172]2
1152 qs[178](x2[178]0[175]y2[178]0)[170]2[172](x2[178]1[175]y2[178]0)[170]3[172](x2[178]0[175]y2[178]1)[170]4[172](x2[178]1[175]y2[178]1)
1160 q$[178]q$([182](qs))
1165 [153]qp$[166]x1);:[145]y1[170]1[141]1170,1180,1190:[142]
1170 [153]q$:[142]
1180 [153]""q$:[142]
1190 [153]""q$:[142]
1200 e$[178][200](r$(x,y,z),1):[139]e$[178]"0"[167][142]
1210 e[178][198](e$)[171]48:[129]u[178]1[164]10:[151]se[170]u,0:[130]
1220 [145]e[137]2100,2200,2300,2400,2500,2600,2800
1225 [145]e[171]16[137]3100,3200,2900,3300,3200,3200
1230 e[178]e[171]23:[137]2700
1300 [153]"";:[129]m[178]1[164]14:[153]" "[166]26);:[130]:[142]
1400 [129]u[178]0[164]10:[151]se[170]u,0:[130]
1410 [151]se,80:[151]se[170]1,33:[151]se[170]5,72:[151]se[170]22,104:[151]se[170]4,33
1420 [129]o[178]1[164]200:[130]:[151]se[170]4,32:[142]
1500 d$(l[171]76)[178][201]([196](x),1)[170][201]([196](y),1)[170][201]([196](z),1):[142]
1600 [139]s(7)[177]0[167]dn[178]3:[141]1680
1610 [139]s(3)[177]0[167]dn[178]2:[141]1680
1620 [142]
1650 [129]u[178]0[164]10:[151]se[170]u,0:[130]
1660 [151]se[170]1,60:[151]se[170]5,128:[151]se[170]4,129
1670 [129]o[178]0[164]50:[130]:[151]se[170]4,128:[142]
1680 [129]i[178]1[164]4:[139]pd(i)[178]dn[167][153]pd$(i)od$(i):[141]1650
1690 [130]:[142]
1700 pd$(1)[178]"":pd$(2)[178]""
1710 pd$(3)[178]"":pd$(4)[178]""
1715 od$(1)[178]" ":od$(3)[178]od$(1):od$(2)[178]" cmd cmd cmd ":od$(4)[178]od$(2)
1720 wd$(1)[178]"for>=(NULL)>wait":wd$(3)[178]wd$(1):wd$(2)[178]"for-cmd(NULL)cmd<cmd-wait":wd$(4)[178]wd$(2)
1725 gd$(1)[178]"printandandandandwait":gd$(2)[178]"printfncmdfncmdfncmdfnwait":gd$(3)[178]"printusrusrusrusrwait"
1730 gd$(4)[178]"print+cmd+cmd+cmd+wait"
1735 sd$(1)[178]"andandandandwait":sd$(2)[178]"fncmdfncmdfncmdfnwait":sd$(3)[178]"usrusrusrusrwait"
1740 sd$(4)[178]"+cmd+cmd+cmd+wait":[142]
1900 [129]u[178]1[164]23:[151]se[170]u,0:[130]:[151]se[170]1,130:[151]se[170]5,9:[151]se[170]15,30
1910 [151]se[170]4,21:[129]t[178]1[164]500:[130]:[151]se[170]4,20:[151]se[170]24,15:[142]
2000 e$(1)[178]"totocmdcmdcmdthen(NULL)then(NULL)cmdcmd(NULL)(NULL)"
2004 el$[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
2020 e$(2)[178]"sys(NULL)right$(NULL)right$cmdcmdcmdcmd(NULL)(NULL)(NULL)macduchess"[170]el$
2021 e$(2)[178]e$(2)[170]"cmdchr$left$chr$left$defabs over 6waitget"[170]el$[170]"syscmd(NULL)(NULL)(NULL)(NULL)defabsbillionwaitget"[170]el$
2022 e$(2)[178]e$(2)[170]"cmdsysfnthenfnthendefabs servedwaitget"
2030 e$(5)[178]"print#andandandandandandandandcmdcmdcmdcmdcmdcmdcmdcmdcmdthen mad waitfncmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
2031 e$(5)[178]e$(5)[170]"thenhatter'swaitfncmdcmdcmdcmdcmdcmdcmdcmdcmdcmdthenteahousewaitfncmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
2032 e$(5)[178]e$(5)[170]"cmdnewnewnewnewnewnewnewnewnewnewnewnewwait"
2050 e$(6)[178]"*newnewnewnewnewnewnewnewnewnewnewrndcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdgetcarpenter'swaitgetcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
2051 e$(6)[178]e$(6)[170]"getright$ seafood (NULL)waitgetcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdgetmid$ diner (NULL)waitget"
2099 [142]
2100 [153]"defortantantantantantan^cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdcmdcmdcmdcmdtancmdcmd/";
2105 [153]"oncmd(NULL)oncmd(NULL)oncmd(NULL)oncmd(NULL)oncmd(NULL)oncmd(NULL)":[141]600:sk[178][171]1
2110 [139]s(2)[178]0[167][153]sp$"sorry alice, but you need a key"
2111 [139]s(2)[178]0[167][129]a[178]1[164]1200:[130]:[141]1300:[142]
2115 [153]sp$"do you want to use the elevator?"
2120 [161]a$:[139]a$[178]""[167]2120
2121 [139]a$[179][177][199](32)[167]e[178]0:[153]er$:[141]1300:[142]
2125 [153]er$sp$"what level?"
2140 [151]v[170]2,px(5)[171]16:[151]v[170]3,py(5)[171]16
2142 [161]a$:[139]a$[178]""[167]2142
2145 [139][198](a$)[177]48[175][198](a$)[179]55[167]nl[178][197](a$)[171]1:[153]er$:[137]2160
2150 [137]2142
2160 [129]l[178]z[164]nl[169].1[172](1[170]2[172](z[177]nl)):[151]se[170]4,17
2180 [151]se[170]5,8:[151]se[170]6,8:[151]se[170]1,l[172]20:[151]se,250[171]l[172]5:[153]lp$;l$([181](l)[170]1)
2190 [129]o[178]1[164]25:[130]::[151]se[170]4,0:[130]:nd[178]0:z[178]nl:sk[178][171]1
2195 ax[178]px(5)[171]16:ay[178]py(5)[171]16:[141]1300:s3[178]s(3):s(3)[178]0:[141]1100:s(3)[178]s3:[142]
2200 [153]""[163]3)"listnewcmd";:[129]o[178]1[164]4:[153]"(NULL)logcmdwait";:[130]:q[178]1:[137]2315
2250 [129]l[178]25[164]45[170]40[172](q[178][171]1)[169]2[170]4[172](q[178][171]1):[151]se[170]4,33
2280 [151]se[170]5,8:[151]se[170]6,32:[151]se[170]1,l:[151]se,100[171]l
2290 [129]d[178]1[164]80:[130]:[151]se[170]4,0:[130]:nd[178]0:k[178]5:[142]
2300 [153]""[163]12)"listnewcmdwait";:[129]o[178]1[164]4:[153]"(NULL)logcmdwait";:[130]:q[178][171]1
2315 [141]600:[153]sp$"do you wish to use the stairs?"
2320 [161]a$:[139]a$[178]""[167]2320
2330 [139]a$[179][177][199](32)[167][153]er$:sk[178][171]1:[142]
2345 z[178]z[170]q:[153]er$:s(1)[178]0:[151]v[170]21,[165]r(r):[141]2250:[151]v2,px(5):[151]v3,py(5)
2347 k[178]5:ax[178]px(k):ay[178]py(k):nd[178]0:[141]1300:e[178]0:[141]1100:s(1)[178]2:sk[178][171]1
2350 [151]v[170]21,[165]r(r):[142]
2360 [137]2320
2400 [135]l:[129]i[178]l[164]l[170]62:[135]j:[151]i,j:[130]:[151]2040,15:s(0)[178]1:[151]v,px(1)[170]1
2410 [151]v[170]1,py(1)[170]15:[151]v[170]39,12:[151]v[170]28,3:[151]v[170]21,[165]r(r):[141]600
2420 [153]sp$"alice!! you found the white rabbit!":[141]2460
2450 [141]1900:[153]"onononon":[128]
2460 [129]l[178]1[164]15:[151]se[170]4,33
2480 [151]se[170]5,8:[151]se[170]6,32:[151]se[170]1,30:[151]se,100
2490 [129]d[178]1[164]40:[130]:[151]se[170]4,32
2495 [151]se[170]5,64:[151]se[170]6,8:[151]se[170]1,20:[129]c[178]1[164]40:[151]se,c:[130]:[130]:[142]
2500 [153]"cont*"[166]10)"rndcmdcoscmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdlog":[139]s(5)[177]0[167][142]
2503 [141]600:[153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
2505 [153]"(NULL)on(NULL)on(NULL)on(NULL)on(NULL)on(NULL)on(NULL)on(NULL)on(NULL)on(NULL)":[151]v[170]2,px(5):[151]v[170]3,py(5)
2510 nd[178]0:[141]2550:[141]2580:z[178]z[171]1:nd[178]0:sk[178][171]1:[139]gs[178]0[167]2535
2530 p[178][187](0):[139]p[179].7[167][151]g2[170]gs,32:gs[178]gs[171][182](gs[179][177]0):[141]2640
2532 [139]p[179].7[167][153]sp$"you lost a gold coin!":[129]i[178]1[164]700:[130]
2535 ax[178]px(5):ay[178]py(5):[153]er$
2540 [141]1300:s3[178]s(3):s(3)[178]0:s7[178]s(7):s(7)[178]0
2545 [141]1100:s(3)[178]s3:s(7)[178]s7:[141]1200:[142]
2550 [129]u[178]z[164]z[171]1[169][171].2:[151]se[170]4,33
2560 [151]se[170]5,8:[151]se[170]6,8:[151]se[170]1,u[172]20:[151]se,250[171]u[172]5
2565 [153]lp$;l$([181](u[170]1))
2570 [129]d[178]1[164]25:[130]:[151]se[170]4,0:[130]:[142]
2580 [129]u[178]0[164]23:[151]se[170]u,0:[130]
2585 [151]se,80:[151]se[170]1,33:[151]se[170]5,72:[151]se[170]22,104:[151]se[170]4,129
2590 [151]se[170]24,79:[129]o[178]1[164]350:[130]:[151]se[170]4,128:[151]se[170]24,15:[141]1300:[142]
2600 [153]"clr(NULL)(NULL)cmd(NULL)cmdcmdcmdcmdcmdcmdcmdcmd(NULL)wait"
2603 [139]s(4)[177]0[167][142]
2604 [141]600:[153]sp$"looking glass room!":[141]2680:[129]u[178]1[164]200:[130]
2605 [151]v[170]2,px(5):[151]v[170]3,py(5):[153]"clr"[163]8);
2607 x[178][181](5[172][187](0)):y[178][181](5[172][187](0)):z[178][181](5[172][187](0))
2608 [139]x[178]1[175]y[178]5[175](y[178]3[176]y[178]4)[167]2607
2610 [129]i[178]1[164]4:[153]"(NULL)";:[141]2640:[130]:[153]"";:[129]i[178]1[164]4:[153]"(NULL)cmd";
2615 [141]2640:[130]:[153]"cmd";:[129]i[178]1[164]4:[153]"(NULL)cmdcmd";:[141]2640:[130]:[153]"on";
2620 [129]i[178]1[164]4:[153]"(NULL)oncmd";:[141]2640:[130]:s(1)[178]0:[151]v[170]21,[165]r(r):nd[178]0:k[178]5
2625 ax[178]px(5):ay[178]py(5)
2630 [141]2680:[129]t[178]1[164]200:[130]:s(1)[178]2:[151]v[170]21,[165]r(r)
2632 [129]t[178]1[164]200:[130]:[141]1300:[153]er$
2635 s3[178]s(3):s(3)[178]0:s7[178]s(7):s(7)[178]0:[141]1100:s(3)[178]s3:s(7)[178]s7
2637 [141]1200:sk[178][171]1:[142]
2640 [151]se[170]5,128:[151]se[170]4,33
2650 [151]se[170]1,100:[151]se,45:[129]t[178]1[164]99:[130]:[151]se[170]4,32:[129]t[178]1[164]90:[130]:[142]
2680 [151]se,210:[151]se[170]1,140:[151]se[170]5,15:[151]se[170]4,129
2690 [129]o[178]0[164]150:[130]:[151]se[170]4,32:[142]
2700 f[178]e[171]5:[151]v[170]sp(e),px(5):[151]v[170]sp(e)[170]1,py(5):s(f)[178]2[174](f):r(f)[178]0
2705 [151]v[170]21,[165]r(r):[151]v[170]16,[165]x(r):r$(x,y,z)[178]"0"[170][201](r$(x,y,z),4):[141]600
2710 [153]sp$"you found the "k$(e)"!":[129]i[178]1[164]600:[130]:r(f)[178]s(f)
2715 [151]v[170]16,[165]x(r):[151]v[170]sp(e),px(e)
2720 [151]v[170]sp(e)[170]1,py(e):[141]1900:sk[178][171]1:[142]
2800 s(0)[178]1:[151]v[170]1,py(4)[171]10:[151]v[170]30,0:[151]v,0
2805 [151]v[170]28,3:[151]v[170]39,7:[151]2040,11:[151]v[170]21,[165]r(r):[141]600
2808 [139](x[178]0[175]y[178]0)[176](x[178]1[175]y[178]5[175](z[178]3[176]y[178]4))[167]2607
2810 o[178]oo:sl[178][181](6[172][187](0))[170]7:[139]sl[178]11[167]sl[178]12
2811 [129]i[178]5[164]155[169]5:[151]v,i
2812 [151]se[170]1,160:[151]se[170]5,64:[151]se[170]4,129
2814 [129]j[178]0[164]10:[130]:[151]se[170]4,128
2815 [139]([194](v[170]30)[175]3[178]3)[167][141]2870
2820 [130]:[151]v[170]21,[165]r(r)
2825 [139]sv[179][177]0[167]r$(a(o),b(o),c(o))[178][199](sv[170]76)[170][201](r$(a(o),b(o),c(o)),4)
2830 [139]sv[179][177]0[167][153]sp$"the gryphon stole your list"k$(sv[170]5)"open!"
2832 a$[178][201]([196](a(o)),1):b$[178][201]([196](b(o)),1):c$[178][201]([196](c(o)),1)
2835 s(0)[178]0:[151]v[170]21,[165]r(r):d$(sv)[178]a$[170]b$[170]c$:sv[178]0:sk[178][171]1:[142]
2870 [139]s(sl[171]5)[178]0[176]s(6)[177]0[167][142]
2875 [141]2640:sv[178]sl[171]5:s(sl[171]5)[178]0:r(sl[171]5)[178]0:[151]v[170]21,[165]r(r):oo[178]oo[170]1[170]15[172](oo[178]15)
2880 [142]
2900 [151]v[170]28,2:[151]v[170]39,8:[151]2040,15
2910 s(0)[178]1:[151]v[170]21,[165]r(r):[151]v[170]1,py(5):[151]v,px(5):[141]600:sk[178][171]1
2920 [129]i[178]1[164]3:f(i)[178][197]([202](d$(z[170]2),i,1)):[130]
2930 dr[178](f(1)[179]3[175]f(2)[179]3)[170](f(1)[177]2[175]f(2)[179]3)[172]2[170](f(1)[179]3[175]f(2)[177]2)[172]3
2935 dr[178]dr[170]4[172](f(1)[177]2[175]f(2)[177]2)
2950 [139]s(z[170]2)[177]0[167][153]sp$"'i see you have the list"k$(z[170]7)"open!'":[142]
2952 [153]sp$"'you'll find the list"k$(z[170]7)
2955 [153]sp$"in the sys"dr$([182](dr))"open section on levelsys"[196](f(3)[170]1)"open'":[142]
3100 [153]e$(e[171]16):e[178]0:[142]
3200 [153]e$(e[171]16):sk[178][171]1:[141]600:[139]gs[177]0[167][153]sp$;st$(e[171]16)
3202 e[178]0:[139]gs[178]0[167][153]sp$"sorry, little girl, but you need gold":[142]
3205 [151]g2[170]gs,32:gs[178]gs[171]1:[141]2640:[142]
3300 [151]g1,81:[151]g1[170]lc,7:[141]600:[153]sp$"you found a gold coin!":sk[178][171]1
3310 gs[178]gs[170][182](gs[177][171]1):[151]g1,32:[151]g2[170]gs,81:[151]g2[170]gs[170]lc,7:[141]1900
3320 r$(x,y,z)[178]"0"[170][201](r$(x,y,z),4)
3330 [139]gs[179]10[167]:[142]
3335 gs[178]0:[129]j[178]2[164]7:[139]s(j)[178]0[167]3350
3340 [130]j:[129]i[178]10[164]1[169][171]1:[151]g2[170]i,32:[141]2640:[130]
3342 [153]sp$"alice! the white rabbit is in"
3345 [153]sp$"the sys"dr$(3)"open section on levelsys"a(11):[142]
3350 s(j)[178]2[174]j:[151]v[170]sp(j[170]5),px(j[170]5):[151]v[170]sp(j[170]5)[170]1,py(j[170]5):r(j)[178]s(j)
3355 [151]v[170]16,[165]x(r):[129]i[178]10[164]1[169][171]1:[151]g2[170]i,32:[141]2640:[130]
3360 a[178][197]([200](d$(j),1)):b[178][197]([202](d$(j),2,1)):c[178][197]([201](d$(j),1))
3365 r$(a,b,c)[178]"0"[170][201](r$(a,b,c),4):[151]v[170]21,[165]r(r):[141]1900
3370 [153]er$sp$"you just bought the list"k$(j[170]5)
3380 r$(x,y,z)[178]"0"[170][201](r$(x,y,z),4):[142]
9000 [131]" ^cmdcmd (NULL)cmdcmd >","(NULL)right$cmdcmd(NULL)(NULL)cmdcmd/exp","(NULL)right$cmdcmd <cmdcmdmid$(NULL)"
9005 [131]"(NULL)^cmdcmd/(NULL)cmdcmd >","or^cmdcmd/right$cmdcmdmid$(NULL)","(NULL)right$cmdcmd-right$cmdcmdmid$(NULL)"
9100 [131]nw,ne,sw,se
9200 [131]"cos","log","rnd","*"
9550 [131]92,68,152,120,92,172,38,120,92,120,92,160,237,120,12,120,45,120
9551 [131]237,152,12,152,45,152
9560 [131] elevator key,green key, lookingglass key
9561 [131]key for the pits,gryphon key,white key
9570 [131]0,4,0,3,0,3,1,1,4,1,5,1,5,4,2,1,5,5,5,5,4,1,1,0,5,0,2,5,5,3
9571 [131]4,3,0,5,0,5,0,5,4,2,0,2,5,4,1
9580 [131]2,have a hamburger and fries!,5,you must be thirsty!
9581 [131]6,eat an oyster for dinner!
9610 [131]10110,00121,d0111,00011,d0030,00000
9611 [131]01120,d2001,01110,71101,63201,r0002
9612 [131]02130,e0121,01211,00112,00111,00011
9613 [131]03120,62211,c1102,01021,d1000,01010
9614 [131]d2130,21211,d0202,02112,00111,01021
9615 [131]03000,01100,70101,d1001,a1000,02000
9620 [131]10120,00011,50030,50110,20111,00011
9621 [131]02200,01012,63100,d1111,01021,01010
9622 [131]b0100,01111,00101,c1201,02112,01021
9623 [131]d0000,d1110,70121,00211,01112,n2011
9624 [131]00110,31201,02002,01110,01011,d1020
9625 [131]01100,d0301,00103,d1101,51101,d2001
9630 [131]10110,00201,d0102,00011,30010,d0010
9631 [131]01110,d0101,c0111,01101,01111,01011
9632 [131]51220,d0012,01110,70121,01011,61000
9633 [131]22110,01101,01211,d2102,01131,f0011
9634 [131]d1120,50111,01001,00000,03210,d1002
9635 [131]02000,01200,s0002,d0100,51301,b0003
9640 [131]10110,00101,00111,d0101,60311,d0003
9641 [131]01220,c0012,01010,00120,01001,50010
9642 [131]d2010,01110,d1111,o2221,00312,d1013
9643 [131]31120,01011,51220,d2102,71101,01011
9644 [131]62110,01101,02101,20121,f0121,01011
9645 [131]01000,40000,e0300,52103,02201,d1002
9650 [131]10110,00101,20011,d0000,50130,f0001
9651 [131]01010,d0100,01111,70101,03201,q0022
9652 [131]01110,50201,01122,d0121,e0101,02011
9653 [131]01120,d0101,02211,d2222,60102,d1011
9654 [131]c2110,70131,01011,32110,00111,01011
9655 [131]d1000,53000,01100,01201,d1002,01000
9660 [131]10120,00011,30110,b0111,00111,d0021
9661 [131]02110,01121,01111,d1001,01020,p2010
9662 [131]01210,62132,01121,00211,02212,01012
9663 [131]01010,d3000,c2020,01110,01031,d1010
9664 [131]01110,00111,02101,71121,03111,01001
9665 [131]51200,d1002,00000,d2100,51301,d0003
9700 [131]832,0,20,0,0,125,0,0,125,0,0,60,0,0,170,0,2,170,128,10,40,160
9701 [131]40,40,40,240,40,15,0,150,0,2,150,128,2,150,128,10,150,160,10,170,160
9702 [131]10,170,160,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,170,0
9705 [131]896,0,0,0,0,0,0,0,24,0,0,60,0,0,102,0,0,102,0,0,126,0
9706 [131]0,60,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0
9707 [131]0,88,0,0,120,0,0,24,0,0,120,0,0,88,0,0,0,0,0,0,0
9715 [131]704,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,0,168
9716 [131]170,128,168,255,160,175,42,168,47,63,250,40,0,170,160,170,170,144
9717 [131]42,229,64,7,212,0,3,192,0,15,0,0,3,192,0,0,252,0
9720 [131]960,0,0,0,0,0,0,0,0,0,33,0,0,51,7,240,127,159,252,255,223,254,204,223
9721 [131]255,255,223,31,222,223,127,225,223,127,127,223,255,65,63,255,125,255
9722 [131]207,125,231,63,62,240,255,0,255,254,0,63,248,0,0,0,0,0,0,0,0,0
9800 [131]960,0,68,0,0,68,0,0,68,0,0,84,0,0,220,0,0,116,0
9802 [131]0,84,0,0,16,0,0,152,0,2,170,0,10,170,128,8,136,128
9804 [131]8,168,128,4,136,64,0,168,0,1,85,0,1,69,0,1,69,0
9806 [131]0,68,0,0,68,0,0,68,0