Minotaur + ***** 3D MAZE ***** @ C.C.Stock 1983 0:4:2: 6,7;" M I N O T A U R ";8,0;" For the amusement of the king you have been dropped into the Minotaurs maze. You only hope is to find 3 weapons hidden in the maze using a map provided "  4000 a$(4,34"):a1=3:l=-1:j=-1:x1=20:y1=16:q1=1:s=1:t1=0:t2=0:t3=0 (#k=1:<.5k=-1 <2a$(1)="0354553554003554555355554530455530" F2a$(2)="0354553554553554555300004535455530" K(a$(3)="015525551002555102551520" P(a$(4)="015520001552555152001520" e'e$="-----------------------------" n'f$="----------------------------" x'g$="-----------" 'h$="------" 'i$="-----" P18,4;"Use keys 5,6,7&8 to move";20,8;"Press any key" =""150 2400` :3200 8,16;1;"Press";9 ,16;"any key":0:6:n=13:w(1,n),w(2,n);"X":n 9.8L,-16:.8L,-22:=""180 6:2::0 i3,17;"Press M for map";5,17;"Press A to pick";6,17;" up armour " 6n=021:n,0;" ":n m=8 n=0m-1 )a$(a,n*k+p)="0"m=n+1:300, F8*n,16*n:8,16:0,159-16*n Q127-8*n,16*n:-8,16:0,159-16*n n 6n=06 @I14+n,6;1;r$(1+4*n4+4*n):n J~t1=115,5;6;" ";16,5;" ";17,5;" ";9 ,17;1;" Sword " Tt2=1n=03:4:15+n,9 ;0;"/":n:11 ,17;" Shield ":0:72H,480:7,0:72H,32 :7,0 ^Kt3=114,7;2;"WW";10 ,17;" Helmet " ~0,0:8,16:1;-7,0:127,0:-8,16:1;7,0 n=m-10-1 b=a$(a,p+n*k) b=5520 #b=0m=m-1:801! /b=1b=2a$(b,x+k)="0"490 /b=4b=3a$(b,y-k)="0"501 8*n,16*n:1;8,16:-7,0:7,0:8,16:1;-7,0 /b=1b=2a$(b,x-k)="0"520 /b=3b=4a$(b,y+k)="0"520 127-8*n,16*n:1;-8,16:7,0:-7,0:-8,16:1;7,0 n mm*8,m*16:1;8,16:127-m*8,m*16:1;-8,16 Y"30:<.733331000 bx=x1y=y13000 lFq=-1y=p:x=x1(y1-y)*kmd=(y1-y)*k:d>-12010 vEq=1x=p:y=y1(x1-x)*k-12010  6 &="a".1}L,24:3400H ="m"2400` :170  ="6"k=k*-1:201 :="7"a$(a,p+k)"0"p=p+k:.2~L,0:401 /="5"b5k=-q*k:850R:201 .="8"b5k=q*k:850R:201  601Y *8*(n+1),175:1,0,-159+16*n:1,-8,-16:16*(7-n)+15,0:1;-8,16:1;0,159-16*n 4Z8*(n+1),16*(n+1):1;16*(6-n)+15,0 >J480,480:31,0:480,32 :31,0 H 520 Rb=1b=2p=x \b=3b=4p=y f a=b:q=-q: &q1=1a$(a1,y1)="5"y1=y1+j: 'q1=-1a$(a1,x1)="5"x1=x1+l: xx1l=1 yy1j=1 $q1=-11120` .b1=a$(a1,y1) 8"x=x1a$(a1,y1+j)"0"y1=y1+j: B0a$(b1,x1+l)"0"a1=b1:q1=-1:x1=x1+l: Ma$(a1,y1+j)"0"y1=y1+j: Vj=-j:l=-l:1090B `b1=a$(a1,x1) j"y=y1a$(a1,x1+l)"0"x1=x1+l: t/a$(b1,y1+j)"0"a1=b1:q1=1:y1=y1+j: a$(a1,x1+l)"0"x1=x1+l: j=-j:l=-l:1140t  3 2030+10 *d ]e=08:5+e,4;1;m$(7*e+17*e+7):e: ]e=08:5+e,5;1;n$(1+e*66+e*6):e:  ]e=08:5+e,5;1;o$(1+e*55+e*5):e: ]e=07:5+e,6;1;p$(1+e*44+e*4):e:  ]e=05:5+e,7;1;q$(1+e*33+e*3):e: *_e=03:5+e,7;1;q$(19+e*220+e*2):e: 5+5,7;"";6,7;"" > ai0:4:0,0;e$:g$;g$;f$;h$;h$;h$;e$;i$;i$;f$;g$;g$;g$;e$;i$;f$;h$;h$;e$;g$;f$: ƒt1=1t2=1t3=1(8,7)="M"21,0;1;" You have killed the minotaur ":2030 c5:1:20,0;1;" You have failed and payed the price of failure " Xn=120:.2~L,(*30):n:3:2040:6:0: w(2,4) n=14 $w1=(*22):w2=(*32 ) ?(w1,w2)="-"w(1,n)=w1:w(2,n)=w2:n:3300 7w1=w1+1:w2=w2+1:w1>21w1=0 w2>31w2=0 3240 <y=w(1,4)+2:x=w(2,4)+2 ta$(3,w1+2)="2"a$(3,w1+2)="1"b=a$(3,w1+2):q=-1:850R:170 <b=a$(1,w2+2):q=1:850R:170 RGy-2=w(1,1)x-2=w(2,1)t1=1 \Gy-2=w(1,2)x-2=w(2,2)t2=1 fGy-2=w(1,3)x-2=w(2,3)t3=1 p 330J zm$=" "+129+" "+130+""+131+" M "+131+" " n$=""+133+""+136+132+133+""+132+136+" " |o$=" "+133+" "+133+""+131+130+"~"+129+131+" " 'p$=" " iq$=" "+133+""+133+""+133+" "+136+132+""+133 ܈r$=" "+131+" "+131+"=\/== ="+136+" "+136+""+133+""+133+""+133+""+133 -n=0557:a:144+n,a:n: 127,127,127,127,127,127,127,127,254,254,254,254,254,254,254,254 1,1,1,1,1,1,1,1,128,128,128,128,128,128,128,128 I24,24,24,24,24,24,24,24 Ƒ254,254,254,254,0,0,0,0,127,127,127,127,0,0,0,0