home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / CHIP_CD_1999_08_PL.iso / software / fax / faxserve5 / disk7 / BBSRECV.SC_ / BBSRECV.bin
Encoding:
Text File  |  1996-12-17  |  633 b   |  19 lines
  1. trace(1);
  2.  
  3. {BBSRECV.ACT}
  4.  
  5. { This Action file initiates the receipt of a file from a BBS,        }
  6. { automatically using XMODEM.  It checks if a filename argument is    }
  7. { given, and prompts if not. If you wish to use Kermit rather than    }
  8. { XMODEM, change the parameter on the last line to KERRECV.           }
  9.  
  10. @a = @1
  11. if (@1 <> "") goto :noprompt
  12. @a = prompt("Enter receive filename: ");
  13. if (@a = "") exit;
  14. :noprompt
  15. "d;@a"; @return;
  16. cwait("?"); "x"; @return;
  17. cwait("...");
  18. recvfile(@a, "xmodem");
  19.