キーの交互押し判定について

通常よく用いられているキーを交互に押しているかどうかの判定は次のとおりです。

10 F=0:X=0 20 K$=INKEY$ 30 IF K$="1" AND F=0 THEN X=X+1:F=1 40 IF K$="3" AND F=1 THEN X=X+1:F=0 50 GOTO 20

　簡単に原理を説明します。まず、［１］を押した場合と［３］を押した場合の２通りについて判定するというのは分かると思いますが、それだけだと交互に押しているかどうかは分からないので、もう１つ別の変数を用意して前回どちらのキーが押されたのかということを記録しています。これをフラグといいます。
　これにより前回［１］が押され、かつ、今回［３］が押された場合、そして、その逆の２通りの判定を行えばよいことになります。

　実は、１つのＩＦ文でＡＮＤさえも使わずに一発で判定する方法があるのです。

10 F=49:X=0 20 IF F=ASC INKEY$ THEN X=X+1:F=100-F 30 GOTO 20

　この方法によりメモリ節約と大幅な高速化が実現できます。
　では、なぜこれでキーの交互押しができるかと言うとＦの値が４９と５１を繰り返すからです。これは、２０行の最後に「ＰＲＩＮＴ　Ｆ」を加えたら分かります。そうすれば、２０行の「１００」というのが使う２つのキーのアスキーコードを足したものだということが分かるでしょう。
　なお、使用するキーがテンキーの［１］〜［９］のどれか２つを使用する場合に限り、ＡＳＣの代わりにＶＡＬを使ったほうが高速化できます。例えば、［４］と［６］を交互に押す場合、Ｆの初期値は４となり、キーの値の合計値が１０になるため２０行は「Ｆ＝１０−Ｆ」となります。