Ja, ich denke auch, dass die Zeile:
If A <> 0 Then Gosub Ausgabe
... einen Stacküberlauf produziert.

Auch die Zeile:
If Ba > 0 And A > 0 Then Goto Ausgabe
... ist nicht ok.

Regel:
Ein Unterprogramm, das mit Return endet, darf nur mit Gosub aufgerufen werden. Der Gosub-Aufruf muss auch von außerhalb des Unterprogramms kommen.

Gruß Dirk