%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:143
File Name:NSAMIGOS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->I \To 300
\Locate 1,2,I
0\->S
\For 1\->D \To I/2
\If I=D*\Int (I/D)
\Then S+D\->S
\IfEnd
\Next 
\Locate 6,2,S
0\->T
\For 1\->D \To S/2
\If S=D*\Int (S/D)
\Then T+D\->T
\IfEnd
\Next 
\If T=I
\Then \Locate 1,4,I
\Locate 8,4,S
\IfEnd
\Next 
%End