quad TI-83 Source Code - Skip Header

quad TI-83 Source Code

This is intended to be the human readable version of the source code for Quadratic Equation Workshop. This version is intended to work only on the TI-83 Texas Instruments graphic calculator. Also available: Documentation about "Quadratic Equation Workshop" 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 Quadratic Equation Workshop 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/10/96, 18:39
\protected=FALSE
\name=QUAD
ClrHome
FnOff 
ClrDraw
Horiz
AxesOff
Text(0,0,"Y=AX²+BX+C")
Prompt A
Prompt B
Prompt C
If A=0
Then
Disp "NOT QUADRATIC"
Stop
End
-B→D
B²-4AC→E
2A→F
0→G
If E<0
Then
-E→E
1→G
End
Lbl E
Menu("QUADRATIC","ALL ROOTS",A,"DEC ROOTS",B,"VERTEX",C,"QUIT",D)
Lbl A
ClrDraw
Text(0,0,"Y=AX²+BX+C")
If (A=int(A)(B=int(B)(C=int(C)=0
Then
10A→A
10B→B
10C→C
-B→D
abs((B²-4AC)→E
2A→F
Goto A
End
2→Θ
1→H
Lbl 1
E/Θ²→Z
If Θ²≤E
Then
If Z≠int(Z
Then
Θ+1→Θ
Goto 1
End
HΘ→H
E/Θ²→E
Goto 1
End
If E=0
Then
0→H
1→E
End
0→L
If E=1 and G=0
Then
D-H→L
D+H→D
0→H
End
F→K
F→M
D→Θ
F→Z
Lbl 2
Θ/Z→Y
If Y≠int(Y
Then
Θ-ZiPart(Y→X
Z→Θ
X→Z
Goto 2
End
D/Z→D
F/Z→F
If F<0
Then
-D→D
-F→F
End
H→Θ
K→Z
Lbl 3
Θ/Z→Y
If Y≠int(Y
Then
Θ-ZiPart(Y→X
Z→Θ
X→Z
Goto 3
End
H/Z→H
K/Z→K
If K<0
Then
-H→H
-K→K
End
L→Θ
M→Z
Lbl 4
Θ/Z→Y
If Y≠int(Y
Then
Θ-ZiPart(Y→X
Z→Θ
X→Z
Goto 4
End
L/Z→L
M/Z→M
If M<0
Then
-L→L
-M→M
End
If D≠0 or (D=0 and H=0)
Then
If F≠1
Text(6,0,D,"/",F)
If F=1
Text(6,0,D)
End
If H=0 and D/F≠L/M
Then
If M≠1
Text(12,0,L,"/",M)
If M=1
Text(12,0,L)
End
If H≠0
Then
If K≠1
Text(12,0,"+-",H,"/",K)
If K=1
Text(12,0,"+-",H)
If G=0
Text(18,0,"√(",E)
If G=1 and E=1
Text(18,0,"I")
If G=1 and E≠1
Text(18,0,"I√(",E)
End
-B→D
B²-4AC→E
2A→F
Lbl B
Text(0,59,"ROOTS")
Output(1,12,"(-B+-")
Output(2,12,"√((B²-")
Output(3,12,"4AC))")
Output(4,12,"/2A")
If G=0
Then
(D+√(E)/F→H
(D-√(E)/F→I
Text(24,0,H)
Text(24,47,I)
End
Disp 
Pause 
Goto E
Lbl C
ClrDraw
Text(0,0,"Y=AX²+BX+C")
Text(0,57,"VERTEX")
D/F→H
AH²+BH+C→I
If A>0
Text(12,0,"OPENS UP")
If A<0
Text(12,0,"OPENS DOWN")
Text(24,0,H)
Text(24,47,I)
Output(1,12,"-B/2A")
Output(2,12,"     ")
Output(3,12,"F(-B/")
Output(4,12,"  2A)")
Pause 
Goto E
Lbl D
Full
AxesOn
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\