/* REXX */

number= "555-6879"
user= "Joe User"
pwd= "secret"
done= "no"

'TIMEOUT 60'

/* dial number and wait until we get in */
/* retry until three times or success */
DO 3 UNTIL DONE="yes"
	'DIAL "'number'"'
	'WAIT "CONNECT"'

	/* if no timeout (ie. if connected) */
	IF RC=0 THEN DO 

		/* log in (send name/password) */
		'WAIT "Name?"'
		'SEND "user^M"'
		'WAIT "Passwort?"'
		'SEND "pwd^M"'

		/* skip news bla bla and wait for main menu */
		'RESPOND "--Enter--" "^M"'
		'RESPOND "--More--" "N"'

		'WAIT "Main menu:"'

		DONE= "yes"
	END

END /* DO 3 */