%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:78
File Name:P043001
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
2\->A
0\->C
1\->D
\While C<1000
\Prog "P043001A"
\If B=1
\Then AD\->D
C+1\->C
\IfEnd
A+1\->A
\WhileEnd
"Product"
D
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:72
File Name:P043001A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
2\->B
\If B\Int (A/B)\<>A
\Then 3\->B
\While B\Int (A/B)\<>A
\If B\x^2>A
\Then A\->B
\Else B+2\->B
\IfEnd
\WhileEnd
\IfEnd
A=B\->B
%End