* * FANTASMA.PRG - Gerar bateria de encerramento do Evento * set cursor on select h use aspgerad telinha=savescreen(15,14,19,62) texto="Spplacar.htm de Encerramento" painel(15,14,19,62,.f.,texto,"",CorCalci,CorVerme) @ 16,15 clear to 18,61 * set color to "w+/bg,w+/bg" @ 16,16 get linhas @ 17,16 get linham @ 18,16 get linhai if rlock() read unlock else do pspaviso endif * restscreen(15,14,19,62,telinha) * * Geracao da Bateria * delete file \internet\vertical.htm set device to print set printer to \internet\vertical.htm * @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say ''+mtitulo+'' @ prow()+1,00 say '' @ prow()+1,00 say '' @ prow()+1,00 say '
' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say ' ' @ prow()+1,00 say '
' @ prow()+1,00 say '

'+linhas+'

' @ prow()+1,00 say '

'+linham+'

' @ prow()+1,00 say '

'+linhai+'

' @ prow()+1,00 say '

© SurfPRO - Scoring System - Floripa - SC

' @ prow()+1,00 say '
' @ prow()+1,00 say '
' @ prow()+1,00 say '' @ prow()+1,00 say '' use set device to screen set printer to set cursor off return