;      Script zum einloggen über Uni Mannheim
;	neu ab Juli/August 1999
;	Roland Bernert
;
proc main
	waitfor "login:" 
	transmit "telnet"
        transmit "^M" 
	waitfor "ost:"  
      	transmit "129.13.97.235"    
    	transmit "^M"  
      	waitfor "ogin:"	
	transmit $USERID
	transmit "^M"	
	waitfor "assword:"	
	transmit $PASSWORD
	transmit "^M"
        waitfor ">>"
	transmit "z"
	transmit "^M"
        waitfor "~ >"	
	transmit "slirp"
	transmit "^M"
endproc