%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:79
File Name:P050701A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->B
\Int (A/11)\->C
\Do
\Int ((A-11C)/5)\->D
\If (11C+5D)=A
\Then 1000C+D\->B
\IfEnd
C-1\->C
\LpWhile C\>=0\ And B=0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:55
File Name:P050701
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->A
\While A\<=500
\Prog "P050701A"
\If B=0
\Then A\Disp\IfEnd
A+1\->A
\WhileEnd
"Done"
%End