Code:
:ClrHome
:ClrDraw
:AxesOff
:FnOff
:Float
:ZStandard
:a+bi
:Goto A
:Lbl 1
:0→Y
:ClrHome
:FnOff
:Disp "AX2+BX+C","","VALUE?"
:Input "A= ",A
:If A=0:Goto 1
:Input "B= ",B
:Input "C= ",C
:If A<0:Then
:‾A→A
:‾B→B
:‾C→C
:1→Y
:End
:B2-4AC→S
:(‾B+√(S))/(2A)→E
:(‾B-√(S))/(2A)→F
:S→G
:If G<0:‾G→G
:ClrHome
:Disp "X=",F►Frac,"AND",E►Frac
:If fPart(A)≠0 or fPart(B)≠0 or fPart(C)≠0:Goto KK
:If fPart(√(G))≠0:Then
:ClrHome
:Goto 2
:End
:Lbl AA
:0→D
:Lbl JJ
:D+1→D
:‾C→O
:If O<0:Then
:23→W:O-1→O
:End
:If O>0:Then
:22→W:O+1→O
:End
:If O=0:Then
:A→P:B→O:1→D:0→G
:Goto II
:End
:Lbl LL
:If W=23:O+1→O
:If W=22:O-1→O
:If fPart(A/D)=0:A/D→P
:If O≠0:Then
:If fPart(C/O)=0:C/O→G
:End
:PG+DO→H
:PD→I
:OG→J
:If H=B and I=A and J=C:Goto II
:If D>A:Goto KK
:If O=C:Goto JJ
:Goto LL
:Lbl II
:gcd(abs(P),abs(O))→M
:P/M→P:O/M→O
:int(log(P)+1→J
:If P=1:0→J
:int(log(abs(O))+1→K
:int(log(D)+1→N
:If D=1:0→N
:int(log(abs(G))+1→Q
:If G=0:‾1→Q
:int(log(M)+1→R
:1→R
:If M=1:0→R
:If Y=1:Output(6,1,"‾
:Output(6,1+Y,M
:Output(6,1+R+Y,"(
:Output(6,2+R+Y,P
:Output(6,2+R+J+Y,"X+
:If O<0:Output(6,2+R+J+Y,"X-
:Output(6,4+R+J+Y,abs(O
:Output(6,4+R+J+K+Y,")
:Output(7,1,"(
:Output(7,2,D
:Output(7,2+N,"X+
:If G<0:Output(7,2+N,"X-
:Output(7,4+N,abs(G
:Output(7,4+N+Q,")
:If P=D and O=G:Then
:Output(7,1," "
:Output(6,5+R+J+K+Y,"2
:End
:If C=0:Output(7,4," "
:Goto BG
:Lbl KK
:Output(6,1,"-NOT FACTORABLE-
:Lbl BG
:Pause
:If Y=1:Then
:‾A→A
:‾B→B
:‾C→C
:End
:Goto 3
:Lbl 2
:iPart(√(abs(S)))→N
:Lbl CC
:If fPart(S/N2)=0:Then
:S/N2→D
:Goto BB
:End
:If N=1:Goto GG
:N-1→N
:Goto CC
:Lbl BB
:‾B→O
:2A→P
:For(I,2,P)
:O/I→J:N/I→K:P/I→θ
:If fPart(J)=0 and fPart(K)=0 and fPart(θ)=0:Then
:J→O
:K→N
:θ→P
:End
:End
:Lbl GG
:ClrDraw
:Text(28,5,"X=")
:If N≠1:Then
:If S>0:Then
:Text(21,15,O,"+-",N,"√(",D,")")
:Else
:Text(21,15,O,"+-",N,"i√(",‾D,")")
:End
:Else
:If S>0:Then
:Text(21,15,O,"+-√(",D,")")
:Else
:Text(21,15,O,"+-i√(",‾D,")")
:End
:End
:If P≠1:Then
:Text(28,14,"----------------"
:Text(33,27,P)
:End
:Pause
:If Y=1:Then
:‾A→A
:‾B→B
:‾C→C
:End
:Goto 3
:Lbl A
:Text(5,5,"THE COMPLETE QUADRATIC"
:Text(12,18,"FORMULA PROGRAM"
:Text(22,42,"v5.5"
:Text(40,18,"BY: BEN ILEGBODU"
:Text(57,14,"COPYRIGHT (C) 2001"
:Pause
:Goto 1
:Lbl 3
:Menu(" WHAT NEXT? ","DECIMAL FORM",8,"FRACTION FORM",9,"SHOW GRAPH",4,"DISCRIMINANT",5,"VERTEX",6,"ANOTHER EQ.",1,"--QUIT--",7)
:Lbl 4
:ClrHome
:ClrDraw
:FnOff
:AxesOn
:"AX2+BX+C"→Y1
:abs(C)+5→Ymax
:abs(C)+5→Xmax
:‾abs(C)-5→Ymin
:‾abs(C)-5→Xmin
:DispGraph
:Pause
:AxesOff
:Goto 3
:Lbl 5
:ClrHome
:Disp "","","DISCRIMINANT","IS:","",S
:Pause
:Goto 3
:Lbl 6
:‾C→G:B/A→J:(J/2)2→I:AI→D:(J/2)→H:D+G→K:‾H→H:‾K→K
:FnOff
:ClrDraw
:Fix 4
:Text(20,1,"VERTEX IS:"
:Text(33,5,"(",H,",",K,")")
:Pause
:Float
:Goto 3
:Lbl 8
:ClrHome
:Disp "","","X=",E," AND",F
:Pause
:Goto 3
:Lbl 9
:ClrHome
:Disp "","","X=",E►Frac," AND",F►Frac
:Pause
:Goto 3
:Lbl 7
:ClrHome
:AxesOn
:Disp "",""," BEN ILEGBODU"," COPYRIGHT(C)"," 2001"
:Pause
Note: I did not create this program[/b]