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" 
     } 
}