%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:98
File Name:P021300A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->B
1+\Dim \List 1\->C
\Lbl 0
B\>=C\=>\Goto1
\Int ((B+C)/2)\->D
\List 1[D]<A\=>D+1\->B
\List 1[D]>A\=>D\->C
\List 1[D]\<>A\=>\Goto0
D\->B
\Goto2
\Lbl 1
0\->B
\Lbl 2
B
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:370
File Name:P021300
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,100,1)\->\List 1
0\->C
\For 10\->D \To 99
D\->A
2\->B
\Prog "NEXTFACT"
\If A=1
\Then C+1\->C
D\->\List 1[C]
\IfEnd
\Next 
\Seq(\List 1[A],A,1,C,1)\->\List 1
C\->E
\For 1\->F \To E-2
\For F+1\->G \To E-1
(\List 1[F]+\List 1[G])/2\->A
\Prog "P021300A"
\If B\<>0
\Then \For G+1\->H \To E
(\List 1[F]+\List 1[H])/2\->A
\Prog "P021300A"
\If B\<>0
\Then (\List 1[G]+\List 1[H])/2\->A
\Prog "P021300A"
\If B\<>0
\Then (\List 1[F]+\List 1[G]+\List 1[H])/3\->A
\Prog "P021300A"
\If B\<>0
\Then 10000\List 1[F]+100\List 1[G]+\List 1[H]\Disp\IfEnd
\IfEnd
\IfEnd
\Next 
\IfEnd
\Next 
\Next 
"Done"
%End