%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:230
File Name:P053099
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,10,1)\->\List 1
\List 1\->\List 2
1\->C
1\->D
1\->\List 1[2]
\Lbl 0
D<6\=>\Goto4
6\->E
\Lbl 1
EC\->A
\Prog "P053099A"
\Sum (\List 1=\List 2)\<>10\=>\Goto2
\Dsz E:\Goto1
C\Disp\Lbl 2
D=1\=>\Goto5
C/10\->C
10\Frac C\->E
\Int C\->C
0\->\List 1[E+1]
D-1\->D
\Lbl 3
E=9\=>\Goto2
E+1\->E
\List 1[E+1]\<>0\=>\Goto3
D+1\->D
10C+E\->C
1\->\List 1[E+1]
\Goto0
\Lbl 4
\(-)1\->E
\Goto3
\Lbl 5
"Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:57
File Name:P053099A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fill(0,\List 2)
\While A\<>0
A/10\->B
\Int B\->A
1+10\Frac B\->B
1+\List 2[B]\->\List 2[B]
\WhileEnd
%End