INPUT TIMEOUT

INPUT TIMEOUT 数値式 : 変数 , 変数 , …
INPUT TIMEOUT 数値式 ,PROMPT 文字列式 : 変数 , 変数 , …
 指定された秒数以内に入力応答がないとextype=8401の例外状態になる。

100 LET prompt$="3秒以内に入力がなければ1を入力したものとみなす "
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$="再入力"
190       RETRY
200    CASE ELSE
210       EXIT HANDLER
220    END SELECT 
230 END WHEN
240 PRINT n
250 END