\start83P\
\comment=Program file dated 04/12/96, 16:17
\protected=FALSE
\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

\stop83P\