#INDEX
>None    00000795 000036
>Hardwire00001117 000055
>Apex    00001366 000072
>AT      00004087 000196
>AT&T    00006767 000320
>Boca    00009512 000444
>Cardinal00012224 000568
>Codex   00014926 000692
>GVC     00017648 000816
>Hayes   00020342 000940
>Intel   00023066 001064
>MegaHz  00025769 001188
>Microcom00028474 001312
>Motorola00031194 001436
>Multitec00033898 001560
>Ositech 00036608 001684
>Practicl00039388 001808
>Supra   00042110 001932
>Telebit 00044800 002056
>UDSFasTk00047577 002180
>UDSV322900050262 002304
>USRobot 00053024 002428
>USRV32  00055778 002552
>Zoom    00058532 002676
>ZyXEL   00061253 002800
:
#########################################
#
# None
#
# This script supports directly connected machines
# (no modems)
#
:None
#
.DIAL
  return 0
.HANGUP
  return 0
.ANSWER
  return 0
.END
:
#########################################
#
# Hardwire
#
# This script is suited for multi-user hosts that
# must send or receive a "wake-up" character (carriage
# return) before returning with a successful connection
# status
#
:Hardwire
#
.DIAL
  return 0
.HANGUP
  return 0
.ANSWER
  ttrap "\015", "\012"            # wait (forever) for incoming <cr> or <lf>
  return 0
.END
:
#########################################
#
# Apex Data
# This is a PCMCIA modem
#
#
:Apex
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&FS0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Generic AT modem script
# This script does not set flow control!
#
#
:AT
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "ATE1V1Q0", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "ATE1V1Q0S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# AT&T Comsphere and Dataport modems
# 
#
#
:AT&T
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Bocamodem V.34
# To synch up with 14.4 kbps modems, include S37=11
#
#
:Boca
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Cardinal V.32bis, V.34 and similar
# 
#
#
:Cardinal
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2X4", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2X4S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Motorola Codex 326x
# Includes V.34 modems
#
#
:Codex
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2*CM1*MF0*XC1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT*FL0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT*FL3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT*FL1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT*FL3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2*CM1*MF0*SC0*AA1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT*FL0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT*FL3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT*FL1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT*FL3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# MaxTech GVC 14400
# 
#
#
:GVC
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&FS0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Hayes Smartmodem Optima
# 
#
#
:Hayes
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2S95=3", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2S95=3S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Intel SatisFAXtion
# Models 350, 400, 400e
#
#
:Intel
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&FS0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# MegaHertz
# This is a PCMCIA modem
#
#
:MegaHz
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2W2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2W2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Microcom Deskporte Fast
# 
#
#
:Microcom
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&FS0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Motorola Power 28.8 (3400)
# Not for Codex or UDS
#
#
:Motorola
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F\\V4", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F\\V4S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Mulitech Multimodem II
# 
#
#
:Multitec
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F4", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++AT"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&E3", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&E4", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&E5", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&E4", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++AT"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F4S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++AT"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&E3", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&E4", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&E5", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&E4", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Ositech TR14400
# This is a PCMCIA modem
#
#
:Ositech
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2W2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2W2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Practical Peripherals PM288MT, PC144MT, & similar
# To synch up with 14.4 kbps modems, include S37=11
#
#
:Practicl
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2L0", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2L0S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Supra FAX modem 288
# Includes 14.4 kbps model
#
#
:Supra
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Telebit T3000/Worldblazer
# 
#
#
:Telebit
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F9 S59=1 S38=5", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "ATS58=0 S68=0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "ATS58=2 S68=2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "ATS58=3 S68=3", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "ATS58=4 S68=4", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F9 S59=1 S38=5 S92=1 S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "ATS58=0 S68=0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "ATS58=2 S68=2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "ATS58=3 S68=3", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "ATS58=4 S68=4", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# UDS FasTalk II
# 
#
#
:UDSFasTk
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F0", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F0S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# UDS V3229
# 
#
#
:UDSV3229
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&C1&D2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1\\Q5", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&C1&D2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT\\Q", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT\\Q3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT\\Q1\\Q5", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT\\Q3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# USRobotics Sportster and Courier
# Includes 14.4 kbps and 28.8 kbps modems
#
#
:USRobot
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0&I0&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H1&I0&R2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H2&I2&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3&I2&R2", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F1S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0&I0&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H1&I0&R2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H2&I2&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3&I2&R2", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Older USRobotics Couriers and Sportsters
# 
#
#
:USRV32
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F&A3&B1&C1&D2X4", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0&I0&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H1&I0&R2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H2&I2&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3&I1&R2", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&F&A3&B1&C1&D2X4", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0&I0&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H1&I0&R2", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H2&I2&R1", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3&I1&R2", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# Zoom Faxmodem 14.4Ex
# 
#
#
:Zoom
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&C1&D2", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&C1&D2S0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&K0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&K3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&K4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&K6", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END
:
#########################################
#
# ZyXEL Communications Corporation
# U-1496 and similar
#
#
:ZyXEL
#
#       DIAL the remote system
#
.DIAL
  if NULL @PHONENO
    ask "Enter phone number", @PHONENO
    if NULL @PHONENO return 1
  end
  reps 2
.DIAL10
  wait 1
  tsend "AT&F", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    write "modem is not responding, one moment please"
    if reps
      wait 2
      tsend "+++"
      ttrap 2, "OK", "NO CARRIER"
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
        if @STATUS = "0" tsend "ATE1V1Q0", cr
      end
      write "attempting to initialize the modem"
      goto .DIAL10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
#
#       DIAL the remote system
#
.DIAL20
  reps 3
.REDIAL
  write "dialing the remote system"
  wait 1
  if @PULSEDIAL = "YES" tsend "ATDP", @PHONENO, cr
  else tsend "ATDT", @PHONENO, cr
  ttrap 45, "CONNECT", "NO CARRIER", "BUSY", "NO DIAL", "ERROR", "OK"
  if @STATUS = "1"
    ttrap 2, "\015"
    return 0
  end
  if @STATUS = "3"
    if reps
      write "the line is busy, waiting to dial again"
      wait 20
      goto .REDIAL
    end
  end         
  let @STATUS = @STATUS + "2"
  return @STATUS
#
#       HANGUP the modem
#
.HANGUP
  wait 2
  tsend "+++"
  ttrap 2, "OK", "NO CARRIER"
  if @STATUS not = "2"
    wait 1
    tsend "ATH", cr
    ttrap 10, "OK", "NO CARRIER"
  end
  wait 1
  tsend "ATS0=0", cr
  return 0
#
#       ANSWER an incoming call
#
.ANSWER
  reps 2
.ANSW10
  wait 1
  tsend "AT&FS0=1", cr
  ttrap 2, "OK", "ERROR"
  if @STATUS = "2" return 1
  if @STATUS = "0"
    if reps
      wait 2
      tsend "+++"
      ttrap 3, "OK", "NO CARRIER"
      if @STATUS = "0"
        wait 1
        tsend "ATE1V1Q0", cr
      end
      if @STATUS not = "2"
        wait 1
        tsend "ATH", cr
        ttrap 10, "OK", "NO CARRIER"
      end
      goto .ANSW10
    end
    return 1
  end
  wait 1
  if @RTSCTS = "NO" and @XONXOFF = "NO" tsend "AT&H0", cr
  if @RTSCTS = "YES" and @XONXOFF = "NO" tsend "AT&H3", cr
  if @RTSCTS = "NO" and @XONXOFF = "YES" tsend "AT&H4", cr
  if @RTSCTS = "YES" and @XONXOFF = "YES" tsend "AT&H3", cr
  ttrap 2, "OK"
  if @STATUS = "0" return 1
  ttrap "CONNECT"
  ttrap 2, "\015"
  return 0
.END