3D MAZE U******* 3D Maze ******* (c)1982 Phipps Associates  0::6500d e38&,21:0,60<:32 ,0:0,-60<:42*,513,2 66,8;2;1;"*** 3D MAZE ***" 6a$="How complex? (1-3)":9000(#:end9999' (&x=a$:x<1x>310 2h=x+3:w=h:v=h d 7000X ?i=110 :.05|L,10 :.05|L,15:i =a$="Play against time? (Y/N)":9000(#:clock=(¯a$="Y") 9a$="Show coordinates? (Y/N)":9000(#:dc=(¯a$="Y")  6800  6900 Vd(4,4):f(6):g(4,6):d$(6):t$(6,3) ^2000:i=14:j=14:d(i,j):j:j=16:g(i,j):j:i  i=16:t$(i):i  d=1  d$="7B85UD" $*23673y\,0:23672x\,0 .LT=0:LIMIT=240 8dcLIMIT=(LIMIT/2) Li=m$(z,y,x) Vp=50-1 `f(p+1)=(i/2^p) ji=i-f(p+1)*2^p t6700,:t5200P ~p  6500d !p=16:f(p)g(d,p) 6700,:t5200P p 6700,:t5200P Ndc#0;1,0;"Room: ";z;y;x;19;"Exit at: ";iz;iy;ix; x$=:ñx$1300 ("x$>96`x$=(x$-32 ) 2,p=16:x$d$(p)p:1300 7!p=2d=d(d,p):1100L <p<51400x F j=t$(p) Pf(p)1300 Uj=0j>v5000 Zz=j d 1100L xf(d(d,p))1300 j=t$(d(d,p)) j=0j>v50000P )t$(d(d,p),1)="x"x=j:1460 y=j  d=d(d,p)  1100L  b,f,r,1 c1,2,3,4,6000p,6600,62008,6100,6300,6400 c2,1,4,3,6600,6000p,6100,62008,6300,6400 c3,4,2,1,6100,62008,6000p,6600,6300,6400 c4,3,1,2,62008,6100,6600,6000p,6300,6400 4%"x-1","x+1","y-1","y+1","z-1","z+1" &j=-2020:.01z# =,j:j -:10 ,10 ;1;"YOU DID IT!" clock5100 "''"Time remaining:";t;" seconds" %t<10 "Phew! That was close." 0t10 t30"Pretty quick going..." ,t30"I don't know why I bother..." 4a$="Another go?":9000(#:¯a$"Y"9999' Xa$="Same maze? ":9000(#:¯a$="Y"d=-id:z=iz:y=iy:x=ix:6850:200  10 P&x=20-20:.01z# =,x:x ZC:10 ,14;"Sorry!"''4;"You've run out of time." d 5100 p]96`,67C:0,42*:64@,0:0,-42*:-64@,0 z^112p,77M:0,21:32 ,0:0,-21:-32 ,0 96`,67C:16,10 :96`,109m:16,-11 :160,109m:-16,-11 :160,67C:-16,10 7j=77M98b:112p,j:32 ,0:j  I0,44,:16,8:0,72H:-16,8 M16,524:-16,0:16,124|:-16,0  8K255,44,:-16,8:0,72H:16,8 BM239,524:16,0:239,124|:16,0 L L64@,175:8,-10 :112p,0:8,10 M72H,165:0,10 :184,165:0,10  J64@,0:8,10 :112p,0:8,-10  M72H,10 :0,-10 :184,10 :0,-10  d na0,175:255,0:0,-175:-255,0:0,175 xb32 ,155:192,0:0,-134:-192,0:0,134 0,175:32 ,-20:255,175:-32 ,-20:255,0:-32 ,21:0,0:32 ,21  ,time 6clockt=1: @'s=23672x\+256*23673y\ Jt=LIMIT-(s/502) T"#0;0,28;t;" " ^TLT.1}L,-8:LT=T h  choose exit  6900 ox=1,1,x=4,2,y=1,4,y=4,8,z=1,16,z=4,32  6820 +j=16:c,d:cj:6800 m$(z,y,x)=(m$(z,y,x)+d) ix=x:iy=y:iz=z:id=d  6x=(*w)+1:y=(*h)+1:z=(*v)+1  W Xcreate maze array m$ b018,9 ;"Wait ";v-1;" minutes" l+x-1,y,z,x>1,x+1,y,z,x1,x,y+1,z,y1,x,y,z+1,zx=a:y=b:z=c H 7200  @7020l:n=16:m=14:f(n,m):m:n n=16 ;j=(*6)+1:f(j,1)=-17320 f(j,4)7400 f(j,1)=-1 n  2m$(f(j,3),f(j,2),f(j,1))"z" <m$(f(j,3),f(j,2),f(j,1))=f$:r=r+1 1r$(r)=f(j,1)+f(j,2)+f(j,3)  LCx=r$(r,1):y=r$(r,2):z=r$(r,3):r=r-1 V7600:n `Hn=(*n)+1:a=n$(n,1):b=n$(n,2):c=n$(n,3) j 7700 tj=x:x=a:a=j ~j=y:y=b:b=j j=z:z=c:c=j  7700  7020l:n=0 j=16  a,b,c,d <dm$(c,b,a)"z"m$(c,b,a)f$n=n+1:n$(n)=a+b+c j  yj=(a-x0)+(a-x>0)+(b-y0)*4+(b-y>0)*4+(c-z0)*16+(c-z>0)*16 ,j=m$(z,y,x)+j:j>100dj=j-100d (m$(z,y,x)=j 2 #( line input #2(a$+" ");a$:end=ña$ #<8x=1̱a$:a$(x)=(a$(x)-32 *(a$(x)"a")):x #F ' n<#hwvG !. * "&! 1!( 2*1 #>  $ ҃* rFcbabcd locimipsvtAYU!}p8p88p8p 7B85UDx-1x+1y-1y+1z-1z+1X