home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / CLOSEALL < prev    next >
Text File  |  1991-09-27  |  395b  |  16 lines
  1. > watch(on)
  2. > delete('\opennew.00?')
  3. > delete('\openold.00?')
  4. > copy('\config.sys','\openold.000',replace)
  5. > nr1 = opennew('\opennew.000',nh1)
  6. > or1 = openold('\openold.000',oh1)
  7. > result = closeall()
  8. > message ('closeall result = ' + valtostr(result))
  9. > message('Press any key to terminate script')
  10. > timeout = 0
  11. > wait()
  12. > delete('\opennew.00?')
  13. > delete('\openold.00?')
  14. > end
  15.  
  16.