home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / e / dd_Modules.lha / dd_Modules / dd_devices / dd_timenotifytest.e < prev    next >
Encoding:
Text File  |  1995-05-04  |  468 b   |  23 lines
  1. MODULE 'dos/dos'
  2. MODULE '*dd_timenotify'
  3.  
  4. PROC main() HANDLE
  5.   DEF timenot:PTR TO timenotify
  6.   DEF mask
  7.   NEW timenot.new()
  8.   timenot.request(5,0)
  9.   PrintF('Press CTRL-C or just wait 5 seconds.\n')
  10.   mask:=Wait(SIGBREAKF_CTRL_C OR timenot.signalmask())
  11.   IF mask AND SIGBREAKF_CTRL_C
  12.     PrintF('You breaked me.\n')
  13.   ENDIF
  14.   IF mask AND timenot.signalmask()
  15.     PrintF('5 seconds timeout.\n')
  16.   ENDIF
  17.   END timenot
  18. EXCEPT
  19.   PrintF('exception was raised\n')
  20. ENDPROC
  21.  
  22.  
  23.