マウスでうごかす ( move cursor with a mouse ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%9E%E3%82%A6%E3%82%B9%E3%81%A7%E3%81%86%E3%81%94%E3%81%8B%E3%81%99/

MOUSE.BAS

' move cursor with a mouse | MSX-BASIC
' Copyright (c) 2003 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003
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