Oberon/ETH Oberon/Dialer

Dialer.Dial can be used to establish a modem connection from "home" to "office" for PPP. The office computer runs mgetty in Linux and answers the connection according to the ringback protocol. For Dialer to support ringback, the syntax of the Dial script is extended so that an empty modem command string invokes a pause; 11 "" is an 11 s pause in this script. The script belongs in the 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 can also be used for frequently dialed voice calls. This is such a script, invoked with Dialer.Dial NuvoSomeone Device0 ~. Init specifies the COM port; why should Dial specify the device? A better syntax would allow Dialer.Dial Nuvo 6041234567 ~. That would work with various access protocols and destination numbers. Another detail to work on.

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