;уЛТЙРФ ДМС РПДЛМАЮЕОЙС Windows Л Unix zern.scp
; Main entry point to script
;
proc main

waitfor "ogin:" until 2
transmit $USERID, raw
transmit "^M"

waitfor "assword:" until 1
transmit $PASSWORD, raw
transmit "^M"

waitfor
"." then doSuccess,
"incorrect" then doFailed
until 5
goto doFailed

doSuccess:
delay 1
goto doExit

doFailed:
halt
goto doExit

doExit:
endproc