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