'タイマー #N88BASIC [[Dim]] cx As Single Dim hwnd As HWND hwnd = GetForegroundWindow() SetTimer(hwnd,1,300,[[AddressOf]](TimerProc)) While cx < 10 Sleep(222) Wend KillTimer(hwnd,1) [[Print]] "owari" Sub TimerProc(hwnd As HWND,uMsg As DWOrd,idEvent As *DWord,dwTime As DWord) If idEvent = 1 Then Print "cx=";cx cx = cx + 1 [[End]] If End Sub