12～20行目をまとめて、以下の１行で書けます。 IF B AND 255 THEN BEEP 30:A=A-1