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

 
Output of file : DSZUP.CMD contained in archive : CA29-3.ZIP
; ----- DSZUP: Invoke DSZ to upload.
; ----------------------------------------------------------------
; Note: This script invokes DSZ, using the current comm port
; settings. Note that the 'sz' sent to DSZ invokes a ZMODEM
; download. Change 'sz' to 'rb' for YMODEM-BAtch...
; ----------------------------------------------------------------
;
; Get the file spec to upload
;
GOSUB Get_Name ; Read file name into S0
IF FAILED ; If ESC pressed
EXIT ; Stop here
ENDIF
;
; Set-up and run DSZ
;
COMPARMS S1 ; read current settings
S2 = "DSZ.COM port " * S1(14:14) * " sz " * S0 ; e.g. "DSZ port 2 sz"
RUN S2 ; Load and run DSZ
;
; Play a tune to signal completion
;
IF SUCCESS
PLAY "T200MNO2G24O3C24E24G8G24G24G24G8E8E24E24E24E8C8E8C8O2G8"
ELSE
PLAY "ms t250 o2 c2d8e-cp4 >c2d8e-cp4g-1 p2"
ENDIF
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) " DSZ 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 : DSZUP.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/