マウスでうごかす

マウスでカーソルを動かしてみましょうか。

実行すると三角カーソルをマウスで動かす事ができます。
画面上に表示しているのは座標です。

MSXPLAYer では BASIC（マウス版）で起動して下さい。

MSXPen は Alt+M でマウスを有効にできます

10 COLOR 15,4,7:SCREEN 1:KEY OFF
20 XX=128:YY=96
30 SPRITE$(0)=CHR$(224)+CHR$(192)+CHR$(128)
40 S=PAD(12)
50 XX=XX+PAD(13):YY=YY+PAD(14)
60 XX=(XX+256) MOD 256:YY=(YY+192) MOD 192
70 PUT SPRITE 0,(XX,YY),15,0
80 LOCATE 0,0
90 PRINT XX,YY;"  ";
100 GOTO 40