18 lines
410 B
Plaintext
18 lines
410 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing the VERSION function
|
|
/* Harbour Project source code
|
|
http://www.Harbour-Project.org/
|
|
Donated to the public domain by David G. Holm <dholm@jsd-llc.com>.
|
|
*/
|
|
|
|
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
|