Holla !

De Sub selbst muß irgendwo hinten (nach "END") stehen.

declare sub subfunc()


DO
subfunc() ' AUFRUF sub
LOOP
END

sub subfunc()
.. tu was
end sub