END SUB or END FUNCTION must be last line

qbasic.hlp (Topic list)

You are attempting to add code after the last line in a
procedure. You must either return to the main module or
open another SUB or FUNCTION to add lines of code.