; ----- PLINK: Dial People/Link (PLINK) and connect (logon)
; ----------------------------------------------------------------
;	Note: This script expects dialing directory entry #1 to be
;	a direct-dial number.  Telenet or other carrier access
;	requires different scripting.
; ----------------------------------------------------------------
;	Note: This script uses a LOGON file prepared by MKLOGON,
;	if one is available.
; ----------------------------------------------------------------
;
;	Dial PLINK
;
	LEGEND " Dialing PLINK direct"
	DEFTIME 60		; Wait 60 seconds for an incoming string
	IF NOT LINKED		; If script not invoked from Alt-D
	   RESET		; Reset defaults only if not linked
	   DIAL "1"             ; Call dial dir entry number 1 (PLINK)
	   IF FAILED		; IF esc out
	      EXIT		; terminate script
	      ENDIF		; End if failed
	   ENDIF		; End if not linked

	PAUSE "5"               ; Wait for the modem to settle down
	TRANSMIT "!"            ; Transmit Carriage return <CR>
	PAUSE "1"               ; Wait 1 sec
	TRANSMIT "!"            ; Transmit Carriage return <CR>
	WAITFOR "USER ID:"      ; Wait for the 'USER ID' prompt

	SET BSUPPRESS OFF	; Turn off blank line suppression
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY ON 	; Display ctl chars
	SET SLOW ON		; For Uploads, direct dial, this is best
;
;	If we have a AHNLOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "AHNLOGON"
	   FCALL "AHNLOGON"
	ELSE
	   Alarm		   ; Sound alarm
	   ENDIF