%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:850
File Name:QUADRAT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 3
0\->K~T:1\->S
\ClrText
"AX\x^2+BX+C"
"A"?\->A
"B"?\->B
"C"?\->C
A\->D:B\->E:C\->F
A<0\=>\(-)C\->C
A<0\=>\(-)B\->B
A<0\=>\(-)A\->A
B\x^2-4AC\->J
J<0\=>1\->K
K=1\=>\Goto1
((\(-)B+\sqrt(B\x^2-4AC))/2A\->G
((\(-)B-\sqrt(B\x^2-4AC))/2A\->H
\Lbl 1
2A\->I
K=1\=>\(-)J\->J
\ClrText
\Locate 1,2,"X="
I\->Y
\Lbl 6
+B>+Y\=>+Y\->Z
+B\<=+Y\=>+B\->Z
\For 2\->R \To Z
\If \Frac (B/Z)=0\ And \Frac (Y/Z)=0
\Then B/Z\->B:Y/Z\->Y
\Goto6
\IfEnd
\Next 
\If B<Y
\Then \Locate 3,2,\(-)B\ab/cY
\Else \Locate 3,2,\(-)B
Y>1\=>\Locate 6,2,"\ab/c"
Y>1\=>\Locate 7,2,Y
\IfEnd
\Locate 1,3,"+-  \sqrt"
K=1\=>\Locate 1,3,"+-\{i}  \sqrt"
J\->Q
J<4\=>\Goto5
\For 2\->R \To J/2
J/R\x^2\->M
\If \Frac M=0
\Then J/R\x^2\->J
SR\->S
\For 2\->N \To I
\If \Frac (S/N)=0\ And \Frac (I/N)=0
\Then S/N\->S:I/N\->I
\IfEnd
\Next 
1\->R
\IfEnd
\Next 
\Lbl 5
0\->T
S=1\=>1\->T
K=0\=>3\->Z
K=1\=>4\->Z
\Dsz T
\Locate Z,3,S
\Locate Z+3,3,J
K=0\=>5\->Z
K=1\=>6\->Z
J=0\=>\Locate 1,3,"                  "
J=1\=>S=1\=>\Locate Z,3," "
J=1\=>S>1\=>\Locate Z,3,"  "
K=0\=>9\->Z
K=1\=>10\->Z
J\<>0\=>\Locate Z,3,"\ab/c"
J\<>0\=>\Locate Z+1,3,I
I=1\=>\Locate Z,3,"  "
\Locate 15,2,"A="
\Locate 15,3,"B="
\Locate 15,4,"C="
\Locate 15,5,"D="
\Locate 17,2,D
\Locate 17,3,E
\Locate 17,4,F
K=1\=>-Q\->Q
\Locate 17,5,Q
\If K=0
\Then \Locate 1,5,"SOLUTIONS:"
\Locate 1,6,"G="
J\<>0\=>\Locate 1,7,"H="
\Locate 3,6,G
J\<>0\=>\Locate 3,7,H
\IfEnd
\Locate 21,7," "\Disp\Goto3
%End