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