dotimer.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 14 行

        subroutine DoTimer( start )
        logical start

        include 'gui.fi'

        if( start ) then
            call WinStartTimer( AnchorBlock, WinHandle, TIMER_ID, TimerDelay )
        else
            call WinStopTimer( AnchorBlock, WinHandle, TIMER_ID )
        end if

        end