あとあなたの2行目、12~16行目に書いている文はあまり必要ではないと思います。 "GOSUB @~" という命令は必ずその飛んだ "@~" 内で "RETURN" を命令しないとあとあとエラーを起こしやすいです。 "CLS" 命令は10行、または11行目のGOTO命令の前に 「IF ...THEN CLS:GOTO@~」 のように張り付けておけばOKです。