ClrHome
Disp "","  THE ULTIMATE","    QUADRATIC","     FORMULA","       3.0","","  JOHN CHEN ROX!":Pause 
Lbl 8:ClrHome
Menu("WHAT DO YOU KNOW","AXÜ+BX+C=0",1,"(AX+B)(CX+D)=0",0)
Lbl 0:ClrHome
Disp "(AX+B)(CX+D)=0","A,B,C,D MUST BE","INTEGERS."
Input "ENTER A ",F
If F=0:Goto 0
Input "ENTER B ",H
Input "ENTER C ",G
If G=0:Goto 0
Input "ENTER D ",I
If Føint(F) or Høint(H) or Gøint(G) or Iøint(I):Goto 0
FGüA:FI+GHüB:HIüC
Lbl 64
ClrHome:Disp "THE EQUATION IS","",""
2üM
If Aø1:Output(2,1,A)
int(log(abs(A)))+2üY
If A=1:1üY
If A<0:Y+1üY
Output(2,Y,"XÜ")
Y+1üY
If Y+1ù17:M+1üM
If Y+1ù17:Disp ""
If Y+1ù17:Y-16üY
If B<0:Output(M,Y+1,"-")
If B>0:Output(M,Y+1,"+")
If Y+2ù17:M+1üM
If Y+2ù17:Disp ""
If Y+2ù17:Y-16üY
If Bø0:Output(M,Y+2,abs(B))
If Bø0:Y+3+int(log(abs(B)))üY
If Yù17:M+1üM
If Yù17:Disp ""
If Yù17:Y-16üY
If Bø0:Output(M,Y,"X")
If Y+1ù17:M+1üM
If Y+1ù17:Disp ""
If Y+1ù17:Y-16üY
If C<0:Output(M,Y+1,"-")
If C>0:Output(M,Y+1,"+")
If Y+2ù17:M+1üM
If Y+2ù17:Disp ""
If Y+2ù17:Y-16üY
If Cø0:Output(M,Y+2,abs(C))
Output(3,15,"=0"
BÜ-4ACüD
(úB+ğ(D))/(2A)üS
(úB-ğ(D))/(2A)üT
3üJ
Goto 99
Lbl 1
ClrHome
Disp "AXÜ+BX+C=0"
Input "ENTER A ",A
If A=0:Goto 1
Input "ENTER B ",B
Input "ENTER C ",C
BÜ-4*A*CüD
If D<0:Goto R
If Dù0:0üW:Goto Q
Lbl Q
úBüU:2AüV:DüÁ
(úB+ğ(D))/(2A)üS
(úB-ğ(D))/(2A)üT
If ğ(D)=int(ğ(D)) and B=int(B) and A=int(A)
Then:Goto 83
Lbl 83
ClrHome
0üJ
(2A)üG:(2A)üF:(úB+ğ(D))üH:(úB-ğ(D))üI
Disp "X="
Disp SåFrac
Disp "AND"
Disp TåFrac
If D<0:Goto 99
gcd(abs(F),abs(H))üK:gcd(abs(G),abs(I))üL
(F/K)üF:(H/K)üH:(G/L)üG:(I/L)üI
If A<0:úFüF
If A<0:úHüH
1üZ
If Cøint(C):Goto L
If C=int(C):gcd(abs(A),abs(B))üZ:gcd(Z,abs(C))üZ
Lbl L
5üM
Output(5,1,"(")
Output(5,2,F)
int(log(abs(F)))+3üY
If F<0:Y+1üY
If F=1 or F=ú1:Y-1üY
Output(5,Y,"X")
If H<0:Output(5,Y+1,"+")
If H>0:Output(5,Y+1,"-")
If Hø0:Output(5,Y+2,abs(H))
If Hø0:Y+int(log(abs(H))+3üY
If H=0:Y+1üY
Output(5,Y,")")
If Y+1ù17:M+1üM
If Y+1ù17:Disp ""
If Y+1ù17:Y-16üY
Output(M,Y+1,"(")
If Y+2ù17:M+1üM
If Y+2ù17:Disp ""
If Y+2ù17:Y-16üY
Output(M,Y+2,G)
Y+int(int(log(abs(G)))+3üY
If G<0:Y+1üY
If G=1 or G=ú1:Y-1üY
If Yù17:M+1üM
If Yù17:Disp ""
If Yù17:Y-16üY
Output(M,Y,"X")
If Y+1ù17:M+1üM
If Y+1ù17:Disp ""
If Y+1ù17:Y-16üY
If I<0:Output(M,Y+1,"+")
If I>0:Output(M,Y+1,"-")
If Y+2ù17:M+1üM
If Y+2ù17:Disp ""
If Y+2ù17:Y-16üY
If Iø0:Output(M,Y+2,abs(I))
If Iø0:Y+int(log(abs(I)))+3üY
If I=0:Y+1üY
If Yù17:M+1üM
If Yù17:Disp ""
If Yù17:Y-16üY
Output(M,Y,")")
If Zø1:Output(M,Y+1,"(")
If Zø1:Output(M,Y+2,Z)
Y+int(log(abs(Z)))+3üY
If Yù17:M+1üM
If Yù17:Disp ""
If Yù17:Y-16üY
If Zø1:Output(M,Y,")")
Disp ""
Goto 99
Else:Goto 25
Lbl 25
ClrHome:1üJ
Disp "PLEASE HOLD","WORKING....","ANSWER IS IN","úB +/- ğ(BÜ-4AC)","----------------","       2A"
abs(D)üD
1üM
For(Z,2,int(ğ(D
If fPart(D/ZÜ)=0:Then:D/ZÜüD:MZüM:Z-1üZ:End
End
0üF
If M<0:1üF
abs(MüM
If D=0:0üM
End
If Uøint(U) or Vøint(V) or Møint(M)
Then:Goto 19
Else
gcd(abs(U),abs(V))üN:gcd(abs(M),abs(V))üO
gcd(N,O)üP
U/PüU:V/PüV:M/PüM
Lbl 19
Disp "PRESS ENTER":Pause :Goto 11
Lbl 11
ClrHome
Disp "X=","","",""
Output(2,1,U)
If Uø0:int(log(abs(U)))+2üY
If Uøint(U):Y+3üY
If U=0:1üY
If U<0:Y+1üY
If Mø0:Output(2,Y,"+/-")
If M>1:Output(2,Y+3,M)
If Mù1:Y+2üY
If Mø0:Y+int(log(abs(M)))+2üY
If M=1:Y-1üY
If W=55:Output(2,Y,"à")
If Wø55:Y-1üY
If Dø0:Output(2,Y+1,"ğ(")
If Dø0:Output(2,Y+2,D)
If Dø0:Y+2üY
If V=1:Goto 99
If Dø0
Then
For(Y,0,Y+int(log(D))
Output(3,Y+1,"-"
End
If V>0:Output(4,int(Y/2)+1,V)
If V<0:Output(4,int(Y/2),V)
Goto 99
Else
Output(3,1,"----------------")
Output(4,7,V)
Goto 99
Lbl 99
Disp "PRESS ENTER","WHEN FINISHED":Pause 
Goto Á
Lbl Á
ClrHome:ClrDraw
Menu("----OPTIONS-----","ANOTHER QUAD",8,"DECIMAL",87,"GRAPH",36,"DISCRIMINANT",40,"TURNING POINT",41,"ANSWER",92,"EXIT",28)
Lbl 87:ClrHome
If Á<0:Fix 4
Disp "X=",S,"AND",T
If Á<0:Disp "AUTO-ROUNDED TO","4 DECIMAL PLACES"
Pause :Float
Goto Á
Lbl 28:Goto 54
Lbl R
a+bà
55üW
Goto Q
Lbl 36:"AXÜ+BX+C"üY�:Full
Menu("GRAPH OPTIONS","STANDARD",58,"BEST FIT",59,"GRAPH+TABLE",60,"BACK",Á)
Lbl 58
ZStandard
Trace
Pause 
Goto 36
Lbl 59
ZoomFit
Trace
Pause 
Goto 36
Lbl 60
IndpntAuto:DependAuto
GŞT:ZStandard
DispTable
Goto 36
Lbl 40
Disp "DISCRIMINANT","BÜ-4AC",Á
Pause :Goto Á
Lbl 41:ClrHome
Disp "TURNING POINT"
0üY
(úB)/(2A)üQ
A(Q)Ü+BQ+CüR
Disp {Q,R}
Disp "IF YOU CAN'T SEE","BOTH X AND Y","FIX DECIMAL 1-4"
While 1
getKeyüY
While Y=0
getKeyüY
End
If Y=92
Then:Fix 1
Goto 41
Else
If Y=93
Then:Fix 2
Goto 41
Else
If Y=94
Then:Fix 3
Goto 41
Else
If Y=82
Then:Fix 4
Goto 41
Else:Float
Goto Á
Lbl 92:ClrHome
If J=0
Then:Goto 83
Else
If J=3
Then:Goto 64
Else
Menu("IRRATIONAL ROOTS","NORMAL",11,"EXTENDED",15)
Lbl 15
Disp "X=",U,"+/-",M,"","----------------",V
If W=55:Output(5,1,"à"
Output(5,2,"ğ(")
Output(5,3,D)
Pause :Goto Á
Lbl 54
Real:Full
DelVar Y�
Stop
End
End