Maze 3Set up and get maze size C:0:7:0:0:0:0:7: 9100#:user def chars 4"MAZE SIZE ; X (3-30) ";mx;12 ;"Y (3-20)";my ,mx=mx:mx<3mx>301030 ,my=my:my<3my>201030 $moves=0  Make maze Ka=1mx+1:8*a-1,167:0,-8*my:a Ja=1my+1:7,175-8*a:8*mx,0:a Ax=1:y=(1+my/4+*my/2):y,0;">" NPLOT 8,8*y-1: DRAW INVERSE 1;0,7 : REM BOOK ERROR door erased by above print y,x;6;1;" "  dx=1:dy=0 yourx=x:youry=y:d=0 4D>.1}Ldy=0dy=(2*)*2-1:dx=0 >9>.8Ly+dy>myy+dy<1dx=1:dy=0 H 9000(# Rxmx21004 \y,x;">":x=x-1 ny=y+dy:nx=x+dx M>.4Lnymyny1nxmxnx1(ny,nx)=5682290 u=0:u(4,2) Bx1(y,x-1)=568u=u+1:u(u,1)=-1 By1(y-1,x)=568u=u+1:u(u,2)=-1 u=02300 4u=(1+u*):dx=u(u,1):dy=u(u,2) 9000(#:2200 y,x;5;1;" " .cx=8*x+3:cy=171-8*y L(cx+4,cy)=0(y,x+1)=480x=x+1:2220 L(cx-4,cy)=0(y,x-1)=480x=x-1:2220 $L(cx,cy-4)=0(y+1,x)=480y=y+1:2220 .L(cx,cy+4)=0(y-1,x)=480y=y-1:2220 `z=1mx*my/10 j:x=2+((mx-2)*):y=2+((my-2)*) t-dx=2*(2*)-1:dy=0 ~9>.5dy=2*(2*)-1:dx=0 9000(# z Copy maze TO m$ "Press ENTER to begin ";i$ m$(my+2,mx+2) <236066\,23675{\:236077\,23676|\-1 ,y=0my+1:x=0mx+1 *m$(y+1,x+1)=(y,x):y,x;" " x:y +236066\,0:236077\,60< move through maze 3:p1=87W:p=80P:x=yourx:y=youry X4,29;"N";6,27;"W ";(149+d);" E";8,29;"S" @moves=moves+1:12 ,27;"MOVE";28;moves 84,0;"About"'"F'wrd"'"Left"'"Right"'"Help" z=120 V127-p,87W-p:0,2*p:127+p,87W-p:0,2*p Lc=m$(y+1,x+1):w=m$(y+1,x):s=m$(y+2,x+1) "ed=0wr=(s=33!)+(s=35#):wl=(c=33!)+(c=35#):wf=(c=33!)+(c=34") ,ed=1wr=(w=33!)+(w=34"):wl=(c=33!)+(c=34"):wf=(s=33!)+(s=35#) 6ed=2wr=(c=33!)+(c=35#):wl=(s=33!)+(s=35#):wf=(w=33!)+(w=34") @ed=3wr=(c=33!)+(c=34"):wl=(w=33!)+(w=34"):wf=(c=33!)+(c=35#) Jz=1fw=wf h%dp=p1-p:dwr=dpwr:dwl=dpwl r1er=wr((d=3x=mx)(d=1x=1)) |1el=wl((d=3x=1)(d=1x=mx)) Fer127+p,87W-p:dp,-dwr:127+p,87W+p:dp,dwr Hel127-p,87W-p:-dp,-dwl:127-p,87W+p:-dp,dwl Yer127+p,87W+p:dp,-(2*p+dp):127+p,87W-p:dp,2*p+dp [el127-p,87W+p:-dp,-(2*p+dp):127-p,87W-p:-dp,2*p+dp fwf127-p,87W-p:2*p,0:127-p,87W+p:2*p,0:5000 ̦(d=0x=mx)(d=2x=1)pd=.9fffg*p:127-pd,87W-pd:2*pd,2*pd:127-pd,87W+pd:2*pd,-2*pd:5000 Wx=x+(d=0)-(d=2):y=y+(d=1)-(d=3):p1=p:p=(.8L*p) z get player's move "k$=:k$>"Z"k$=(k$-32 ) 0k$"H"k$"L"k$"R"k$"A"k$"F"5000 k$="H"6000p k$="F"5100 +k$="L"d=d-1:d<0d=3 k$="R"d=d+1 k$="A"d=d+2 d>3d=d-4  4000 fw5000 gyourx=1d=210 ,11 ;1;"ENTRANCE";1,1;"CLOSED":5000  yourx=mxd=07000X  Jyourx=yourx+(d=0)-(d=2):youry=youry+(d=1)-(d=3)  4000 p!show maze with current position z>:236066\,23675{\:236077\,23676|\-1 :xp=((30-mx)/2):yp=((20-my)/2) 1y=1my+2:yp+y-1,xp;m$(y):y +236066\,0:236077\,60< Cmoves=moves+502:1;0,8;"50 MOVE PENALTY" ,yp+youry,xp+yourx;1;(149+d) &"Press ENTER to return to maze ";i$  4000 XFinish b 5: lS8,11 ;"OUT AFTER";10 ,14;moves;12 ,13 ;"MOVES" vU0,5,9 ,5,9 ,12 ,9 ,12 ,15,15 t=13:7000X 'a=110 :b:.05|L,b:a  t:7  #(delete wall at x+dx,y+dy #2\dy=08*(x+(dx=1))-1,167-8*y:1;0,7 #<\dx=08*x-1,175-8*(y+(dy=1)):1;7,0 #Fx=x+dx:y=y+dy #Py,x;6;1;" " #d #set up user def chars #A0,0,0,0,0,0,0,0 #C255,1,1,1,1,1,1,1 #A1,1,1,1,1,1,1,1 #C255,0,0,0,0,0,0,0 #A1,0,0,0,0,0,0,0 #C0,0,0,8,124|,8,0,0 #F0,0,16,16,16,568,16,0 #E0,0,0,32 ,124|,32 ,0,0 #F0,0,16,568,16,16,16,0 # 9100# #$a=071G:b:"a"+a,b:a $ &1The variable 'move' has been changed to 'moves'