Abc

Lbl A
"A"?->A
If A=0
Then "A=0"
Goto A
IfEnd
"B"?->B
Lbl C
"C"?->C
ClrText
AxesOff
ClrGraph
Text 1,1,"D=B^2-4AC="
B^2-4AC->D
Text 1,39,D
Text 7,1,"Top:X=-B/2A="
Text 13,16,"Y="
(-)B/2A->S
Text 7,49,S
Text 13,49,AS^2+BS+C
If D>=0
Then Text 19,1,"Root:"
If D=0
Then Text 19,21,"Top:X=-B/2A="
Text 19,72,-B/2A
Else Text 25,1,"X1=(-B-sqrt D)/2A="
Text 25,58,(-B-sqrt D)/2A
Text 31,1,"X2=(-B+sqrt D)/2A="
Text 31,58,(-B+sqrt D)/2A
IfEnd
Text 37,1,"]X1-X2[=sqrt D/A="
Text 37,58,sqrt D/A
IfEnd
Text 43,1,"X="
Text 49,1,"+/-sqrt "
Text 43,9,(-)B_(2A)
Text 49,19,D_(4A^2)
AxesOn
Lbl N
Do
Getkey->G
LpWhile G=0
If G=56
Then Goto C
IfEnd
If G=31
Then Goto A
IfEnd
If G=47 Or G=48
Then Stop
IfEnd
Goto N