32 lines
381 B
Plaintext
32 lines
381 B
Plaintext
// Testing Harbour INIT and EXIT functions
|
|
|
|
function Main()
|
|
|
|
QOut( "Hello from Main()" )
|
|
|
|
return nil
|
|
|
|
init function SecondOne()
|
|
|
|
QOut( "Hello from Second()" )
|
|
|
|
return nil
|
|
|
|
init function Third()
|
|
|
|
QOut( "Hello from Third()" )
|
|
|
|
return nil
|
|
|
|
exit function Fifth()
|
|
|
|
QOut( "Hello from Fifth()" )
|
|
|
|
return nil
|
|
|
|
exit function Sixth()
|
|
|
|
QOut( "Hello from Sixth()" )
|
|
|
|
return nil
|