{###########################}
{#####  Text mehrfach ändern     ##}
{###########################}


DEFINE tt
 local txt
 read {text} "neuer Text eingeben:' " txt
 loop
 read pnt "Text zum verändern antippen" P0
 change_text txt p0
 end_loop
END_DEFINE