; 
; Sample Script to connect to Florida Digital Turnpike
;
;
; This will begin the script

        proc main
        
; Enable a three second delay to allow the host time to
; send initial characters

        delay 3
        
; Send Carriage Return
        
        transmit "^M"

; Wait for login
        
        waitfor "login:"
        transmit $USERID
        transmit "^M"

; Wait for password

        waitfor "Password:"
        transmit $PASSWORD
        transmit "^M"

; Wait for menu selection
;
;        waitfor "choice"
;        transmit "4^M"

; Finish script
        
        endproc