%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:P020600
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 22\->A \To 46
A^3\->B
100B+A\->C
\Seq(0,D,1,10,1)\->\List 1
0\->D
\While C\<>0
10\Frac (C/10)\->E
\Int (C/10)\->C
E+1\->E
\List 1[E]\->F
F+1\->F
F\->\List 1[E]
F\<>1\=>1\->D
\WhileEnd
D=0\=>A\Disp\Next 
"Done"
%End