<\/span>PROGRAM<\/span> <\/span>GERADORDB<\/span>
<\/span>INCLUDE<\/span> <\/span>\'<\/span>SCAPCOMM.FOR<\/span>\'<\/span><\/span>
<\/span>INCLUDE<\/span> <\/span>\'<\/span>LoopCommons.for<\/span>\'<\/span><\/span>
<\/span>LOGICAL<\/span> <\/span>ERRO<\/span>
<\/span>SKIPFL<\/span> <\/span>=<\/span> <\/span>1<\/span>
<\/span>CALL<\/span> <\/span>CarregaInput<\/span>(<\/span>ERRO<\/span>)<\/span>
<\/span>CALL<\/span> <\/span>GeraTabela<\/span>(<\/span>ERRO<\/span>)<\/span>
<\/span>9000<\/span> <\/span>WRITE<\/span>(<\/span>*<\/span>,<\/span>*<\/span>)<\/span>
<\/span>WRITE<\/span>(<\/span>*<\/span>,<\/span>*<\/span>)<\/span>\'<\/span><ENTER> para finalizar.<\/span>\'<\/span><\/span>
<\/span>READ<\/span>(<\/span>*<\/span>,<\/span>*<\/span>)<\/span>
<\/span>END<\/span><\/pre><\/td>\n<\/tr><\/table>\n\n");
|