[SAMPLE49] SAMPLE

コマンド[ON_PEN_GOSUB] を参照して下さい。

PEN割り込みルーチン
ライトペンで画面を押す代わりに、マウスの左クリックで代用をします。
ライトペンは入手困難で、かつ液晶ディスプレーでは使えないからです。

10 ON PEN GOSUB 80
20 S$=""
30 '
40 PEN ON
50 GOTO 50
60 PEN OFF
70 END
80 A=PEN(1):PRINT A:RETURN


10行で割り込み分岐先を指示しています。
40行でペン(マウス左クリック)割り込みを許可しています。
画面のどこかがクリックされた時点で 80行に飛びます。
関数PEN(1)によりクリックポイントの x座標(テキスト座標 0〜79)
を取り出し、PRINTしています。
jyobの終了はESCまたはPause(Break、Stop)キーを押して下さい。