S0 = 9				; Dialing directory number we'll use
; ----- TYMNET: Connect to TYMNET
; ----------------------------------------------------------------
;	Note: This script may be used by itself (to put you at Tymnet's
;	"log in:" prompt, or may be FCALLed by another script.  This
;	script is written to be FCALLed, executed directly (F2) or
;	attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
;	Note: Change the value above to reflect the dialing directory
;	entry number you have prepared.  The default is "9".
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Make connection to TYMNET.  The dialing directory (or current
;	.. setting) define parity and speed.
;
	LEGEND " Dialing TYMNET... "
	IF NOT LINKED		; If script not invoked from Alt-D
	   DIAL S0		; Call dial dir entry number 9 (TYMNET)
	   IF FAILED EXIT	; IF esc out, terminate script
	   ENDIF		; End if not linked
;
;	Make connection and let TYMNET sync with our parity/speed
;
	WAITFOR "^M"            ; Wait for modem to clear
	RGET S0 1		; Wait for any char (60 sec default)
	TRANSMIT "a"            ; Transmit char for synchronization
	WAITFOR "log in:"       ; Wait for prompt
;
;	Set a few parms
;
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY ON 	; Display ctl chars
;
;	Exit - this script may be called
;
	IF FCALLED FRETURN	; Return to caller if called
;
;	And we're done
;
	ALARM			; Sound alarm - we're done