home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / Remind.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-15  |  508 b   |  22 lines
  1. /* this is the actual nagger */
  2. parse arg reminder 
  3.  
  4. parse var reminder date waittime nag message 
  5.  
  6. "date | execio stem today."
  7. parse var today.1 day todaydate time .
  8.  
  9. select
  10.   when date = todaydate then "wait until " waittime 
  11.   when date = "everyday"  then "wait until " waittime
  12.   when date = day then "wait until "waittime
  13.   otherwise exit
  14. end
  15. do i = 1 to 50
  16.    call screentofront()
  17.    x = request(100,100,message,,"Okay! Okay!")
  18.    if x = "OKAY" then exit
  19.    if nag = 1 then wait MIN 1
  20.    else exit
  21. end
  22.