%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:71
File Name:NEXTFACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If B<2
\Then 2\->B
\IfEnd
\While B\Int (A/B)\<>A
\If B\x^2>A
\Then A\->B
\Else 2B+1-2\Int (B/2)\->B
\IfEnd
\WhileEnd
A/B\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:132
File Name:P031900
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1000\->C \To 9999
C\->A
2\->B
\Prog "NEXTFACT"
\If A=1
\Then C\->D
1\->E
\While D\<>0
E\Int 10\Frac (D/10)\->E
\Int (D/10)\->D
\WhileEnd
E\->A
2\->B
\Prog "NEXTFACT"
\If 1=A
\Then C\Disp\IfEnd
\IfEnd
\Next 
"Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:98
File Name:P0319011
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{2,5,7}\->\List 1
\For 0\->C \To 3
\For 1\->D \To 3
1111+(\List 1[D]-1)\10^xC\->E
E\->A
2\->B
\Prog "NEXTFACT"
\If A=1
\Then E\Disp\IfEnd
\Next 
\Next 
"Done"
%End