; Undefined modem driver                            Version 0.02 17-Jan-1991
; (c) 1990 Hugo Fiennes

modem_initialise ()
  {
  return(1)
  }

modem_shutdown ()
  {
  return(1)
  }

modem_connect ()
  {
  port_dtr(1)
  port_rts(1)
  return(0)
  }

modem_disconnect ()
  {
  port_rts(0)
  port_dtr(0)
  pause 50
  port_dtr(1)
  port_rts(1)
  }

modem_dial (string number[40],integer how)
  {
  return(0)
  }

modem_answer ()
  {
  return(1)
  }

modem_errorcontrol (string option[10])
  {
  return
  }

modem_standard (string option[10])
  {
  if (comparei(option,"v21"))
    {
    port_txspeed(300)
    port_rxspeed(300)
    return
    }
  if (comparei(option,"v22"))
    {
    port_txspeed(1200)
    port_rxspeed(1200)
    return
    }
  if (comparei(option,"v22bis"))
    {
    port_txspeed(2400)
    port_rxspeed(2400)
    return
    }
  if (comparei(option,"v32"))
    {
    port_txspeed(19200)
    port_rxspeed(19200)
    return
    }
  if (comparei(option,"hst"))
    {
    port_txspeed(19200)
    port_rxspeed(19200)
    return
    }
  prints "Modem standard "+option+" is not supported."+newline
  }
