ON~GOSUBを使うとGOSUB先からRETURNで戻って来るところはON~GOSUB文の直後になるので、プログラムをENDで終了させた以降の行で@TASUなどのルーチンをサブルーチンとして書いておくと、GOTO @AAAは一回書くだけで済みますね。