home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / chronos / chron / 8to5.chm next >
Encoding:
Text File  |  1994-01-17  |  276 b   |  14 lines
  1. /**
  2. *** This will schedule the event if the time is between 8am and 4:59 pm.
  3. **/
  4.  
  5. parse arg EventName, MessageText
  6.  
  7. CurrentHour = time("Hours")
  8. if CurrentHour < 8 then
  9.    return 0
  10. if CurrentHour > 16 then /* 5pm */
  11.    return 0
  12.  
  13. return 1  /* Schedule the event */
  14.