%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:202
File Name:P112899
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,9,1)\->\List 1
\List 1\->\List 2
1\->A
0\->B
\Lbl 0
0\->\List 1[A]
\Lbl 1
\List 1[A]\->C
\Lbl 2
1+C\->C
C>9\=>\Goto3
\List 2[C]\<>0\=>\Goto2
10B+C\->D
\Frac (D/A)\<>0\=>\Goto2
D\->B
1\->\List 2[C]
C\->\List 1[A]
1+A\->A
A<10\=>\Goto0
B\Disp\Lbl 3
A-1\->A
A=0\=>\Goto4
\List 1[A]\->C
0\->\List 2[C]
\Int (B/10)\->B
\Goto1
\Lbl 4
"Done"
%End