DEFINE C_LINE_SECT
   {Eine Strecke wird durch rechtwinklige Hilfsliniein geteilt}
   {oder das Makro C_LINE BISECT wird ausgefÏhrt}
   LOCAL n
   LOCAL Nr
   LOCAL p1
   LOCAL p2
   LOCAL delta
   LOCAL Token
   LOCAL Winkel_he
   LOCAL Flag_he
   LET p1 END
   LET p2 END
   LOOP 
     C_LINE 
     {C_LINE wird aufgerufen um die Einstellungen der H-Geo in der Statuszeile}
     {anzuzeigen.}
         LET Nr 0.5
	 LET n 1
         LET Flag_he 0
	 READ NUMBER PNT COMMAND '1. Punkt wÌhlen oder Anzahl der Segmente (>1) oder Teilungsfaktor (<1) eingeben' p1
   EXIT_IF ((TYPE p1)=COMMAND)
	 IF ((TYPE p1)=NUMBER)
	    LET Nr p1
	    READ PNT COMMAND '1. Punkt fÏr Teilung wÌhlen' p1
	 END_IF
   EXIT_IF ((TYPE p1)=COMMAND)
	 LET Flag_he 1
         C_LINE p1
	 READ PNT COMMAND '2. Punkt fÏr Teilung wÌhlen' RUBBER_LINE p1 p2
   EXIT_IF ((TYPE p2)=COMMAND)
	 IF (Nr<=1)
	    C_LINE BISECT Nr p1 p2 END
	 ELSE
	    LET delta ((p2-p1)/Nr)
	    LET Winkel_he (ANG (p2-p1)+90)
	    REPEAT
	       C_LINE PT_ANG (p1+delta*n) Winkel_he
	       LET n (n+1)
	    UNTIL (Nr=n)
	    C_LINE PT_ANG (p1) Winkel_he
	    C_LINE PT_ANG (p2) Winkel_he
	    END
	 END_IF
     END_LOOP
     END
     IF (Flag_he = 0)
	   IF (p1 = END)
	      CANCEL
       END_IF
	   p1
     ELSE
	   IF (p2 = END)
	     CANCEL
       END_IF
	   p2
     END_IF
END_DEFINE