%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:126
File Name:P081301
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->D
\For 10\->C \To 125
C\->A
0\->B
\Prog "NEXTFACT"
\If A=1
\Then C\->B
0\->A
\While B\<>0
10A+10\Frac (B/10)\->A
\Int (B/10)\->B
\WhileEnd
\Prog "NEXTFACT"
\If A=1
\Then C+D\->D
\IfEnd
\IfEnd
\Next 
D
%End
%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