home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / ergo.zip / ERGO.CMD next >
OS/2 REXX Batch file  |  1993-10-28  |  2KB  |  34 lines
  1. /*          REXX Ergonomic Reminder for OS/2                  */
  2. /*                                                            */
  3. /*   Written by: David Richard                                */
  4. /*               Fleming Companies, Inc.                      */
  5. /*               Development Support Group                    */
  6. /*                                                            */
  7. /*   Purpose:    Create a distinctive BEEP sound every hour   */
  8. /*               to remind workstation users to take a short  */
  9. /*               break from their work.                       */
  10. /*                                                            */
  11. /*  Load REXX System Functions                                */
  12. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  13. Call SysLoadFuncs;           
  14. /*                                                            */
  15. /*  Make Beep sounds so user will know what to listen for     */
  16. CALL Beep 2500,250
  17. CALL Beep 1250,125
  18. /*                                                            */
  19. /*  Sleep for 1 hour (3600 seconds)                           */
  20. CALL SysSleep 3600
  21. DO Forever
  22.     CALL Beep 2500,250
  23.     CALL Beep 1250,125
  24.     CALL SysSleep 3598
  25. End
  26. /*   Sleep for a little less than one hour to compensate       */
  27. /*   for the time it takes to:                                 */
  28. /*               Wake up from SysSleep                         */
  29. /*               Process the END of the DO statement           */
  30. /*               Make Beep sounds                              */
  31. /*    On my PS/2 Mod-80, this compensation is about 2 seconds  */
  32. /*    Other machines may need less (or no) compensation        */
  33. /*    Feel free to modify the 2nd SysSleep for your needs      */
  34.