``

前頁 メニュー 次頁

    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