前頁  メニュー  次頁


INPUT TIMEOUT

  INPUT TIMEOUT 数値式 : 変数 , 変数 , …
  INPUT TIMEOUT 数値式 ,PROMPT 文字列式 : 変数 , 変数 , …

  指定された秒数以内に入力応答がないとextype=8401の例外状態になる。

例
100 LET prompt$="3秒以内に答えよ"
110 WHEN EXCEPTION IN
120    INPUT TIMEOUT 3 ,PROMPT prompt$:a
130 USE
140    SELECT CASE EXTYPE
150    CASE 8401
160       PRINT "失格"
170    CASE 8103
180       LET prompt$="再入力"
190       RETRY
200    CASE ELSE
210       EXIT HANDLER
220    END SELECT 
230 END WHEN
240 END