/**************************************************************************/
/*                  DeLuxeNetcall - (c)1991 Thorsten Gau                  */
/**************************************************************************/

options results

OKAY2 " Willst du wirklich einen Netcall machen? "
IF rc=0 THEN EXIT 0

BOARD "GAUSOFT"
DO UNTIL rc=1
	MSGSTATUS
	g=SUBSTR(Result,2,1)
	e=SUBSTR(Result,4,1)
	IF g=0 & e=0 THEN
		DO
		MSGMAILER
		user = Result
		MSGSUBJECT
		subject = "EB:"Result
		PMAIL TEXT "MPoint.KeineAntwort" user subject
		END
	NEXT MSG
END

TREE
NETCALL