proc main set port databits 8 set port parity none delay 2 transmit"^M" waitfor "e:"then CISPPP, "n:"then CISUUNET until 10 ERROR: halt CISUUNET: transmit"cisv1^M" waitfor"Password:" transmit"classic^M" waitfor "ID:" transmit "/HOST^M" CISPPP: transmit "+CIS^M" waitfor "User ID:" transmit $USERID,raw transmit "+/NOINT/GO:PPPCONNECT^M" waitfor "Password:" transmit $PASSWORD,raw transmit "^M" waitfor "One moment please..." endproc