maze 6 vLeprechaun's Gold by Clyde Bish Main Program from ZX Computing Jun/Jul'83 RUN 9000 to start #y$=" " -i=sy:x$(i)*"100"+"1000":n>b*v"200" 7i=i+s:x$(i)*"100"+"1000":x$(i)="7"n>b*v"200" dy$(i)=" "x$(i+b)="7"y$(i)=b$:r=:x$(i+b)=("8"r<".3")+("7"rȰ".3"):i=i+(br<".3"):"280" )y$(i)=" "x$(i+b)"7"y$(i)=b$:"280" /y$(i)" "x$(i+b)="8"y$(i)=b$i=i+b:"280" Iy$(i)" "y$(i)b$x$(i+b)"7"(*)*"100"+"1000":"1700":"200" <y$(i)" "y$(i)b$x$(i+b)="7"y$(i)=b$:i=i+b:x$(i)="8" i:7000X k:"47",m+m:"128",a:"47","103":"128",a:x,a:m+m,m:a,"119":-u,u:"240",a:-o,m+m:a,"71":q,q p=w-s:f:e:n>b*v b$"7"p=w:d:"1000" c=s:p=m+b:h \:m,m+m:"159",a:m,"103":"159",a:x,a:a,"167":-l,l:"240",a:-o,m+m:a,"71":q,q $p=m+b:f:e:n>b*v )b$"5"p=w-s:d:"1050" .g:j: Mg:v-s,m+m:"128",a:v-s,"103":"128",a:x,a:o,m+m:a,q-s:-q,q:"240",a:-"32",m:a,"119":u,u Vp=w-s:f:e:n>b*v [b$"7"p=w:d:1100L `c=s:p=m+b:h [:v,m+m:"159",a:v,"103":"159",a:x,a:o,"32":a,q-s:-q,q:"240",a:a,"167":l,l f:e:n>b*v b$"8"p=w-s:d:"1150"  g:j:: :15,0:64@,32 :n=282:2*n+80P,n+32 :n:239,0:-64@,32 :n=282:-2*n+175,n+32 :n:8,175:72H,-72H:n=4164:80P+n,103g-n:n:248,175:-72H,-72H:n=4164:175-n,103g-n:n )l+k,l+k;"CONTINUE";x-s,l+k;"FORWARDS" p=w-s:f:e:n>b*v b$"7"d:"1201" p=m+b:c=a:h: x:240,0:-32 ,16:0,119w:40(,40(:207,32 :-32 ,0:0,71G:32 ,0:175,32 :-16,8:n=282:-2*n+159,n+39':n:175,103g:-16,-16:n=4164:159-n,87W-n:n:x$(i)="6"1402z 15,0:80P,40(:n=282:2*n+96`,n+40(:n:8,175:88X,-88X:n=4164:n+96`,87W-n:n (p=w-s:f:e:n>b*v -b$"7"p=w:d:"1300" 2c=s:p=m+b:h Fb:240,0:0,167:8,8:239,32 :-64@,0:0,71G:64@,0:175,32 :-16,8:n=262:-2*n+159,n+40(:n:175,103g:-16,-16:n=4164:159-n,87W-n:n:x$(i)="6"1451 P15,0:80P,40(:n=282:2*n+96`,n+40(:n:8,175:88X,-88X:n=4164:96`+n,87W-n:n Zp=w-b:f:e:n>b*v \b$"8"b$"7"d:"1350" _b$"7"g:j bb$"8"p=m+s:c=a:h d y zm15,0:32 ,16:0,119w:-40(,40(:480,32 :32 ,0:0,71G:-32 ,0:80P,32 :16,6:n=282:2*n+96`,n+40(:n:80P,103g:16,-16:n=4164:n+96`,87W-n:n:x$(i)="6"1610J 240,0:-80P,40(:n=282:-2*n+159,n+40(:n:248,175:-88X,-88X:n=4164:159-n,87W-n:n p=w-s:f:e:n>b*v b$"7"p=w:d:"1400" c=s:p=w-b:h  X15,0:0,167:-8,8:16,32 :64@,0:0,71G:-64@,0:80P,32 :16,8:n=282:2*n+96`,n+40(:n:80P,103g:16,-16:n=4164:96`+n,87W-n:n:x$(i)="6"1660| 239,0:-80P,40(:n=282:-2*n+159,n+40(:n:247,175:-88X,-88X:n=4164:159-n,87W-n:n f:e:n>b*v "b$"5"b$"7"p=w-s:d:"1450" b$"7"g:j b$"5"c=a:p=m+s:h  d:u+l,m+m:k*u,a:u+l,"103":k*u,a:x,a:m+m,m:a,"119":-u,u:"240",a:-"32",m:a,"119":u,u p=w-s:f:e:n>b*v b$"7"p=w:d:"1500" c=s:p=w-b:h U:m,m+m:"224",a:m,"135":"224",a:x,a:a,"167":-l,l:"240",a:a,"167":l,l f:e:n>b*v "b$"8"b$"5"p=w-s:d:"1550" "g:j: A "1300" Jp=w-s:f:e:n>b*v Ob$"7"p=w:d:"1600" Tc=s:p=w-b:h r "1350" |f:e:n>b*v b$"7"b$"8"b$"5""1650" b$="7"p=m+s:h: b$="8"b$="5"g:j: w:o,w+k:"127",a:o,"119":"127",a:x,a:u+l,w+k:a,v+x:-"48",u+l:"240",a:-"48",w+k:a,"95":u+l,u+l:i>y If:l+b,l+t;"DEAD END";m-b,x-k;"Back to the";m+s,x-s;"START":b*v:: b$"7""5000" K:a,m+m:"255",a:a,"135":"255",a:l+b,l+t;"PASSAGE";m-k,m-b;"WALL"  p=w-b:f b$="7""2020" rw,x-k;"TURN";w,w-b;"BACK";w+s,l+t;"Press ";("8"b$="5")+("5"b$="8"):a:"5"b$="8"Ŧ"8"b$="5":"2001" iw,x-k;" ";w,w-b;" ";w+s,l+t;" ":b*x:w-s,m;"";w,m;(""b$="8")+(""b$="5"):b*x:: w+s,l+t;"TRY AGAIN":b*x:: [w,b*t;"WHICH";w,w-b;"WAY?";w+s,b*t;"Press";w+s,w-b;"5,7 or 8":n=sb*v:"""3050" n ̵x,l+k;k;"o";m,l+k;"";m+s,l+k;"":b*x:k+t,x-k;"TOO SLOW!";l+b,m-b;"The";x-k,l+b;k;"GREEN GOBLIN";m-k,m-t;a;"sends you";x-b,l+b;"BACK TO THE";m-b,l+k;" START ":v+w: b$=:b$="0" "b$"7"b$"8"b$"5"3000 Hw,l+b;" ";w,w-b;" ";w+s,l+b;" ";w+s,w-b;" ":w: "p,m;"O";p+s,m;"";p+b,m;"": p=w-s:"5000":n=(mb$="8")+(xb$="5")(w+lb$="8")+(b$="5")(b$="8")-(b$="5"):w-b,n;"";w-s,n;"";w,n;(""b$="8")+(""b$="5"):l:w-b,n;(" "b$="8")+(" "b$="5");w-s,n;(" "b$="8")+(" "b$="5");w,n;(" "b$="8")+(" "b$="5"):t:n:w-b,n;(""b$="8")+(" "b$="5");w-s,n;(""b$="8")+(" "b$="5");w,n;(""b$="8")+(" "b$="5"):l:w-b,n;" ";w-s,n;" ";w,n;" ": ]p,m;"o";p+s,m;"";p+b,m;"";p+,m;" ":w:p-s,m;"";p,m;"";p+s,m;"";p+b,m;" ":w  c=sc=a: *p-s,m;"";p,m;" ";p+s,m;" ":w:c=a: 2p,m;"";p+s,m;(""b$="8")+(""b$="5"):b*x: p4:1,5;4;"";2,5;" ";3,5;"";2,6;0;6;" LEPRECHAUN'S GOLD ";5,0;7;"Can you make your way to the centre, and find the GOLD?";8,5;"Press 5 to turn left";9 ,11 ;"7 to move forwards";10 ,11 ;"8 to turn right";11 ,10 ;"(0 to exit)";12 ,0;"Don't turn too early - you'll walk into the wall!";15,0;1;"BEWARE!";16,0;0;"The ";4;"GREEN GOBLIN";0;" will be following you. Don't take too long making a decision or he'll catch up and send you back to the start" zd="2000":e="3000":f=d+d:g="4000":h="4800":j="50":a=d:s=d:b=s+s:k=b+b:l=k+k:m=l+l:o=m*k:q=o+l:t=k+s:u=t*l:v=u+u:w=k*t:x=t* }"PRESS ANY KEY TO BEGIN":0::"Enter Difficulty Level (1 to 10)";z:"PREPARING MAZE":y=z*b+l:8000@:190 X"1700":m,x;ٰ"6";"";m+s,x-b;k;"";m+b,x-b;"";w-s,m-t;a;"O";w,m-t;"";w+s,m-t;"";16,21;4;"o";17,21;"";18,2;"" b9 ,17;4;1;"CURSES!";11 ,18;0;0;"You've";12 ,19;"Found";13 ,21;"the";14,20;6;"GOLD" lS100d:1,5;"PRESS 1 TO PLAY AGAIN":0:="1":6015 ? @ax$=" ":i=syb:x$(i)=(*):x$(i+s)=(*k+):i<"8010" E"x$(i-s)"7"ƥ<".4"x$(i+s)="7" Ji: #("maze""a"::6000p maze X