Restarting Qbasic Program

[mycophobiac]

I need a bit of code to basically restart my Qb program and run it from the beginning. All of the commands like GOTO and GOSUB don't work inside of subroutines... (they're also inconvenient) what else can I use to accomplish this?

[Plasma]

Code:

RUN