LEGEND " UNISON.CMD"		; Put script name on status bar...
;
; ----- Dial UNISON through TELENET and logon
;	R.McG; 10/92, Chicago
; ----------------------------------------------------------------
;	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 SPRINT.CMD.  SPRINT.CMD
;	requires that a dialing directory entry number be prepared.
;	Unless you modify SPRINT.CMD, the entry number defaults to 10.
; ----------------------------------------------------------------
;	S0 is modified by this script.
;	SUCCESS/FAILED is returned by this script to an FCALLer
;	FAILED -> 1) SPRINT.CMD failed to connect -or-
;		  2) UNILOGON.CMD/ENF not found
; ----------------------------------------------------------------
;
;	Call SprintNet (if not already dialed)
;
	IF NOT ISSC "SPRINT"	; If script not available
	   MESS "SPRINT.CMD script not found"
	   EXIT			; terminate script
	   ENDIF
	FCALL "SPRINT"		; Invoke SprintNet (telenet) subroutine
	IF FAILED GOTO Exit	; Exit if failed
	SET TTHRU OFF		; Let psw be typed
	LEGEND "Connecting to UNISON"
;
;	Connect to UNISON
;
	TRANSMIT "C UNISON!"	; Send request to telenet for SOURCE
	WAITFOR "Username:"	; Wait for logon prompt
;
;	Set a few parms
;
	SET BSUPPRESS OFF	; Turn off blank line suppression
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY ON		; Display ctl chars
	SET BACKSP OUT DELETE	; Nondestructive BS
;
;	If we have a UNILOGON file, use it
;
	IF ISSCFILE "UNILOGON"	; If script file is available
	   FCALL "UNILOGON"	; .. call it
	   SET SUCCESS ON	; Set for caller (if called)
	ELSE
	   SET SUCCESS OFF	; Set for caller
	   ENDIF
	SET TTHRU ON		; Allow typethrough again
;
;	If invoked via FCALL, return.  Else signal completion
;
Exit:
	IF FCALLED FRETURN	; W/ SUCCESS set according to logon logoff
	ALARM			; Sound alarm