home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cenvi23.zip / WAIT.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-11  |  1KB  |  26 lines
  1. @echo OFF
  2. REM **************************************************************************
  3. REM *** Wait.bat - Wait for a specified number of seconds before returing. ***
  4. REM *** ver.1      No check is done on the input being valid.              ***
  5. REM ***            This example would wait ten seconds: " Wait 10"         ***
  6. REM ***            This example uses the OS/2 system call to suspend       ***
  7. REM ***            processing, which is preferable to polling the current  ***
  8. REM ***            time.  The ordinal for DosSleep (see DosCalls.lib) is   ***
  9. REM ***            229.                                                    ***
  10. REM **************************************************************************
  11.  
  12. if not S%1S==SS goto do_it
  13. ECHO You must supply the number of seconds to wait.
  14. goto out
  15.  
  16. :do_it
  17. CEnvi2 DynamicLink("doscalls",229,BIT32,CDECL,%1 * 1000)
  18.  
  19. REM ********************************************************************
  20. REM *** The following method would have been an easier way to wait   ***
  21. REM *** the same amount of time, but it wouldn't have been such fun. ***
  22. REM ********************************************************************
  23.  
  24. REM CEnvi2 suspend(%1 * 1000)
  25. :out
  26.