``

prev Menu next

INPUT TIMEOUT
Let t be a numeric expression.
`INPUT TIMEOUT t : variable, variable , …
INPUT TIMEOUT t ,PROMPT Format_String : variable , variable , …
` If no input reply is given within t seconds, an exception of extype 8401 is raised.
Example

    100 LET prompt$="If no reply is given within 3 seconds, it is assumed that 1 is entered."
    110 WHEN EXCEPTION IN
    120    INPUT TIMEOUT 3 ,PROMPT prompt$:n
    130 USE
    140    SELECT CASE EXTYPE
    150    CASE 8401
    160       LET n=1
    170    CASE 8103
    180       LET prompt$="Re-input"
    190       RETRY
    200    CASE ELSE
    210       EXIT HANDLER
    220    END SELECT
    230 END WHEN
    240 PRINT n
    250 END