DEFINE text_version
local t
local testposition

   CURRENT_FONT 'hp_i3098_v'
   TEXT_FRAME BALLOON
   TEXT_ANGLE 0
   TEXT_ADJUST 5
   TEXT_LINESPACE 2.2
   TEXT_FILL OFF
   TEXT_SIZE 2.5
   TEXT_RATIO 1
   TEXT_SLANT 0
   TEXT magenta
   COLOR magenta

   INQ_PART '/'
   LET teilename (INQ 902)
   LET Teil teilename
   LET teil_vorhanden 0
   WHILE (teilename <> 'END-OF-LIST')
      LET tilde (pos teilename "~")
   	LET teilename (SUBSTR teilename 1 (tilde-1))
      IF (teilename="1")
   		LET teil_vorhanden 1
   		LET teilename 'END-OF-LIST'
   	ELSE
   		LET teilename (INQ 903)
   	END_IF
   END_WHILE
   DISPLAY_NO_WAIT teilename
   IF (teil_vorhanden=1)
      EDIT_PART "1"
   ELSE
      EDIT_PART TOP
   END_IF
   ADD_CURRENT_INFO 'Zeichnungsindex'
   CHANGE_VIEWPORT_COLOR CURSOR_COLOR magenta END
   read string 'Zahl fuer Aenderungsindex eingeben' default 'x' t
   LOOP
     read pnt "Position"  textposition
     exit_if (textposition = 0,0)
     text t textposition end
   END_LOOP
   CHANGE_CURRENT_INFO 'Zeichnungsindex' ''
   CURRENT_FONT 'hp_i3098_v'
   TEXT_FRAME OFF
   TEXT_ANGLE 0
   TEXT_ADJUST 1
   TEXT_SIZE 3.5
   COLOR yellow
   CHANGE_VIEWPORT_COLOR CURSOR_COLOR WHITE END
end_define
{-----------------------------------------------------------------------}
define text_version_ende
   0,0
   end
end_define

{-----------------------------------------------------------------------}
define text_version_del

   beep
   auswahlmenue 'alten Aenderungsinfo lĪschen ?' 'Ja' 'Nein'
   READ string antwort

   IF   (antwort = "1")
        delete global infos 'Zeichnungsindex'
   ELSE
        DISPLAY_NO_WAIT "schade, dann eben nicht"
   END_IF

   MENU_STATUS UNMAP
   end

end_define