;           Script zum einloggen an Uni Karlsruhe.
 proc main 
       waitfor "ost: "
        transmit "lehrer1.rz.uni-karlsruhe.de"
         transmit "^M"
	waitfor "ogin:"
        transmit $USERID
        transmit "^M"  
      waitfor "assword:"
        transmit $PASSWORD
	transmit "^M" 
        delay 2
        transmit "^M"
        delay 2
        transmit "1"
        transmit "^M"
       waitfor "~ >"
	transmit "slirp"
	transmit "^M"
endproc