home *** CD-ROM | disk | FTP | other *** search
- ; Version 3.03 BackGround File Transfer
- ; BGFTDXQM.SCR: Qmodem 4.52 script for BGFT Xmodem-CRC or 1K Download.
- ; Copyright (c) 1991-1994 Dirac Systems
- ; Qmodem is a trademark of Mustang Software Inc.
- ;
- CLRSCR
- DISPLAYLN " "
- DISPLAYLN "Copyright (c) 1991-1994 Dirac Systems \ /"
- DISPLAYLN "------------------------------------- - o -"
- DISPLAYLN " / \"
- DISPLAYLN "BGFT Xmodem-CRC or Xmodem-1K Download External Protocol"
- DISPLAYLN " "
- ASSIGN 0 1 ; USER DEFINED COMM PORT.
- ASSIGN 1 1200 ; USER DEFINED BAUD RATE (Qmodem $SPEED?).
- ASSIGN 2 "BGFTOPT /Q" ; Quiet mode (don't print out results).
- ASSIGN 3 " /A" ; Acknowledge error, if any.
- ASSIGN 4 " /R" ; Reconnect COMM port.
- ASSIGN 5 "$2$3$4$0" ; Concatenate the commands.
- ASSIGN 6 " /B" ; Set baud rate.
- DISPLAY "INPUT XMODEM-CRC or -1K DOWNLOAD FILE NAME: " ; Get filename for Xmodem.
- GET 0 12 ; USER INPUT XMODEM FILENAME.
- ASSIGN 7 " /D$0" ; Download file entry.
- ASSIGN 8 " /~" ; Set protocol.
- ASSIGN 9 "1" ; USER DEFINED PROTOCOL (Xmodem-CRC/1K Download).
- ASSIGN 2 " /S" ; Start file(s) transfer.
- ASSIGN 3 "$5$6$1$7$8$9$2" ; DOS command.
- DISPLAYLN "$3" ; Show the command.
- DOS "$3" ; Run BGFTOPT.EXE with appropriate command.
- SYSTEM X ; Exit QMODEM without hanging up.
-