DEFINE Text_leser
  LOCAL Punkt
  LOCAL Text_str
  LOOP { 1 }
    LOOP { 2 }
      READ PNT 'Zu lesenden Text antippen-klicken' Punkt
      INQ_ELEM Punkt
    EXIT_IF ((INQ 403)= TEXT) { 2 }
      BEEP
      DISPLAY_NO_WAIT 'Das war kein Text, bitte noch mal ;-)'
      WAIT 1
    END_LOOP { 2 }
    LET Text_str (INQ 902)
    LOOP { 3 }
      DISPLAY (Text_str)
      LET Text_str (INQ 903)
    EXIT_IF (Text_str='END-OF-LIST') { 3 }
    END_LOOP { 3 }
  END_LOOP {1}
END_DEFINE