| Arquivo: Exemplo.prg |
| FUNCTION Main() x_print( "Esta eh uma mensagem de exemplo." ) x_println( "Esta eh uma mensagem de exemplo." ) PRIVATE nome := x_input( "Qual eh o seu nome? " ) x_println( "Olah, " + nome + "!" ) RETURN NIL FUNCTION x_print( cMessage ) ?? cMessage // Sem quebra de linha RETURN NIL FUNCTION x_println( cMessage ) ?? cMessage // Com quebra de linha ? "" RETURN NIL FUNCTION x_input( cPrompt ) LOCAL cValue := "" ?? cPrompt // Exibe o prompt sem quebra de linha ACCEPT TO cValue // Lê a entrada do usuário ? "" RETURN cValue |