DEFINE Text_leser
  LOCAL Untenrechts
  LOCAL Punkt
  LOCAL Text_str
  LET Text_str ''
  EDIT_PART TOP
  INQ_ENV 7 
  LET Untenrechts (PNT_XY ( X_OF (INQ 102)) ( Y_OF (INQ 101)))
  { Drawing-Number }
  LET Punkt (Untenrechts + (-85,15.3))
  Text_leser_read Punkt
  LET Text_str Text_resu_gv
  { Description }
  LET Punkt (Untenrechts + (-86,26.7))
  Text_leser_read Punkt
  LET Text_str (Text_str +':'+ Text_resu_gv)
  { Material }
  LET Punkt (Untenrechts + (-86,46.8))
  Text_leser_read Punkt
  LET Text_str (Text_str +':'+ Text_resu_gv)
  
  DELETE_MACRO Text_resu_gv
  DISPLAY (Text_str)
END_DEFINE

DEFINE Text_leser_read
  PARAMETER Punkt
  { Text_resu_gv = Globale Variable }
  LOCAL Dummy
  INQ_ELEM Punkt
  IF ((INQ 403)= TEXT)
    LET Text_resu_gv (INQ 902)
  ELSE  
    LET Text_resu_gv 'NIX-DA'
  END_IF	
  LOOP
    LET Dummy (INQ 903)
  EXIT_IF (Dummy ='END-OF-LIST')
    LET Text_resu_gv ( Text_resu_gv +'/'+ Dummy)  
  END_LOOP
  
END_DEFINE