DEFINE stutze
  LOCAL P1
  LOCAL P0
  
  INQ_SELECTED_ELEM INFOS "stutz_tmp" END
  IF (INQ 14 = 0)
    LOOP
      READ PNT 'Element antippen das gestutzt oder verlĖngert werden soll' P0
      INQ_ELEM P0
    EXIT_IF (INQ 403=LINE)
    EXIT_IF (INQ 403=CIRCLE)
    EXIT_IF (INQ 403=ARC)
    END_LOOP
    LOOP
      READ PNT 'Bezugselement fÏr VerlĖngerungs- bzw. Stutzvorgang antippen' P1
      INQ_ELEM P1
    EXIT_IF (INQ 403=LINE)
    EXIT_IF (INQ 403=CIRCLE)
    EXIT_IF (INQ 403=ARC)
    END_LOOP
    IF (INQ 403=LINE)
      ADD_CURRENT_INFO "stutz_tmp"
      LINE (INQ 101) (INQ 102)END
      CHANGE_CURRENT_INFO "stutz_tmp" "" END
    ELSE_IF (INQ 403=CIRCLE)
      ADD_CURRENT_INFO 'stutz_tmp'
      CIRCLE (INQ 101) (INQ 3)
      CHANGE_CURRENT_INFO "stutz_tmp" "" END
    ELSE_IF (INQ 403=ARC)
     ADD_CURRENT_INFO 'stutz_tmp'
     ARC CEN_BEG_END (INQ 101) (INQ 102) (INQ 103)
     CHANGE_CURRENT_INFO "stutz_tmp" "" END
    END_IF
    TRIM_ONE P0 P1 END
    INQ_SELECTED_ELEM INFOS "stutz_tmp" END 
    IF ((INQ 14 > 1) AND (INQ 14 < 4))
      DELETE SELECT INFOS 'stutz_tmp' CONFIRM END
      REDRAW
    ELSE
      DISPLAY "Der Stutzvorgang wurde nicht korrekt erledigt"
      DISPLAY "untersuchen Sie mittels den Befehlen im Info-Menue alle Elemente die die Infos 'stutz_tmp' haben"
    END_IF
  ELSE
     DISPLAY "Stutzvorgang kann nicht aus gefuehrt werden, das noch Element mit dem Info 'stutz_tmp' vorhanden sind"
  END_IF
END_DEFINE