proc main
set port databits 7
set port parity even
transmit ".^M^M"
waitfor 
       "Host Name:" then docis,
       "TRANSPAC." then donational,
       "UUNET" then douun,
       "work:" then doeqt,
       "TRANSPAC" then dogbf,
       "*>" then dotrn,
       "#" then doinw
until 5

docis:
transmit "CIS^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password: "
transmit $PASSWORD, raw
transmit "^M"
goto doend

dogbf:
transmit "196282595^M"
waitfor "Host Name:"
transmit "CIS^M"
waitfor "User ID:"
transmit $USERID, raw 
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password:"
transmit $PASSWORD
transmit "^M"
goto doend

douun:
transmit "cisv1^M"
waitfor "Password:"
transmit "classic^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password: "
transmit $PASSWORD, raw
transmit "^M"
goto doend

doeqt:
transmit "NUI 19730001^M"
waitfor "ord"
transmit "KHS9NE^M"
waitfor "active"
transmit "2111855^M"
waitfor "Host Name:"
transmit "CIS^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password: "
transmit $PASSWORD, raw
transmit "^M"
goto doend

donational:
transmit "cis"
transmit "^M"
waitfor "Password: "
transmit "cis"
transmit "^M"
waitfor "Host Name:"
transmit "CIS^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password:"
transmit $PASSWORD
transmit "^M"
goto doend

dotrn:
transmit ".CSERVE^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/GO:PPPCONNECT/NOINT^M"
waitfor "Password:"
transmit $PASSWORD
transmit "^M"
goto doend

doinw:
transmit "C^M"
waitfor "CENTER"
transmit "CSI^M"
waitfor "User ID:"
transmit $USERID, raw
transmit "/go:pppconnect/noint^M"
waitfor "Password:"
transmit $PASSWORD, raw
transmit "^M"
goto doend

doend:
waitfor "One moment please..."
set port databits 8
set port parity none
endproc