Hi,
ich hatte schon Probleme, wenn der END Befehl nicht nach der Hauptschleife kommt.
Probiere doch mal das END direkt hinter dein Loop zu setzen.:

Do
...

Loop
END

Danach die Subs



Gruß
Christopher