\START82\ \COMMENT=Program file dated 04/12/96, 16:17 \NAME=MAZE :FnOff :AxesOff :ClrDraw :ClrHome :Pxl-On(0,0) :Pxl-On(2,2) :Pxl-On(2,3) :Pxl-On(3,2) :Pxl-On(3,3) :Pxl-On(4,4) :Pxl-On(5,5) :Pxl-On(4,2) :Pxl-On(2,4) :Text(5,7,"START") :Pxl-On(62,94) :Pxl-On(60,92) :Pxl-On(59,91) :Pxl-On(58,90) :Pxl-On(57,89) :Pxl-On(60,91) :Pxl-On(60,90) :Pxl-On(59,92) :Pxl-On(58,92) :Text(51,63,"FINISH" :Text(24,5,"USE ANY PICTURE AS A MAZE" :Text(31,15,"PRESS ENTER TO QUIT" :Pause :ClrDraw :Menu("PICK A MAZE","Pic1",1,"Pic2",2,"Pic3",3,"Pic4",4,"Pic5",5,"Pic6"\#\ ,6) :Lbl 1 :RecallPic Pic1 :Goto 7 :Lbl 2 :RecallPic Pic2 :Goto 7 :Lbl 3 :RecallPic Pic3 :Goto 7 :Lbl 4 :RecallPic Pic4 :Goto 7 :Lbl 5 :RecallPic Pic5 :Goto 7 :Lbl 6 :RecallPic Pic6 :Lbl 7 :0\->\A :0\->\B :0\->\E :0\->\F :getKey :Lbl 8 :0\->\C :Lbl 9 :Pxl-On(A,B) :getKey\->\D :If (D=24)+(D=25)+(D=26)+(D=34)=1 :Goto A :If D=105 :Goto B :IS>(C,5) :Goto 9 :0\->\C :Lbl 0 :Pxl-Off(A,B) :getKey\->\D :If (D=24)+(D=25)+(D=26)+(D=34)=1 :Goto A :If D=105 :Goto B :IS>(C,5) :Goto 0 :Goto 8 :Lbl A :If D=24 :B-1\->\F :If D=25 :A-1\->\E :If D=26 :B+1\->\F :If D=34 :A+1\->\E :If (E<0)+(E>62)+(F<0)+(F>94)=1 :Then :A\->\E :B\->\F :Goto 8 :End :If pxl-Test(E,F)=1 :Then :A\->\E :B\->\F :Goto 8 :End :Pxl-Off(A,B) :E\->\A :F\->\B :If (E=62)+(F=94)\<>\2 :Goto 8 :AxesOn :Disp "GOOD JOB!" :Stop :Lbl B :AxesOn :Disp :Stop :COPYRIGHT STEPHEN OSTERMILLER 1996 \STOP82\