>Sioux
残念だがそうじゃない
chokuto氏の借りると以下
#uselib "user32.dll"
#func SetTimer "SetTimer" int,int,int,int
#func KillTimer "KillTimer" int,int
#define WM_TIMER 0x0113
#define TIMER_ID 1
screen 0, 300, 50:oncmd gosub *OnTimer, WM_TIMER:onexit goto *OnQuit
SetTimer hwnd, TIMER_ID, 10, 0:stop
*OnTimer : if wparam == TIMER_ID : gosub *RedrawClock
return 0
*RedrawClock:redraw 0:c=255:color c,c,c:boxf
c=0:color c,c,c:boxf 0,0,x,50:if x==300:x=0:else:x+=3
redraw:return
*OnQuit : KillTimer hwnd, TIMER_ID : end