LEGEND " Delphi.cmd"            ; Put script name on status bar...
;
; ----- Delphi: Dial Delphi through TYMNET
; ----------------------------------------------------------------
;	Note: You must create a logon file with MKLOGON in order to
;	have this script automatically log you on... Please see the
;	file SCRIPTS.DOC
; ----------------------------------------------------------------
;	Note: This script is written to be FCALLed, executed directly (F2)
;	or attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
;	Note: This script requires the script TYMNET.CMD.  TYMNET.CMD
;	requires that a dialing directory entry number be prepared.
;	Unless you modify TYMNET.CMD, the entry number defaults to 10.
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Call Tymnet (if not already dialed)
;
	IF NOT ISSC "TYMNET"    ; If script not available
	   MESS "TYMNET.CMD script not found"
	   EXIT 		; terminate script
	   ENDIF
	FCALL "TYMNET"          ; Dial TYMNET (ifnot already dialed)
	LEGEND " Connecting to Delphi"
;
;	Connect to Delphi
;
	TRANSMIT "delphi!"      ; give telenet the host name identifier
;
;	Set states
;
	SET BSUPPRESS OFF	; Turn off blank line suppression
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY OFF	; Delphi command set
;
;	Send name and password
;
	WAITFOR "Username"      ; Wait for "Username" to be received
;
;	If we have a DELLOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "DELLOGON" FCALL "DELLOGON"
;
;	Exit - this script may be fcalled
;
	IF FCALLED FRETURN	; Return to caller if called
	ALARM			; Otherwise, sound alarm - we're done