%Header Record
Format:MCS1
Type Number:1
File Name:  B.I.
Option Name:
Communication SW:0
Capacity:358
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"O NUMERO DO B.I. "?\->B
""
\Int (B/10000000)\->Z
B-Z*10000000\->C
\Int (C/1000000)\->Y
C-Y*1000000\->C
\Int (C/100000)\->X
C-X*100000\->C
\Int (C/10000)\->W
C-W*10000\->C
\Int (C/1000)\->V
C-V*1000\->C
\Int (C/100)\->U
C-U*100\->C
\Int (C/10)\->T
C-T*10\->C
C*2+T*3+U*4+V*5+W*6+X*7+Y*8+Z*9\->A
(\Int (A/11)+1)*11-A\->R
"O DIGITO E:"
\If R>9
\Then 0\->R
\IfEnd
\Locate 13,4,R
" "
"        PAULO C. 2002"
"  WWW.ESASMAT.CJB.NET"
\@00
%End