{=========================================================}
{ ME10 Makro-Programm zeigt Linienbreite und Stiftbreite  }
{ eines Elements an.                                      }
{ Hr. Juettner  Buero Nuernberg                           }
{ zh, 21.01.2004 Anpassung Syntax an ME10 V10.5 auf HP-UX }


DEFINE Breite_Neu

LOCAL P 
LOCAL Art
LOCAL Breite

LOOP
	READ PNT 'Bitte wählen Sie das Element !' P
	INQ_ELEM P
	LET Art (INQ 403)

          DISPLAY ( STR(Art) )  

	IF ( Art = 'END' )
		DISPLAY 'Kein Element gefunden'
	ELSE
		DISPLAY ('Linienbreite : ' + STR(INQ 15))
		DISPLAY ('Stiftbreite : ' + STR(INQ 10))
		IF (INQ 10 = 0)
			LET Breite (INQ 15)
			CHANGE_LINESIZE 0
			CHANGE_PENSIZE Breite
		ELSE
			DISPLAY 'Stiftbreite ist schon gesetzt !'
		END_IF
	END_IF
END_LOOP

END_DEFINE