Oberon/ETH Oberon/Dialer

Dialer.Dial 可用于从“家”到“办公室”建立用于 PPP 的调制解调器连接。办公室计算机在 Linux 中运行 mgetty，并根据回铃协议回答连接。为了使 Dialer 支持回铃，Dial 脚本的语法进行了扩展，以便空调制解调器命令字符串调用暂停；在本脚本中，11 "" 为 11 秒的暂停。 该脚本属于 Oberon.Text。

{* This is for a USR Sportster modem on an Oberon system 
calling a USR Sportster on a Linux system. *} 
Ringback = { 
     Init = { COM1 19200 }     {* modem port and speed *} 
     Dial = { 
         "ATZS0=0&F1&B1&C1" 
         10 "OK" 
         "ATDT16041234567,,;H0" 
         10 "OK" 
         11 "" 
         "ATDT16041234567" 
          40 "LAPM)"  
          CALL "PPPMain.StartInst Ringback peter" 
    } 
}

Dialer 也可以用于频繁拨打的语音电话。这是一个这样的脚本，可以通过 Dialer.Dial NuvoSomeone Device0 ~ 来调用。Init 指定了 COM 端口；为什么 Dial 应该指定设备？更好的语法将允许 Dialer.Dial Nuvo 6041234567 ~。这将适用于各种接入协议和目标号码。另一个需要改进的细节。

{* This is for the USR Sportster modem. *} 
NuvoSomeone = { 
     Init = { COM1 19200 }     {* modem port and speed *} 
     Dial = { 
          "ATZS0=0&F1&B1&C1"  
          2 "OK" 
          "ATDT<CardAccessNumber>,,;DT<LanguageSelector>,,,;" 
          20 "OK" 
          "ATDT<CardPINNumber>,,,,,,;" 
          20 "OK" 
          "ATDT<DestinationNumber>,,,,,,,;H0" 
          20 "OK" 
     } 
}