TIMEOUT

TIMEOUT(time, function)

Type: directive

DISPLAY の後に指定時間が経過した後にファンクション・サブルーチンを呼び出します。

<time> = 経過時間(ミリ秒)
<function> = 呼び出す FUNCTION または SUB

FUNCTION では RETURN として TRUE を返す事で TIMEOUT が再度作動します。
SUB では必ず TIMEOUT が再度作動するようにします。
再度設定する事で、呼び出す時間を変更する事が可能です。

例:

INCLUDE "hug.bac", INIT, GET, SET, WINDOW, PROGRESSBAR, ATTACH, TIMEOUT, DISPLAY
DECLARE pb, x, offset 
offset = 1
FUNCTION set_value 
    INCR x, offset 
    IF x >= 100 OR x <= 0 THEN offset = -1*offset 
    SET(pb, x) 
    PRINT GET(pb) 
    RETURN TRUE 
END FUNCTION
INIT 
win = WINDOW("Progressbar", 200, 30) 
pb = PROGRESSBAR("demo", 200, 30) 
ATTACH(win, pb, 0, 0) 
TIMEOUT(100, set_value) 
DISPLAY
