home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcls.zip / DELAY.CMD next >
OS/2 REXX Batch file  |  1995-12-20  |  328b  |  15 lines
  1. /* REXX program to split NDPC Download file into seperate rout files. */
  2. '@Echo off'
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. count = arg(1)
  7. if count = '' then
  8.    say 'USAGE: DELAY timeinsecs'
  9. else do
  10.    tm = time('R')
  11.    do while ( tm < count )
  12.       tm = time('E')
  13.    end
  14. end
  15.