%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:60
File Name:P091299
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1000\->A \To 9999
A/100\->B
100\Frac B+\Int B\->B
\If B\x^2=A
\Then A\Disp\IfEnd
\Next 
"Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:110
File Name:P0912991
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->A \To 25
2500-99A\->B
\Int (\sqrtB+.5)\->C
\If B=C\x^2
\Then 50-A-C\->D
\If D>0
\Then 100D+A\Disp\IfEnd
50-A+C\->D
\If D>0
\Then 100D+A\Disp\IfEnd
\IfEnd
\Next 
"Done"
%End