%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:107
File Name:P072599
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,10,1)\->\List 1
31991\->C
\Do
C+1\->C
C\x^2\->A
\Prog "P072599A"
\LpWhile A=0
C\x^2\Disp99381\->C
\Do
C-1\->C
C\x^2\->A
\Prog "P072599A"
\LpWhile A=0
C\x^2\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:68
File Name:P072599A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fill(0,\List 1)
\While A\<>0
A/10\->B
\Int B\->A
1+10\Frac B\->B
1+\List 1[B]\->\List 1[B]
\WhileEnd
1=\Max(\List 1)\->A
%End