MSGBOX("10秒毎にユーザ操作があったか見る")
DIM colBG=$FFFF
WHILE 1
　SLEEP(10)
　IFB TRUE = GETKEYSTATE( VK_ESC ) THEN
　　BREAK
　ENDIF
　IFB 10000 >= getMSecAgoLastInput() THEN
　　FUKIDASI("10秒内に操作あり(ESCで10秒後おわり)",,,,,,,colBG)
　ELSE
　　FUKIDASI("10秒操作
MSGBOX("おわり")

DEF_DLL GetLastInputInfo({DWORD, DWORD}): BOOL: user32
DEF_DLL GetTickCount(): DWORD:Kernel32.dllなし(ESCで10秒後おわり)",,,,,,,colBG)
　ENDIF
　IFB $FFFF=colBG THEN
　　colBG=$80FF
　ELSE
　　colBG=$FFFF
　ENDIF
WEND
FUKIDASI()

// 最後に入力のあったのは何ミリ秒前か
FUNCTION getMSecAgoLastInput( )
　DIM tickLastInput
　GetLastInputInfo(8, tickLastInput)
　DIM ms = GetTickCount() - tickLastInput
　RESULT = ms
FEND