* * GC_ANTER.PRG - Gerar GC da Bateria Anterior * select a use &caminho\asptrl02 index &caminho\isptrl25 seek esc_ord * arkivo='gc_anter.htm' set device to print set printer to \internet\&arkivo * @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say 'Gerador Caracteres' @ prow()+1,00 say '' @ prow()+1,00 say '' * *@ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '

' @ prow()+1,00 say 'RESULTADO ANTERIOR

' @ prow()+1,00 say '' * for klt = 1 to 4 cor=colete @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' skip next * @ prow()+1,00 say '
' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' '+str(classific,1,0)+'º  ' @ prow()+1,00 say ' '+str(somatorio,5,2)+'' @ prow()+1,00 say ' Pts.
'+nome+' '+uf+'
' @ prow()+1,00 say '' @ prow()+1,00 say '' * use set printer to set device to screen set printer off return