; BGFTUIPC.ASP: PCPLUS script for BGFT Xmodem-1K upload.
; Copyright 1990-1991 Dirac Systems.
; Support Package for Registered users of BGFT (TM).
; PCPLUS is a trademark of Datastorm Technologies Inc.
;
; MANUAL INSTALLATION: See BGFTDYPC.ASP
MESSAGE" "
MESSAGE"    Copyright 1990-1991 Dirac Systems"
MESSAGE"                                       \ /"
MESSAGE"------------------------------------- - o -"
MESSAGE"                                       / \"
MESSAGE"BGFT Xmodem-1K Upload External Protocol"
MESSAGE" "
ASSIGN S0 1                     ; USER DEFINED COMM PORT.
ASSIGN S1 1200                  ; USER DEFINED BAUD RATE.
ASSIGN S2 "BGFTOPT /Q"          ; Quiet mode (don't print out results).
STRCAT S2 " /A"                 ; Acknowledge error, if any.
STRCAT S2 " /R"                 ; Reconnect COMM port.
STRCAT S2 S0
STRCAT S2 " /B"                 ; Set baud rate.
STRCAT S2 S1
MESSAGE "INPUT XMODEM UPLOAD FILE NAME IN THE FILE BUFFER:"
GET S3                          ; USER INPUT XMODEM FILENAME.
STRCAT S2 " /U"                 ; Upload file entry.
STRCAT S2 S3
STRCAT S2 " /~"                 ; Set protocol.
STRCAT S2 "4"                   ; USER DEFINED PROTOCOL (Xmodem-1K Upload).
STRCAT S2 " /S"                 ; Start file transfer.
DOS S2                          ; Run BGFTOPT.EXE with appropriate command.
IF FAILURE
        MESSAGE "COMMAND.COM NOT FOUND"
        EXIT                    ; End script and go to terminal mode.
ENDIF
BYE                             ; Exit PCPLUS without hanging up.