%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:43
File Name:P120300
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,10,1)\->\List 1
1\->A
\Prog "P120300A"
"Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:158
File Name:P120300A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
9\->\List 1[A]
\While \List 1[A]\>=0
0\->B
1\->C
\While C<A
\If \List 1[C]=\List 1[A]
\Then 1\->B
11\->C
\Else C+1\->C
\IfEnd
\WhileEnd
\If B=0
\Then \If A=10
\Then \Prog "P120300B"
\Else A+1\->A
\Prog "P120300A"
A-1\->A
\IfEnd
\IfEnd
\List 1[A]-1\->\List 1[A]
\WhileEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:56
File Name:P120300B
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->B
\For 1\->C \To 10
10B+\List 1[C]\->B
\Next 
\If 12\Int (B/12)=B
\Then B\Disp\Stop
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:168
File Name:P0203001
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,10,1)\->\List 1
1\->A
\Lbl 0
9\->\List 1[A]
\Lbl 1
A\->B
\Lbl 2
B-1\->B
B=0\=>\Goto3
\List 1[B]=\List 1[A]\=>\Goto5
\Goto2
\Lbl 3
A<10\=>\Goto4
\Prog "P120300B"
\Goto5
\Lbl 4
A+1\->A
\Goto0
\Lbl 5
\List 1[A]-1\->\List 1[A]
\List 1[A]\>=0\=>\Goto1
A-1\->A
A>0\=>\Goto5
"Done"
%End