home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / OPENNEW.SCR < prev    next >
Text File  |  1992-01-03  |  758b  |  23 lines
  1. > windowshow()
  2. > ; watch(on)
  3. > delete('\opennew.00?')
  4. > delete('\openold.00?')
  5. > copy('\config.sys','\openold.000',replace)
  6. > nh1 = 0
  7. > nr1 = opennew('\opennew.000',nh1)
  8. > nr2 = opennew('\openold.000',nh2)
  9. > oh1 = 'abc'
  10. > or1 = openold('\openold.000',oh1)
  11. > or2 = openold('\opennew.000',oh2)
  12. > message ('test1, result = ' + valtostr(nr1) + ', handle = ' + valtostr(nh1))
  13. > message ('test2, result = ' + valtostr(nr2) + ', handle = ' + valtostr(nh2))
  14. > message ('test3, result = ' + valtostr(or1) + ', handle = ' + valtostr(oh1))
  15. > message ('test4, result = ' + valtostr(or2) + ', handle = ' + valtostr(oh2))
  16. > message('Press any key to terminate script')
  17. > timeout = 0
  18. > wait()
  19. > delete('\opennew.00?')
  20. > delete('\openold.00?')
  21. > end
  22.  
  23.