home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / chrdmo.zip / 8TO5.CHM next >
Text File  |  1994-01-17  |  276b  |  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.