33 lines
663 B
Plaintext
33 lines
663 B
Plaintext
// #include "set.ch" - Preset in pptable.c
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
CLS
|
|
|
|
? "DEFAULT IDLEREPEAT =", SET( _SET_IDLEREPEAT )
|
|
?
|
|
? "Idle Block should be displayed multiple times until key or 10 seconds elapsed!"
|
|
? "Press any key to begin..."
|
|
?
|
|
Inkey(0)
|
|
|
|
HB_IDLEADD( {|| QOut( "Idle Block" ) } )
|
|
Inkey( 2 )
|
|
|
|
SET( _SET_IDLEREPEAT, .F. )
|
|
|
|
HB_IDLEADD( {|| QOut( "Idle Block2" ) } )
|
|
|
|
CLS
|
|
? "Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
|
|
?
|
|
Inkey( 2 )
|
|
|
|
?
|
|
? "Again - Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
|
|
?
|
|
Inkey( 2 )
|
|
?
|
|
|
|
RETURN
|