%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:243
File Name:FACTOR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 3
\ClrText
"AX\x^2+BX+C"
"A"?\->A
"B"?\->B
"C"?\->C
0\->D~G
C<0\=>C\->G
C>0\=>\(-)C\->G
\For 1\->J \To A
A/J\->K
K\<>\Int K\=>\Goto1
\For G\->H \To \(-)G
H=0\=>\Isz H
C/H\->I
HK+IJ=B\=>\Goto2
\Next 
\Lbl 1
\Next 
\ClrText
"NO INTEGER FACTORS"\Disp\Goto3
\Lbl 2
\ClrText
"(AX+B)(CX+D)"
"A="
"B="
"C="
"D="
\Locate 3,2,J
\Locate 3,3,H
\Locate 3,4,K
\Locate 3,5,I
\While \Getkey\<>31
\WhileEnd
\Goto3
%End