%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:186
File Name:P040900
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 0\->A \To 6
\For A+1\->B \To 7
\For B+1\->C \To 8
\For C+1\->D \To 9
10(10(10A+B)+C)+D\->E
10(10(10D+C)+B)+A\->F
F-E\->G
2^A+2^B+2^C+2^D\->H
0\->I
\For 1\->J \To 4
I+2^(10\Frac (G/10))\->I
\Int (G/10)\->G
\Next 
\If H=I
\Then F-E\Disp\IfEnd
\Next 
\Next 
\Next 
\Next 
"Done"
%End