/* Testscript fuer Martin's Point                 ma */
/* Kopiert eine Nachricht von einem Brett ins andere */

address 'rexx_mpoint'

options results

FIRST MSG

GETSTRING Brett "/Z-NETZ/RECHNER/AMIGA/ALLGEMEIN" /* Vorschlag */
IF rc = 1 THEN EXIT 1
brett=result

DO UNTIL rc=1
	MSGSTATUS
	s=SUBSTR(Result,2,1)
	IF s = 1 THEN
		DO
		MSGPATH
		MSGINSERT result brett
		END
	NEXT MSG
END	

TREE

exit 0