home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / bg303 / bgftuipc.asp < prev    next >
Encoding:
Text File  |  1994-03-03  |  1.6 KB  |  38 lines
  1. ; Version 3.03 BackGround File Transfer
  2. ; BGFTUIPC.ASP: PROCOMM PLUS version 2 script for BGFT Xmodem-1K upload.
  3. ; Copyright (c) 1990-1994 Dirac Systems
  4. ; PROCOMM PLUS is a trademark of Datastorm Technologies Inc.
  5. ;
  6. ; All files marked for upload in file buffer will be uploaded.
  7. ;
  8. proc main
  9. MESSAGE " "
  10. MESSAGE "Copyright (c) 1990-1994 Dirac Systems"
  11. MESSAGE "                                       \ /"
  12. MESSAGE "------------------------------------- - o -"
  13. MESSAGE "                                       / \"
  14. MESSAGE "BGFT Xmodem-1K Upload External Protocol"
  15. MESSAGE " "
  16. ASSIGN S0 "1"                   ; USER DEFINED COMM PORT.
  17. ASSIGN S1 "1200"                ; USER DEFINED BAUD RATE.
  18. ASSIGN S2 "BGFTOPT /Q"          ; Quiet mode (don't print out results).
  19. STRCAT S2 " /A"                 ; Acknowledge error, if any.
  20. STRCAT S2 " /R"                 ; Reconnect COMM port.
  21. STRCAT S2 S0
  22. STRCAT S2 " /B"                 ; Set baud rate.
  23. STRCAT S2 S1
  24. MESSAGE "INPUT XMODEM UPLOAD FILE NAME IN THE FILE BUFFER:"
  25. GET S3                          ; USER INPUT XMODEM FILENAME.
  26. STRCAT S2 " /U"                 ; Upload file entry.
  27. STRCAT S2 S3
  28. STRCAT S2 " /~"                 ; Set protocol.
  29. STRCAT S2 "4"                   ; USER DEFINED PROTOCOL (Xmodem-1K Upload).
  30. STRCAT S2 " /S"                 ; Start file transfer.
  31. DOS S2                          ; Run BGFTOPT.EXE with appropriate command.
  32. IF FAILURE
  33.         MESSAGE "COMMAND.COM NOT FOUND"
  34.         EXIT                    ; End script and go to terminal mode.
  35. ENDIF
  36. BYE                             ; Exit PROCOMM PLUS version 2 without hanging up.
  37. endproc
  38.