home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / WAIT < prev    next >
Text File  |  1991-08-19  |  364b  |  14 lines
  1. > watch(off)
  2. > timeout = 10
  3. > message('Pausing 10 seconds')
  4. > result = wait()
  5. > message('Resuming after pause, return code = ' + valtostr(result))
  6. > timeout = 0
  7. > message('Press any key')
  8. > result = wait()
  9. > message('Resuming after keypress, return code  = ' + valtostr(result))
  10. > message('Press any key to terminate script')
  11. > result = wait()
  12. > end
  13.  
  14.