%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:76
File Name:P071199A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->B
2\->C
\While C\x^2<A
A/C\->D
\If \Frac D=0
\Then B+C+D\->B
\IfEnd
C+1\->C
\WhileEnd
\If C\x^2=A
\Then B+C\->B
\IfEnd
B+1\->B
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:117
File Name:P071199
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1100\->E
\While E\<=1300
E\->A
\Prog "P071199A"
\If 1100\<=B\ And B\<=1300\ And B\>=E
\Then B\->F
F\->A
\Prog "P071199A"
\If B=E
\Then 10000E+F\Disp\IfEnd
\IfEnd
E+1\->E
\WhileEnd
"Done"
%End