%Header Record
Format:MCS1
Type Number:1
File Name:QUADROS
Option Name:
Communication SW:0
Capacity:1642
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
0\->T
"PENSE NUM NUMERO     ENTRE 1 E 83 !"\Disp""
"OBSERVE OS QUADROS   SEGUINTES, E PARA    CADA UM DELES INDIQUESE O SEU NUMERO ESTA OU NAO PRESENTE."\Disp""
"     QUADRO 1"\Disp" 1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83"\Disp" "
"ESTA PRESENTE?       SIM\->1   NAO\->0"?\->R
""
"     QUADRO 2"\Disp\If R=1
\Then T+1\->T
\IfEnd
" 2  3  6  7 10 11 14 15 19 19 22 23 26 27 30 31 34 35 38 39 42 43 46 47 50 51 54 55 58 59 62 63 66 67 70 71 74 75 78 79 82 83"\Disp" "
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+2\->T
\IfEnd
""
"     QUADRO 3"\Disp"    4  5  6  7 12 13 14 15 20 21 22 23 28 29 30 31 36 37 38 39 44 45 46 47 52 53 54 55 60 61 62 63 68 69 70 71 76 77 78 79"\Disp""
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+4\->T
\IfEnd
""
"     QUADRO 4"\Disp"    8  9 10 11 12 13 14 15 24 25 26 27 28 29 30 31 40 41 42 43 44 45 46 47 56 57 58 59 60 61 62 63 72 73 74 75 76 77 78 79"\Disp""
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+8\->T
\IfEnd
""
"     QUADRO 5"\Disp"       16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 80 81 82 83"\Disp""
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+16\->T
\IfEnd
""
"     QUADRO 6"\Disp""
"      32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63"\Disp""
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+32\->T
\IfEnd
""
"     QUADRO 7"\Disp""
"    64 65 66 67          68 69 70 71          72 73 74 75          76 77 78 79          80 81 82 83"\Disp""
"ESTA PRESENTE?       SIM\->1 NAO\->0"?\->R
\If R=1
\Then T+64\->T
\IfEnd
""
"O NUMERO EM QUE      PENSOU E "
\Locate 10,7,T
""
"        PAULO C. 2002"
""
"  WWW.ESASMAT.CJB.NET"
\@00
%End