%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:9
File Name:F0
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\In (X+1)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:71
File Name:ROMBERG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Min"?\->A
"Max"?\->B
\If A>B
\Then A\->C
B\->A
C\->B
\IfEnd
"Rows"?\->C
\Int \Abs C\->C
\Prog "1ROMBERG"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:280
File Name:1ROMBERG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,D,1,C+1,1)\->\List 1
2^C\->D
\For 0\->E \To D
1+\Dim \List 1\->F
D+E\->G
\Do
G/2\->G
F-1\->F
\LpWhile \Frac G=0
\If F\<=0
\Then 1\->F
\IfEnd
((D-E)A+EB)/D\->X
\Prog "F0"
\List 1[F]+\Ans\->\List 1[F]
\Next 
B-A\->D
D\List 1[1]/2\->\List 1[1]
\For 2\->E \To \Dim \List 1
D/2\->D
\List 1[E-1]/2+D\List 1[E]\->\List 1[E]
\Next 
C\->D
1\->E
\While D>0
4E\->E
\For 1\->F \To D
(E\List 1[F+1]-\List 1[F])/(E-1)\->\List 1[F]
\Next 
D-1\->D
\WhileEnd
\List 1[1]
%End