proc main

delay 1
transmit "^M" 
transmit "^M" 
delay 1 
transmit "+^M"

waitfor "Host Name:"
transmit "IFMXLP"
transmit "^M"
waitfor "UIC:"
transmit $USERID
transmit "^M"
waitfor "Username:"
transmit $USERID
transmit "^M"
waitfor "Password:"
transmit $PASSWORD
transmit "^M"
delay 1
set port databits 8
set port parity none

endproc