;*************************** AMUS Program Label ******************************
; Filename: AMUS.TLK                                        Date: 08/02/91
; Category: UTIL         Hash Code: XXX-XXX-XXX-XXX      Version: 3.3(100)
; Initials: ULTR/US      Name: DAVID PALLMANN
; Company: ULTRASOFT CORPORATION                   Telephone #: 5163484848
; Related Files: 
; Min. Op. Sys.: AMOSL 1.3B/AMOS32 1.0         Expertise Level: INT
; Special: 
; Description: Script file to dial into AMUS network - for TALKTO 3.x
;*****************************************************************************
;
; Script file to dial into Alpha Micro User Society (AMUS) network
;
; Before using this script file, modify it as follows:
;
;	1. Change the TELSET line, if your modem is not named MODEM, to
;	   select the proper port name.
;
;	2. Change the terminal driver to match the type of terminal you are
;	   using. Default in this script file is "AM65".
;
;	3. Change the login ID and PASSWORD to match the network id and
;	   password that the AMUS office has assigned to you.  The default
;	   id and password in this script are dummies that will not work.

;select port and set communications options

LABEL SELECT
	TELSET MODEM/HAY/L
	EMULATE NONE

;dial one of the AMUS modems

LABEL DIAL
	DIAL T-1-303-678-7066
	IF $ JUMP ONLINE.FAST

	MESSAGE Line #1 is busy, trying line #2
	DIAL T-1-303-678-8770
	IF $ JUMP ONLINE.SLOW

	MESSAGE Line #2 is busy, tring line #3
	DIAL T-1-303-678-8847
	IF $ JUMP ONLINE.SLOW

	MESSAGE Line #3, is busy trying line #4
	DIAL T-1-303-678-8941
	IF $ JUMP ONLINE.SLOW

;come here when we failed to connect to any modems

LABEL NO.CONNECT
	ALARM
	MESSAGE
Unable to connect to AMUS
.
	FINISH

;we are now on-line, but must output some CRs to establish our baud rate

LABEL ONLINE.SLOW
	WHEN 'before' JUMP SIGN.ON
	REPLY |
	REPLY |
	WAIT QUIET 5
	REPLY |
	REPLY |
	WAIT QUIET 10
	REPLY |
	REPLY |

;we are now on-line, see if we can get expected response

LABEL ONLINE.FAST
	WHEN 'before' JUMP SIGN.ON
	REPLY |
	WAIT DELAY 5
	REPLY |
	WAIT DELAY 5
	REPLY |
	WAIT DELAY 5
	REPLY |

;come here when we connected but are getting no response

LABEL NO.RESPONSE
	ALARM
	MESSAGE
Unable to get a response from AMUS
.
	FINISH

;sign-on to AMUS

LABEL SIGN.ON
	WHEN 'new mail' ABORT
	REPLY Y|
	REPLY N|
	REPLY AM65|
	WAIT QUIET 20
	REPLY ID|
	REPLY PASSWORD|
	REPLY AM|
	WAIT STRING 'continue:'
	REPLY |

.