! Xyplex CCL   $RCSfile: Direct_Connect,v $
!             $Revision: 1.4 $
!                 $Date: 1994/01/06 20:52:04 $
!
@ORIGINATE
@ANSWER
serreset 19200, 0, 8, 1
matchclr
ifANSWER 9
settries 0
@LABEL 8
write "ORIGINATE"
matchstr 1 11 "CONNECT"
matchread 50
inctries
iftries 10 54
jump 8
exit 0
@LABEL 9
write "ANSWER READY"
matchstr 1 11 "ORIGINATE"
@LABEL 10
matchread 700
jump 10
@LABEL 11
write "CONNECT"
@LABEL 12
note "Direct Connection Established" 2
communicatingat 19200
ifANSWER 13
pause 30
@LABEL 13
exit 0
@HANGUP
write "@HANGUP"
exit 0
@LABEL 54
note "No answer" 2
exit -6023
