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

 READX()     READ with time out option

 Syntax....: READ( [timeout] )
 Parameters: <expN>: [timeout] = seconds to delay  [optional]

 Returns...: <expL>: .T. if not Esc pressed & not timed out
 Cautions..: Times out only if a key has not yet been pressed
 CC Calls..: none
 Alias.....: none

 Example...: var1= SPACE(8)
             var2= SPACE(10)
             @10,20 SAY " ID Code:" GET sp1
             @12,20 SAY "Password:" GET sp2
             IF READX( 9 )             && .T. if not Esc & not time out
               DO something ....