Ersatz für "repeat...until.." gesucht?

[Meflin]

Füge den obigen Block einfach in alle Prozeduren ein die warten sollen

Und dann überdenke einfach nochmal dein Programmdesign