PC-1270プログラミングのTIPs。
"YES"キーと"NO"キーはキースキャンコードは79,78になるんだけど、プログラム中で使うには"Y"+[ENTER]と"N"+[ENTER]として使うのが正解のようだ。
つまり
10 "A":PAUSE "YES/NO TEST"
30 INPUT "YES OR NO:";A$
40 IF A$="Y" THEN 100
50 IF A$="N" THEN 200
60 GOTO 30
100 PAUSE "YES"
110 GOTO 30
200 PAUSE "NO"
210 GOTO 30
こんな感じ。
PRINT文でWAIT 0にしてINKEY$を実行すると、LCD表示が消えるので役に立たない(PC-125xならCALL &11E0を使えば良いのだが)。だもんでINKEY$は使わずINPUT文で処理するのが正解。
"YES"キーと"NO"キーはキースキャンコードは79,78になるんだけど、プログラム中で使うには"Y"+[ENTER]と"N"+[ENTER]として使うのが正解のようだ。
つまり
10 "A":PAUSE "YES/NO TEST"
30 INPUT "YES OR NO:";A$
40 IF A$="Y" THEN 100
50 IF A$="N" THEN 200
60 GOTO 30
100 PAUSE "YES"
110 GOTO 30
200 PAUSE "NO"
210 GOTO 30
こんな感じ。
PRINT文でWAIT 0にしてINKEY$を実行すると、LCD表示が消えるので役に立たない(PC-125xならCALL &11E0を使えば良いのだが)。だもんでINKEY$は使わずINPUT文で処理するのが正解。
※コメント投稿者のブログIDはブログ作成者のみに通知されます