%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:156
File Name:FACTOR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRPRE"
\While 1
"Number"?\->F
\Abs \Int F\->F
0\->G
0\->H
\Do
F\->A
G\->B
\Prog "NEXTFACT"
C\->I
D\->J
G=0\=>J\->G
\If G\<>J
\Then G\->A
H\->B
\Prog "1FACTOR"
J\->G
0\->H
\IfEnd
H+1\->H
I\->F
\LpWhile F\<>1
G\->A
H\->B
\Prog "1FACTOR"
\WhileEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:76
File Name:NEXTFACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Abs \Int A\->C
\Abs \Int B\->D
D<2\=>2\->D
\While D\Int (C/D)\<>C
\If D\x^2>C
\Then C\->D
\Else 2D+1-2\Int (D/2)\->D
\IfEnd
\WhileEnd
C/D\->C
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:31
File Name:1FACTOR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Factor"
A\Disp"Multiplicity"
B\Disp
%End