# tragen Sie den zu ihren Modem passenden INITSTRING ein
# der eingetragene müsste eigentlich passen
# Sind Sie an eine Nebenstellenanlage angeschlossen tragen Sie zusätzlich ' x3 ' ein
$modemsetup = "&c1&k3"
$prompt = ">"
$userprompt = "sername:"
$passprompt = "assword:"
$slipcmd = "slip"
$addrtarg = "our address is"
$pppcmd = "ppp"
$pppready = "PPP."
%attempts = 10
$number = "07211332560"
%busytimeout = 10
%busywait = 30
%connecttimeout = 60
%onlinetimeout = 60
%logintimeout = 60
%prompttimeout = 30
%addresstimeout = 30
status "Initializing modem..."
output "atz"\13
if ! [input 5 OK\n]  
  message "Modem is not responding"  
  abort
end
output "at"$modemsetup\13
if ! [input 10 OK\n]
  message "Modem is not responding"  
  abort
end
%n = 0
repeat  
  %n = %n + 1
  if %n > %attempts
    message "Too many dial attempts"
    abort
  end
  status Dialling $number...(attempt %n)
  output "atdt"$number\13
  %busy = [input %busytimeout BUSY]
  if %busy
    status "The line is busy...pausing for a while"
    sleep %busywait
    %ok = 0
  else
    %ok = [input %connecttimeout CONNECT]
  end
until %ok
input 10 \n