a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
23 lines
353 B
Plaintext
23 lines
353 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing AltD() and Alert() coloring
|
|
// Notice you have to compile it using /b
|
|
|
|
PROCEDURE Main()
|
|
|
|
CLS
|
|
|
|
AltD( 1 ) // Enables the debugger. Press <F5> to go
|
|
|
|
Alert( "debugger enabled",, "GR+/B" )
|
|
|
|
AltD() // Invokes the debugger
|
|
|
|
Alert( "debugger invoked",, "GR+" )
|
|
|
|
Alert( "finished",, "GR+/B,W+/R" )
|
|
|
|
RETURN
|