%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:149
File Name:P040901
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->A \To 7
\For A+1\->B \To 9
\For A+1\->C \To 9
\If C\<>B
\Then \For 1\->D \To 9
\If D\<>A\ And D\<>B\ And D\<>C
\Then \If (10A+B)(10C+D)=(10B+A)(10D+C)
\Then 100(10A+B)+(10C+D)\Disp\IfEnd
\IfEnd
\Next 
\IfEnd
\Next 
\Next 
\Next 
"\Done"
%End