home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 May / buyer-0596.iso / internet / ameol / ameol16 / ipsend.sc_ / ipsend.sc
Encoding:
Text File  |  1994-09-19  |  773 b   |  32 lines
  1. REM IPSEND.SCR v1.21 "Get any files in ip> directory"
  2. REM Contributed by mentha@cix
  3. REM Ameol script obtains then erases all files in your Cix ip> directory.
  4. REM It stores the files in your Ameol download directory.
  5. REM Modified 9/94 to use DOSSIFY
  6. REM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  7. status "Downloading any files in ip> directory..."
  8. put "run internet"
  9. waitfor "ip>"
  10. put "dir"
  11. if waitfor("ip> ","              ^M^J ")==0
  12.  status "Your ip> directory is empty."
  13.  put "quit"
  14.  waitfor "M:"
  15.  status ""
  16.  end
  17. endif
  18. waitfor "ip>"
  19. put "dossify"
  20. waitfor "ip>"
  21. put "send *"
  22. pause 200
  23. download ""
  24. status "ip> files received to \download"
  25. pause 200
  26. put "erase *"
  27. waitfor "ip>"
  28. put "quit"
  29. waitfor "M:"
  30. status ""
  31. end
  32.