3-D MAZE 1 m3  3-D MAZE   S.Robert Speel 7000X 1:5:3: 2-:9000(#+10 *di:f1,f2,l1,l2,r1,r2 <5x=1x=25y=1y=2590Z F9af=z$(x+f1,y+f2):al=z$(x+l1,y+l2):ar=z$(x+r1,y+r2) P,z$(x-f1,y-f2)="1"al+ar=1700 Z:80P,0:0,150:502,-502:502,502:0,-150:-502,100d:-502,-100d d6x=1x=25y=1y=25600X n&z$(x-f1,y-f2)="1"alar550& xf=100d1-2:130-f/2,100d-f:f,0:f:x=1x=25y=1y=25600X Wf=100d1-1.6L:130-f/2,f/2+100d:f,0:f al200 ar300, af500 1000 p90Z,20:0,120x:90Z,60<:20,0:0,60<:-20,0 /90Z,21:1;20,40( Kf=30-10 -2:90Z,502-f:30-f,0:f Af=201-1:90Z,140-f:f,0:f ar300, af400  350^ ,r170,20:0,120x:170,60<:-20,0:0,60<:20,0 61170,19:1;-20,40( @Lf=30-10 -2:170,F-502:f-30,0:f JCf=201-1:170,140-f:-f,0:f Taf450 ^ 1000 Jf=61=119w:1;110n,f:1;60<,0:f &150,60<:0,60<  1000 Jf=61=119w:1;110n,f:1;59;,0:f *al110n,60<:0,60<  1000 Jf=60<120x:1;110n,f:1;59;,0:f @f=110n1502:f,60<:0,60<:f 39 ,14;"DEAD";10 ,14;"END"  1000 &f=714:f,8;" ";f,21;" ":f:f=1421:f,0;6-(f>18)*3;" ":f 0Gf=2463?2:0,f:1;255,0:f :M0,0;:f=06:"":f Df=01:110n+f*40(,63?:0,579:f:f=60<100d2:80P+f/2,f:100d-f,0:f NRf=100d120x:230-f,f:f*2-200,0:f:1000 X4:f=10 0-10 :100d-f,20:0,80P+f:30+f,40(+f:30+f,-40(-f:0,-80P-f:f b8f=20100d:100d,f:60<,0:f laf=100d140:25+f*3/4,f:212-f*19/12.5H,0:f vSf=130:1;6;100d+*60<,20+*80P:f K0,0;"YOU HAVE REACHED THE EXIT."'"YOU TOOK"'c();"SECONDS. " ?F=10 67C:.1}L,f-502:f:2,18  '3+(*5);"Another game?" ="y".5,10 :: ="n".5,10 :  670 Pf=1921:f,0;3;" ":f cf=2463?2:al*(f/2+80P),f:180-f/2-al*5,0:f Lf=60<100d2:80P+f/2,f:100d-f,0:f Ff=100d120x:230-f,f:f*2-200,0:f Mf=120x140:al*(230-f),f:30+f-al*5,0:f e110n+al*40(,63?:0,568:170-al*80P,24:0,116t  1000 $"WHAT NEXT? ";a$:1,20 a$="o"1200 a$="l"1300 a$="r"1400x a$="re"1500 a$="c"1550 $a$="t"1600@ .a$="h"1700 8 1000 af1000 x=x+f1:y=y+f2  502 al1000 x=x+l1:y=y+l2 ('di=di+1:di>3di=0 2 502 xar1000 x=x+r1:y=y+r2 'di=di-1:di<0di=3  502 *di=di+2:di>3di=di-4  502 H1,1;x$(di*5+1di*5+5):1000 @J0,15;"TIME SO FAR";15;" = ";c();"SECS.":1000 "fp=25-(y<13 )*7 U:f=fpfp-17-1:g=125:g$=144:z$(g,f)="1"g$="" 4x=gy=f0;1;145;:1740 g$; g::f Q"You are at the figure, facing "'x$(di*5+1di*5+5);"."  1000 X" Corridors"''" Commands are:"''" on (o)"'" reverse (re)"'" left (l)"'" right (r)"'" compass (c)"'" time (t)"'" and help (h)." ] b@"Your aim is to exit the caves in the shortest possible time." @X5,18;1;"PLEASE WAIT"::z$(25,25):y$(5,5) J]f=1255:g=1255:23000Y+*295',*255 T$ax=1:<.5ax=5 ^%ay=1:ax=5ay=-1 h$bx=1:<.5bx=5 r%by=1:bx=5by=-1 |#8200 +(*10 )*502 Mj=04:k=04:z$(f+j,g+k)=y$(j*ay+ax,k*by+bx):k:j g:f:8200 Jj=15:z$(10 +j,11 15)=y$(j):j:8800`" %h=15:y$(h)="11011":h y$(3)="00000": :%h=15:y$(h)="11011":h Dy$(3)="11000": l.y$(1)="11111":y$(2)=y$(1) v.y$(4)="11011":y$(5)=y$(4) y$(3)="00000": 0y$(1)="11111":y$(2)=y$(1) .y$(4)="11011":y$(5)=y$(4) y$(3)="00011": 0y$(1)="11011":y$(5)=y$(1) .y$(2)="10001":y$(4)=y$(2) y$(3)="00100": !.y$(1)="11011":y$(5)=y$(1) ! *y$(2)="10101":y$(3)="00100" !y$(4)="10111": !4*y$(1)="11011":y$(2)="00101" !>*y$(3)="10100":y$(4)="10001" !Hy$(5)="11011": !f*y$(1)="11000":y$(2)="11010" !p*y$(3)="10001":y$(4)="00000" !zy$(5)="11011": !.y$(1)="11011":y$(5)=y$(1) !*y$(2)="10011":y$(3)="10100" !y$(4)="10001": !*y$(1)="11001":y$(2)="11100" !y$(5)="11011": "`x=13 :y=13 "j di=0 "tx$="Northwest Southeast." "~Pa()=((23672x\+256*23673y\+65536*23674z\)/502) ")b(x,y)=(x+y+(x-y))/2 "c()=b(a(),a()) "P9100#:f=01:g=07:a:(144+f)+g,a:g:f "2f=23674z\23672x\-1:f,0:f " #(20,1,-1,0,1,0 #23-1,0,0,-1,0,1 #<30,-1,1,0,-1,0 #F21,0,0,1,0,-1 #I195,129,0,0,0,0,129,195 #M568,568,16,124|,186,186,40(,108l v1101111011110111101111011100111100100000100011101110100001011000100100000111000110001010111000111011110111101100011110111101111011110111101111011110111101110001100011101111011000000010000100000000000011111100010011111011110111111111011100111101111011110111101111011111111111111011110111110111111111111100000000001000000011000110111101110101110111101111011110111101111011110111101111011110111100111011110111101110001111001000100011000000010110100101001101111011110011000100101110111101111011110111101111011 00000 10001 1100011010100010000011011JJ