home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / XMITWAIT < prev   
Text File  |  1991-10-18  |  608b  |  26 lines
  1. > watch(on)
  2. > timeout = 0
  3. > txstring = 'DIR' + valtochr(13) + valtochr(10)
  4. > echo = OFF
  5. > rs1 = ''
  6. > rs2 = ''
  7. > rs3 = ''
  8. > rs4 = ''
  9. > rs5 = ''
  10. > rs6 = ''
  11. > rs7 = ''
  12. > rs8 = ''
  13. > rs9 = ''
  14. > rs10 = 'READY'
  15. > result = xmit_wait(txstring,echo,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,rs9,rs10)
  16. > message('xmit_wait return code = ' + valtostr(result))
  17. > timeout = 10
  18. > txstring = ''
  19. > rs10 = 'READY'
  20. > result = xmit_wait(txstring,echo,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,rs9,rs10)
  21. > message('xmit_wait return code = ' + valtostr(result))
  22. > message('Press any key to terminate script')
  23. > wait()
  24. > end
  25.  
  26.