Click above to get retro games delivered to your door ever month!

Syntax: N_WSTATE()

Returns single character abbreviation of current wait-state

Example

* Universal N_NOKEY procedure terminates any wait-state
* Stuff Esc (27) onto keybd if CHOICE, INKEY, MENU, READ or WAIT
* Stuff Enter (13) if Accept
PROCEDURE Cancel
KEYBOARD IIF( N_WSTATE()$"CIMRW" , CHR(27) , CHR(13) )
RETURN

Notes

N_WSTATE returns a code indicating the type of wait-state currently in
effect:

     "A" = Accept/input  "C" = aChoice       "I" = Inkey (delay)
     "M" = Menu          "R" = Read          "W" = Wait

5.0: The following additional codes may be returned under Clipper 5.0:

     "D" = DBedit        "O" = memOedit

     <null string>  = undefined wait-state, or no wait-state active

N_WSTATE is for use inside of an Event Procedure only.  It will return null
string ("") if issued outside of an Event Procedure.