include 'win32axp'

.data
id dd 0
tick dd 0

.code
proc TimerProc hwnd, uMsg, idEvent, dwTime
mov eax,[idEvent]
 .if eax = id
                inc [tick]
          cinvoke printf, <"Timer tick -- %u",10>, [tick]
        .endif
ret
endp

proc main
   invoke SetTimer, 0, 0, 1000, TimerProc
        mov [id], eax
     if ~eax

         cinvoke puts, "Failed."
                cinvoke exit, 1
        .endif

  cinvoke printf, "Press ENTER to EXIT. "
        cinvoke getchar

        invoke KillTimer, 0, [id]

        cinvoke exit, 1
endp

.end main