; ----- DSZDOWN: Invoke DSZ to download.
; ----------------------------------------------------------------
;	Note: This script invokes DSZ, using the current comm port
;	settings.  Note that the 'rz' sent to DSZ invokes a ZMODEM
;	download.  Change 'rz' to 'rb' for YMODEM-BAtch...
; ----------------------------------------------------------------
;
;	Invoke DSZ
;
	COMPARMS S1		; read current settings
	S2 =  "\comm\dsz\DSZ.COM port " * S1(14:14) * " rz " ; e.g. "DSZ port 2 rz "
	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