えーと、ぱっと見ただけですが…… 13行目：GOTO @LOOP としていますが、これで10行目にGOTO する、のを延々と続けると思われます。 後、GOSUB のラベル名とGOTO のラベル名は一緒にしない方がいいんじゃないかな、と思います。 混乱の元なので。 (5行目のGOSUB 先と、13行目のGOTO 先が同じラベルになっている)