; Modified jlf: 08/01/97
;
; SAMPLE Windows 95 script file that establishs a PPP connection with the 
; CAC Access Server at ALL CAMPUS LOCATIONS. 
;
; Main entry point to script
;
proc main

; Delay for 2 seconds to allow Server time to send initial characters.

   delay 2
   transmit "^M"  ; Let Server know we're here.

; Wait for the login prompt before entering the user ID

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

; Enter the password

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

   ;
   ; CAC Access has a menu list something like this:
   ;
   ;   ppp       : Establish ppp connection
   ;   pctcp     : Establish tcp connection
   ;   slip      : Establish slip 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:" 

   delay 1                   ; Wait a sec for line to settle

   transmit "ppp^M"          ; Choose PPP connection
  
;                            ; That's all Folks!

endproc