Clarion - Primeiro Programa - 09 05 09 08:20

program

map
testeproc
end

code
testeproc()

testeproc procedure
code
message('ola')