;----- Doorway invocation: Modify this to suit your installation ----
;
S29 = "c:\doorway\doorway com4 /S:* /G:ON /V:B^U /M:1000 /C:DOS /V:D /B:Z"
;
; ----- COM-AND Drop-to-DOS -----------------------------------------
;
;	This script performs the following:
;
;	i)	A batch file is built (named DROPDOS.BAT)
;	ii)	Invocation of DROPDOS is stacked, with typethru disabled
;	III)	COM-AND is terminated without hanging up
;
;	The batch file:
;
;	i)	Invokes a doorway function, as specified in above
;	ii)	When the doorway exits, COM-AND is restarted, without hangup
;
;	This function allows DOS (or a program) to be made fully available
;	(in text mode display) to a remote caller.
;
;	Pgm: R.McGinnis; Chicago 1991
; --------------------------------------------------------------------
;
;	Build a batch file
;
	FOPENO "DROPDOS.BAT" TEXT
	IF NOT SUCCESS
	   MESS "File error - cannot open batch file^M^J"
	   EXIT
	   ENDIF

	WRITE "ECHO OFF!"       ; Start the batch file
	S0 = S29		; Setup up drop to DOS command
	PRESERVE S0		; Make it printable
	WRITE S0		; Write the Drop to DOS command
	WRITE "!"               ; And a terminating cr

	WRITE "CD "*"_SUBD"*"!" ; Change a changed directory
	WRITE "COM-AND /q/p!"   ; Inhibit COM-AND.CMD; take modem as set
	WRITE "^Z"
	FCLOSEO 		; And we're done with it

	CLOG "* Drop-to-DOS"

	SET TTHRU OFF		; Disable type through
	STACK CLEAR		; Place invocation of the batch file
	STACK "DROPDOS.BAT!"    ; .. into BIOS's area
	BYE			; Do it.