%Header Record
Format:MCS1
Type Number:1
File Name:ADIVINHA
Option Name:
Communication SW:0
Capacity:715
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"ESCREVA NUM PAPEL UM  NUMERO QUALQUER (10  DIGITOS NO MAXIMO)"\Disp""
"ESCREVA OUTRO NUMERO  COM    OS    MESMOS  DIGITOS,  MAS   COM  UMA ORDEM DIFERENTE"\Disp""
"SUBTRAIA O MENOR      NUMERO AO MAIOR"\Disp""
"DO RESULTADO,  OCULTE UM DIGITO, E INSIRA  OS   RESTANTES   POR OUTRA ORDEM QUALQUER"
""
" = "?\->N
""
\Lbl A
\Int (N/1000000000)\->Z
0N-Z*1000000000\->N
\Int (N/100000000)\->Y
N-Y*100000000\->N
\Int (N/10000000)\->X
N-X*10000000\->N
\Int (N/1000000)\->W
N-W*1000000\->N
\Int (N/100000)\->V
N-V*100000\->N
\Int (N/10000)\->U
N-U*10000\->N
\Int (N/1000)\->T
N-T*1000\->N
\Int (N/100)\->S
N-S*100\->N
\Int (N/10)\->R
N-R*10\->N
N+R+S+T+U+V+W+X+Y+Z\->N
\If N>9
\Then \GotoA
\IfEnd
9-N\->R
"O DIGITO QUE OCULTOU"
"E:"
\Locate 4,7,R
\If R=0
\Then "   OU 9"
\IfEnd
""
"        PAULO C. 2002"
""
"     WWW.ESAS.CJB.NET"
\@00
%End