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