labyrinth Y'Y'^['Ar()=(b$="O")+2*(b$="A")+3*(b$="Q")+4*(b$="P") :8000@ 23658j\,8 9000(#:9000(# ?21,0;1;" Press any key " (=""40( 2 0 <%n=621:n,0,,:n F010 ,1;"Press >Y< for instructions" P=""80P Z="Y"8200 db$="P":d=1:m=0 n!p=0:x=9 :y=1 x x1=x:y1=y 7:7:0: 500 9a$="O"b$=a$:d=-1:.2~L,10 :500 8a$="P"b$=a$:d=1:.2~L,10 :500 8a$="A"b$=a$:d=1:.2~L,10 :500 9a$="Q"b$=a$:d=-1:.2~L,10 :500 a$=:a$=""260 \.2~L,0:a$="H"p=p+1:p5.2~L,10 :1000:500 a$=" "300, " 220 ,b$="P"y1=y1+1 6b$="O"y1=y1-1 @b$="Q"x1=x1-1 Jb$="A"x1=x1+1 .2~L,10 : y1=0x115y1=1:2,3;"You are trying to leave by";4,3;"going through the entrance";6,11 ;"Try again":n=0250:n:500 1x1=15y1=1m=m+1:3000 a(x1,y1)=110 ,2;"You cannot go through walls.";12 ,12 ;"Try again":n=0200:n:x1=x:y1=y:500  m=m+1 0:1,6;"You are looking ";d$(r()) J8,0:0,175:247,0:0,175 b$="P"b$="O"800   x=x1:y=y1 d1=d:i=15 &<a(x+d,y)=1(i*10 )+2000:d=d1:260 0>a(x+d,y-1)=1(i*10 )+2060 :580D :(i*10 )+2210 D>a(x+d,y+1)=1(i*10 )+2110>:600X N(i*10 )+2160p b d=d+d1:i ld=d1:260  x=x1:y=y1 *d1=d:i=15 /1y+d=0x15(i*10 )+2490 1?y+d=0y+d=32 x=15(i*10 )+2590 4<a(x,y+d)=1(i*10 )+2000:d=d1:260 >>a(x-1,y+d)=1(i*10 )+2060 :850R H(i*10 )+2210 R>a(x+1,y+d)=1(i*10 )+2110>:870f \(i*10 )+2160p p d=d+d1:i zd=d1:260 7:7:0: '0,8;"PLAN OF MAZE No.";p (n=120:b=131 a(n,b)=1n,b;"" b:n +x=9 y=19 ,0;">" $x,y;1;"X" .+x9 x19 ,1;">" 815,1;"<" L*#1;" You are where the >X< is." V,#0;" ENTRANCE : > EXIT : <" jn=0502 t#.05|L,n:.05|L,502-n ~n : :-239,0:8,0:239,0: O480,32 :159,0:480,144:159,0: M80P,568:95_,0:80P,120x:95_,0: O104h,72H:47/,0:104h,104h:47/,0: N120x,80P:15,0:120x,96`:15,0:   M8,0:40(,32 :0,111o:-40(,32 :  N480,32 :32 ,24:0,64@:-32 ,24: *N80P,568:24,16:0,32 :-24,16: 4M104h,72H:16,8:0,16:-16,8: >9120x,80P:8,8:-8,8: HT247,175:-40(,-32 :0,-111o:40(,-32 : RO207,32 :-32 ,24:0,64@:32 ,24: \O175,568:-24,16:0,32 :24,16: fM151,72H:-15,8:0,16:16,8: p9135,80P:-8,8:8,8: zN247,32 :-40(,0:0,112p:40(,0: M207,568:-32 ,0:0,64@:32 ,0: M175,72H:-24,0:0,32 :24,0: M151,80P:-16,0:0,16:16,0: '127,88X:8,0: L8,32 :40(,0:0,112p:-40(,0: L480,568:32 ,0:0,64@:-32 ,0: L80P,72H:24,0:0,32 :-24,0: M104h,80P:16,0:0,16:-16,0: (127,88X:-7,0: ā8,160:239,0:8,151:239,0:2,8;"E N T R A N C E":d=d1:260 }480,136:159,0:480,127:159,0:5,12 ;"ENTRANCE":d=d1:260 d=d1:260 2y480,136:159,0:480,127:159,0:5,14;"EXIT":d=d1:260 260 &1:1:7::1 L21,0;1;" ":3280 L21,0;1;" ":3280 L21,0;1;" ":3280 L21,0;1;" ":3280 ?21,0;1;" " n=015 3280 n 1 .8,3;"You managed to get out in" 3,3;m;" moves." Ap=011 ,0;"You did not ask for help at all"; &9p=111 ,3;"You asked for help once." 0:p=211 ,3;"You asked for help twice." :?p>211 ,2;"You asked for help ";p;" times" DP15,0;"Would you like to see the maze you have conquered again ?" N&18,8;"Press >Y< if YES" X=""3160X b="Y"4000 l&n=1518:n,0,,:n v415,0;"Would you like to play again ?" &18,8;"Press >Y< if YES" =""3210 ="Y"g3240 (0:7:7:0:: 10 &0:7:7:0: "0,10 ;"PLAN OF MAZE" n=120 i=131 a(n,i)=1n,i;"" i:n *#0;" PRESS ANY KEY TO RETURN " =""4060 : @&1:1:7::1 EL21,0;1;" ":3280 JL21,0;1;" ":3280 TL21,0;1;" ":3280 ^L21,0;1;" ":3280 cL21,0;1;" ":3280 hn=015 r 3280 |n &9 ,8;"By Steven Vignaux" 212 ,2;"Please wait while I work out" 14,12 ;"the maze"  410 ,1;" " R6,2;"The object of this game is to","find your way out of the maze" &" If while trying find your way out of the maze you find youare completely lost then you canget some help by pressing >H<. Once you have pressed the key the screen will clear and you will be shown a plan of the maze. This will indicate your position in the maze, the exit and the entrance. However the plan will only remain on view for a short period of time." 0521,0;" PRESS ANY KEY TO CONTINUE " :=""8250: D%.2~L,0:.2~L,10 N%n=621:n,0,,:n Ss6,0;" Another thing about the plan of the maze is that you are onlygiven access to it five times." X" Once the game starts you will be given a three dimensional representation of the maze as you would see it. This view is governed by the direction in which you are looking. You can look either north,south,east or west." bT" When you move you move one place forward in the direction you are looking." l521,0;" PRESS ANY KEY TO CONTINUE " v=""8310v %.2~L,0:.2~L,10 %n=621:n,0,,:n @6,0;"Keys for looking in different directions:" $'" WEST SOUTH NORTH EAST" #" >O< >A< >Q< >P<" N''"Press >SPACE< to move one place forward in the direction you arelooking." '" Press >H< for HELP" 321,0;" PRESS ANY KEY TO PLAY " =""8400 %.2~L,0:.2~L,10 7:7:0:  #(+a(20,31):d$(4,5) #2n=120 #<b$ #F#i=131:a(n,i)=b$(i) #ni #x(n:.2~L,0:.2~L,10 #n=14:d$(n):n: ##"1111111111111111111111111111111" ##"1010010001010000000000100100001" ##"1000110101010111011110010001101" ##"1010010111010101010001010100001" ##"1011110100010100010101010111111" ##"1000000001110111110101000100001" ##"1010101110000000000001010101101" ##"1010101000110101010101010000011" ##"0010101010100101010101010111001" ##"1011100000001101010111010101111" ##"1010101111100101000100010000001" ##"1110001010111000110111110101101" $#"1000111010101111000100000101001" $#"1111100000001010011111111101011" $#"0010111010111010100000001001001" $"#"1010000010000010101110101111011" $,#"1010111111011111100010100000001" $6#"1000010000010000011110111011101" $@#"1010100101000111000000001000001" $J#"1111111111111111111111111111111" $T"WEST","SOUTH","NORTH","EAST"