en Ejemplos, Harbour

Ejemplo Versión (version.prg)

/*
   $Id: version.prg 14676 2010-06-03 16:23:36Z vszakats $

   Testing the VERSION function

   Harbour Project source code http://harbour-project.org/
   Donated to the public domain by David G. Holm <[email protected]>.
*/

Function Main()

   outstd( chr( 34 ) + version() + chr( 34 ) + hb_osnewline() )
  
outstd( chr( 34 ) + hb_compiler() + chr( 34 ) + hb_osnewline() )
  
outstd( chr( 34 ) + os() + chr( 34 ) + hb_osnewline() )

   Return nil

06-06-2010 12-18-44