Files
harbour-core/harbour/tests/working/calling.prg
1999-05-09 17:28:11 +00:00

32 lines
433 B
Plaintext

// Calling different PRG functions
function Main()
SecondOne()
DO Fourth WITH "from Fourth() function" // Testing the old fashion DO ...
QOut( "Ok, back to Main()" )
return nil
function SecondOne()
QOut( "Ok, this is from Second() function call" )
Third()
return nil
function Third()
QOut( "Ok, this is from Third() function call" )
return nil
function Fourth( cText )
QOut( cText )
return nil