あらかじめ下方に@KYOKUと@OPTIONラベルのループなりを作っておき 12～16行のどこでもあまり変わりないですが IF B AND 16 THEN ON KY GOTO @KYOKU,@OPTION の1行を追加して下さい。 これで行けるとは思います。