Eine Kleinigkeit ist noch das Goto am Ende von Programm1, das soll sicher zu Loop gehen.
Nach Beendigung der jeweiligen Programmschleife soll es in die Hauptschleife zurückkehren.
Manfred