%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:146
File Name:P042996
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Int (711/4)\->A
\For 1\->E \To A
\Int ((711-E)/3)\->B
\For E\->F \To B
\Int ((711-E-F)/2)\->C
\For F\->G \To C
711-E-F-G\->D
\If EFGD=711000000
\Then E/100\DispF/100\DispG/100\DispD/100\Disp\IfEnd
\Next 
\Next 
\Next 
"Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:341
File Name:P0429961
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Seq(0,A,1,4,1)\->\List 1
\List 1\->\List 2
\List 1\->\List 3
6261\->A
A\->\List 1[1]
A\->\List 2[1]
\Prog "P042996C"
B\->\List 3[1]
1\->G
\Lbl 0
G\>=4\=>\Goto1
\List 2[G]\->A
\List 1[G]-A\->B
G+1\->G
B\->\List 1[G]
\Prog "P042996A"
C\->\List 2[G]
C\->A
\Prog "P042996C"
B\->\List 3[G]
\Prog "P042996E"
A=1\=>\Goto0
G=4\=>\Goto2
\Goto3
\Lbl 1
\List 1[G]\<>\List 2[G]\=>\Goto2
\Prog "P042996D"
\Lbl 2
G-1\->G
G=0\=>\Goto4
\Lbl 3
\List 1[G]\->A
\List 2[G]\->B
\Prog "P042996B"
B<0\=>\Goto2
B\->\List 2[G]
B\->A
\Prog "P042996C"
B\->\List 3[G]
\Goto0
\Lbl 4
"Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:111
File Name:P042996A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->D
\While A\>=1\ Or B\>=1
1+D\->D
A/10\->A
B/10\->B
\WhileEnd
0\->C
\While D>0
10A\->A
10B\->B
10C\->C
\If \Int A>\Int B
\Then B\->A
\IfEnd
C+\Int A\->C
\Frac A\->A
\Frac B\->B
D-1\->D
\WhileEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:82
File Name:P042996B
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If B=0
\Then \(-)1\->B
\Else 1\->C
\While 0=\Frac (B/(10C))
10C\->C
\WhileEnd
\If B=C
\Then \(-)1\->B
\Else B-C+C\Frac (A/C)\->B
\IfEnd
\IfEnd
B
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:96
File Name:P042996C
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->B
A/10\->A
10\Frac A\->C
(79^C)B\->B
(\Int A)/10\->A
10\Frac A\->C
(5^C)B\->B
(\Int A)/10\->A
10\Frac A\->C
(3^C)B\->B
\Int A\->C
(2^C)B\->B
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:53
File Name:P042996D
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If \Sum \List 3=711
\Then "Solution"
\For 1\->D \To \Dim \List 1
\List 3[D]\Disp\Next 
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:30
File Name:P042996E
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Sum(\List 3[A],A,1,G,1)\->B
B\<=711\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:292
File Name:P0429962
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Int (711/4)\->A
\Int (\sqrt\sqrt7.11\EE8)\->B
\If A<B
\Then A\->G
\Else B\->G
\IfEnd
\For 1\->C \To G
\Int (7.11\EE8/C)\->J
\If CJ=7.11\EE8
\Then \Int ((711-C)/3)\->A
\Int \curtJ\->B
\If A<B
\Then A\->H
\Else B\->H
\IfEnd
\For C\->D \To H
\Int (J/D)\->K
\If DK=J
\Then \Int ((711-C-D)/2)\->A
\Int \sqrtK\->B
\If A<B
\Then A\->I
\Else B\->I
\IfEnd
\For D\->E \To I
\Int (K/E)\->L
\If EL=K
\Then 711-C-D-E\->F
\If F=L
\Then "Solution"
C\DispD\DispE\DispF\Disp\IfEnd
\IfEnd
\Next 
\IfEnd
\Next 
\IfEnd
\Next 
"Done"
%End