%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:93
File Name:P021801
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
10000\->A
\While A<25000
A\->B
0\->C
\While B\<>0
10C+10\Frac (B/10)\->C
\Int (B/10)\->B
\WhileEnd
\If C=4A
\Then A\Disp\IfEnd
A+1\->A
\WhileEnd
"Done"
%End