Otherware/Otherware_1_SB_Development.iso/mac/util/comm/arazoomv.sit/ZOOMV32.ARA

Text File | 1992-08-19 | 5KB | 268 lines

!
! AppleTalk Remote Access script for all ZOOM Telephonics V.32 modems
!
! Copyright (C) 1992 ZOOM Telephonics, Inc., all rights reserved.
!
! Permission is hereby granted to owners of ZOOM-manufactured modems
! to use this script.
!
! Various trademarks, etc., are property of their respective owners.
!
@ORIGINATE
dtrset
hsreset 0 1 0 0 0 0
serreset 19200, 0, 8, 1
ifstr 2 3 "1"
write "AT&F&Q6E0M0S95=1\13"
jump 4
!
@label 3
write "AT&F&Q6E0S95=1\13"
!
@label 4
matchclr
matchstr 1 1 "OK"
matchstr 2 2 "ERROR"
matchread 50
note "Modem not responding to init or unexpected response. Check setup."
exit -6019
!
@label 2
note "Modem returned ERROR response to init. Check setup."
exit -6019
!
@label 1
note "Modem successfully initialized at 19200 bps."
!
write "ATDT^1\13"
matchclr
matchstr 1 10 "CONNECT\13"
matchstr 2 11 "CONNECT 1200\13"
matchstr 3 12 "CONNECT 2400"
matchstr 4 13 "BUSY"
matchstr 5 14 "NO DIALTONE"
matchstr 6 15 "NO CARRIER"
matchstr 7 16 "NO ANSWER"
matchstr 8 17 "ERROR"
matchstr 9 51 "CONNECT 4800"
matchstr 10 52 "CONNECT 7200"
matchstr 11 53 "CONNECT 9600"
matchstr 12 54 "CONNECT 12000"
matchstr 13 55 "CONNECT 14400"
matchread 350
note "No response to dial command or unrecognized response."
exit -6019
!
@label 17
note "Modem returned ERROR to dial command. Check dial string."
exit -6019
!
@label 16
note "Modem reports no silent answer for @ function."
exit -6023
!
@label 15
note "Modem reports no carrier timeout; no answer."
exit -6023
!
@label 14
note "Modem reports no dialtone; check line connections."
exit -6020
!
@label 13
note "Modem busy detector tripped."
exit -6022
!
@label 10
communicatingat 300
note "Connected at 300bps raw speed."
pause 30
exit 0
!
@label 11
communicatingat 1200
note "Connected at 1200bps raw speed."
pause 30
exit 0
!
@label 12
communicatingat 2400
note "Connected at 2400bps raw speed."
pause 30
exit 0
!
@label 51
communicatingat 4800
note "Connected at 4800bps raw speed."
pause 30
exit 0
!
@label 52
communicatingat 7200
note "Connected at 7200bps raw speed."
pause 30
exit 0
!
@label 53
communicatingat 9600
note "Connected at 9600bps raw speed."
pause 30
exit 0
!
@label 54
communicatingat 12000
note "Connected at 12000bps raw speed."
pause 30
exit 0
!
@label 55
communicatingat 14400
note "Connected at 14400bps raw speed."
pause 30
exit 0
!
!
@ANSWER
dtrset
hsreset 0 1 0 0 0 0
serreset 19200, 0, 8, 1
ifstr 2 33 "1"
write "AT&F&Q6E0M0S0=1S95=1\13"
jump 34
!
@label 33
write "AT&F&Q6E0S0=1S95=1\13"
!
@label 34
matchclr
matchstr 1 31 "OK"
matchstr 2 32 "ERROR"
matchread 50
note "Modem not responding to answer init or unexpected response. Check setup."
exit -6019
!
@label 32
note "Modem returned ERROR response to answer init. Check setup."
exit -6019
!
@label 31
note "Modem successfully initialized at 19200 bps. Waiting for ring."
!
@label 39
matchclr
matchstr 1 20 "CONNECT\13"
matchstr 2 21 "CONNECT 1200"
matchstr 3 22 "CONNECT 2400"
matchstr 4 25 "NO CARRIER"
matchstr 5 29 "RING"
matchstr 9 61 "CONNECT 4800"
matchstr 10 62 "CONNECT 7200"
matchstr 11 63 "CONNECT 9600"
matchstr 12 64 "CONNECT 12000"
matchstr 13 65 "CONNECT 14400"
matchread 350
jump 39
!
@label 29
userhook 1
note "Line is ringing; should answer in a moment..."
jump 39
!
@label 25
note "Modem reports no carrier timeout."
exit -6023
!
@label 20
communicatingat 300
note "Connected at 300bps raw speed."
exit 0
!
@label 21
communicatingat 1200
note "Connected at 1200bps raw speed."
exit 0
!
@label 22
communicatingat 2400
note "Connected at 2400bps raw speed."
exit 0
!
@label 61
communicatingat 4800
note "Connected at 4800bps raw speed."
exit 0
!
@label 62
communicatingat 7200
note "Connected at 7200bps raw speed."
exit 0
!
@label 63
communicatingat 9600
note "Connected at 9600bps raw speed."
exit 0
!
@label 64
communicatingat 12000
note "Connected at 12000bps raw speed."
exit 0
!
@label 65
communicatingat 14400
note "Connected at 14400bps raw speed."
exit 0
!
!
! Remaining portion Copyright (C) 1992 Apple Computer Corp.
!
@HANGUP
@LABEL 80
settries 0
@LABEL 81
write "ATH0\13"
matchclr
matchstr 1 84 "OK\13\10"
matchstr 2 83 "NO CARRIER\13\10"
matchstr 3 84 "ERROR\13\10"
matchread 15
inctries
iftries 3 84
! no response, try escape sequence
write "+++"
matchclr
matchstr 1 82 "OK\13\10"
matchread 18
! No response from modem, toggle DTR
!
DTRClear
pause 10
DTRSet
jump 81
!
@LABEL 82
matchclr
matchstr 1 84 "OK\13\10"
matchstr 2 83 "NO CARRIER\13\10"
write "ATH0\13"
matchread 50
jump 61
!
@LABEL 83
pause 45
flush
!
! Recall the factory settings
!
@LABEL 84
matchclr
matchstr 1 85 "OK\13\10"
write "AT&F\13"
matchread 30
!
@LABEL 85
matchstr 1 86 "OK\13\10"
write "ATS0=0\13"
matchread 30
!
@LABEL 86
exit 0