home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / RECEIVE < prev    next >
Text File  |  1991-08-28  |  516b  |  21 lines
  1. > watch(on)
  2. > dir = '\receive'
  3. > mkdir(dir)
  4. > loop:
  5. > chdir(dir)
  6. > delete('*.*')
  7. > logfile='receive.log'
  8. > delete(logfile)
  9. > log(logfile)
  10. > protocol = 'Xmodem'
  11. > hostfilename = ''
  12. > pcfilename = 'softerm.exe'
  13. > hostcmd = 'x1ksend softerm.exe' + valtochr(13) + valtochr(10)
  14. > receive(protocol,hostfilename,pcfilename,replace,hostcmd,on)
  15. > protocol = 'Kermit Server'
  16. > hostfilename = '*.*'
  17. > pcfilename = ''
  18. > hostcmd = ''
  19. > receive(protocol,hostfilename,pcfilename,replace,hostcmd,on)
  20. > goto loop
  21.