MODULE Acc;

	IMPORT appl, evnt, form, graf, menu;
	IMPORT TOS;

	VAR
		ApplId, MenuId: SHORTINT;
		AccName: ARRAY[0..20] OF CHAR;
		Msg: evnt.tMsg;

BEGIN

	ApplId := appl.init ();
	graf.mouseform (graf.Arrow);

	IF TOS.IsApp THEN
		IF form.alert (1, "[0][ Dieses Programm l„žt sich | auch als Accessory starten! ][OK]") = 0 THEN END;
	ELSE
		AccName := "  Acc";
		MenuId := menu.register (ApplId, AccName);
		IF MenuId > -1 THEN
			LOOP
				evnt.mesag (Msg);
				IF Msg.type = evnt.Open THEN
					IF form.alert (1, "[0][ Dieses Accessory l„žt sich | auch als Programm starten! ][OK]") = 0 THEN END;
				END;
			END;
		ELSE
			LOOP
				evnt.timer (10000);
			END;
		END;
	END;
	appl.exit;

END Acc.
		
	
	