;
; This is a script file that demonstrates how
; to establish a SLIP connection with the CAC
; Access Server.
;
; A script file must have a 'main' procedure.
; All script execution starts with this 'main'
; procedure.
;                                  J.Forkner - 10/6/95


; Main entry point to script
;
proc main

   ; Delay for 3 seconds first to allow host time
   ; to send initial characters.

   delay 3
   transmit "^M"

   ; Wait for the login prompt before entering
   ; the user ID

   waitfor "login:"
   transmit $USERID
   transmit "^M"

   ; Enter the password

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

   ;
   ; CAC Access has a menu list like this:
   ;
   ;   ppp       : Establish ppp connection
   ;   pctcp     : Establish slip connection
   ;   slip      : Establish PPP connection
   ;   telnet    : Establish telnet access
   ;   ph        : Lookup or Maintain the electronic Phonebook
   ;   password  : Change your Access Server password
   ;   exit      : Disconnect from the PSU CAC Access Server
   
   waitfor "choice:"

   transmit "slip^M"     ; Choose SLIP connection

   set ipaddr getip 1    ; Get the 2nd IP address and use it

endproc