/* REXX */

number= 00000000
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 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 /* of DO 3 */
