Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : KERUP.CMD

 
Output of file : KERUP.CMD contained in archive : CA29-3.ZIP
; ----- KERUP: Invoke PCKERMIT to upload.
; ----------------------------------------------------------------
; Note: This script invokes PCKERMIT using the current comm
; port settings.
; ----------------------------------------------------------------
;
; Get the file spec to upload
;
GOSUB Get_Name ; Read file name into S0
IF FAILED ; If ESC pressed
EXIT ; Stop here
ENDIF
;
; Invoke PCKERMIT
;
COMPARMS S1 ; read current settings
S2 = "PCKERMIT.EXE -l " * S1(11:14) * " -b " * S1(0:3) * " -s " * S0 ; e.g. "... -lcom2 -b1200 -s
RUN S2 ; Load and run
EXIT
;
; ----- Subroutine: Open a window and ask for a file name
; SUCCESS/Failed returned to indicate ESCape
; S0 returns the name
;
Get_Name:
WOPEN 10 10 13 70 (Default) ESC
ATSAY 10 ,12 (default) " KERMIT upload "
ATSAY 11 ,11 (default) " Specify the file name:"
ATSAY 13 30 (default) " Press ESC to exit "
ATGET 12, 12 (default) 54 S0
WCLOSE
;
; If null response, return failed
;
SET SUCCESS ON ; Default return
LJ S0 ; Left justify
IF NULL S0
SET SUCCESS OFF
ENDIF
RETURN
;
; ESC hit during entry
;
ESC:
S0 = "" ; Make a null return
RETURN


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : KERUP.CMD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/