%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:327
File Name:PRIMFACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"PRIME FACTOR NUMBER"
"NUMBER="?\->N
N\->Q
[[1][1]]\->\Mat E
\Mat E\->\Mat F
0\->J
\If \Frac (Q/2)=0
\Then \Isz J
2\->\Mat F[1,J]
Q/2\->Q
\IfEnd
\While \Frac (Q/2)=0
\Mat F[2,J]+1\->\Mat F[2,J]
Q/2\->Q
\WhileEnd
3\->D
\While Q>1
\Int (\sqrtQ+1)\->M
\Frac (M/2)=0\=>\Isz M
\For D\->K \To M \Step 2
\Frac (Q/K)=0\=>\Break
\Next 
K\>=M\ And \Frac (Q/K)\<>0\=>Q\->K
\Isz J
J>1\=>\Augment(\Mat F,\Mat E)\->\Mat F
K\->D
D\->\Mat F[1,J]
Q/D\->Q
\Do
\If \Frac (Q/D)=0
\Then \Mat F[2,J]+1\->\Mat F[2,J]
Q/D\->Q
\IfEnd
\LpWhile \Frac (Q/D)=0
\WhileEnd
\Trn \Mat F
%End