maze TI-83 Source Code - Skip Header

maze TI-83 Source Code

This is intended to be the human readable version of the source code for Maze. This version is intended to work only on the TI-83 Texas Instruments graphic calculator. Also available: Documentation about "Maze" and versions of the program for other calculators and in other formats.

Any line that begins with a backslash is a comment and should not be entered into the calculator. (Comments have been colored green) For an authoritative copy of this program's source code that can be imported to the calculator via a computer, consult the text version of Maze source code for the TI-83, along with the character reference. The special character reference also gives an overview of all non-ASCII characters for the calculator, and shows the menus in which they can be found.

\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\