;camus.TLK
;USING File to Access AMUS
; with COMM USING CAMUS
; via hayes smart modem
; or similar
; It works, I used it to call in this time (with passwords changed of
; course)
;
$DIALOG ;Dialog on
;*****************
;* CONFIGURE *
;*****************
$BAUD 1200 ;Baud rate to 1200
;Check if modem is connected and operational
;Be sure modem is set to respond with words
ATQ0V1
$WAITIME 3 ;Give modem 3 seconds to respond
$WAIT OK
$GOTO 100 ;No response from modem
;
$TREMOTE ;Remote translation/filtering on
$REMOTE 17,0 ;Filter ^Q
$REMOTE 21,0 ;Filter ^S
$TLOCAL ;Local translation/filtering on
$LOCAL 33,3 ;Translate bang to control c
$LOCAL 127,8 ;Translate del to a backspace
$LINEFEED OFF ;No linefeeds when sending files
;*****************
;* INITIATE LINK *
;*****************
ATDT13034495564
$WAITIME 60 ;Wait upto 60 seconds for CONNECT
$WAIT CONNECT
$GOTO 120 ;Did not connect
$PAUSE 20 ;Let modem catch its breath
;*****************
;* LOGON REMOTE *
;*****************
!
$WAITIME 10 ;Wait 10 seconds for ID?
$WAIT Have
$GOTO 130 ;No logon from EasyLink
$PAUSE 20
YNWYSE
$WAIT Ini
$GOTO 130
NAME ; your ID
$WAIT Pass
$GOTO 130
PASSWR ; your password
$WAIT Gal
$GOTO 130
AM ; the AMUS galaxy...
$TLOCAL OFF ; we don't need the translations any more
$TALKTO ;Goto conversational mode
;*****************
;* OTHER EXITS *
;*****************
;100
$PRINT ?No response from modem...check if connected
$QUIT $$$$$$ ;Quit without hangup
;120
$PRINT ?Did not connect to AMUS
$QUIT
;130
$PRINT ?Connected, but no response from AMUS
$QUIT
