以前と比べてだいぶコンパクトなコードになりましたね。 GOTO @LOOPの@LOOPをRETURNに書き換えてやればGOSUB @LOOPでサブルーチンとして使えるので便利ですよ。