%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:RPA1000
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate 1,1,"REDUZIDOS,PA"
0\->P:0\->R:0\->A
\For 1\->N \To 90
\Locate 1,2,N
0\->S
\For 1\->D \To N/2
\If N=D*\Int (N/D)
\Then D+S\->S
\IfEnd
\Next 
\Locate 8,2,S
\If N=S
\Then P+1\->P
\Else \If N<S
\Then A+1\->A
\Else R+1\->R
\IfEnd
\IfEnd
\Locate 1,3,R
\Locate 6,3,P
\Locate 11,3,A
\Next 

%End