/* Dialscript for Universities in Switzerland */

options results
signal on error

Set WaitForTimeout 30
Set InterCharDelay 20

YourLogin=""
YourPassword=""

ShowConsole

call CheckModemState
call Dial

if (result != 0) then
  exit 10

WaitFor "sername:"
SendLn YourLogin
WaitFor "assword:"
SendLn YourPassword
WaitFor ">"
SendLn "ppp"
WaitFor "MTU"

exit 0;

error:
Say "Universität Zürich: Command on line" SIGL "returned" RC ":" SerScript.LASTERROR
Exit 10