%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:51
File Name:P092401A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\->C
0\->B
\While C\<>0
10(B+\Frac (C/10))\->B
\Int (C/10)\->C
\WhileEnd
A=B\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:51
File Name:P092401B
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->B
1\->C
\While A\<>0
B+3C\Frac (A/3)\->B
\Int (A/3)\->A
10C\->C
\WhileEnd
B\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:70
File Name:P092401
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->F
\For 10\->D \To 99
100(D+\Frac (D/10))+\Int (D/10)\->E
E\x^2\->A
\Prog "P092401A"
F+A\->F
\Next 
F
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:97
File Name:P0924011
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->F
\For 3\->D \To 8
D\->A
\Prog "P092401B"
A\->E
\Prog "P092401A"
B+100E\->E
E\x^2\->A
\Prog "P092401A"
F+A\->F
\If A\<>0
\Then E\Disp\IfEnd
\Next 
F
%End