07/10/16 20:01:50 KOpIoF7r
#include "HSPDXFIX.as"
#const SCRW 640
#const SCRH 480
#define GET_WINPOS wx0 = ginfo(6)-SCRW : wy0 = ginfo(7)-SCRH
#define MOUSE_GETPOS(%1,%2) %1= limit(ginfo(0)-wx0,0,SCRW):%2= limit(ginfo(1)-wy0,0,SCRH)
screen 0, SCRW,SCRH , 4:GET_WINPOS
es_ini:if stat :goto *owari
es_screen SCRW,SCRH,32,0,1,0:if stat :goto *owari
onexit goto *owari:oncmd gosub *window_moved , $03
repeat
wait 0:stick ky:if ky:break
MOUSE_GETPOS mx,my
title strf("x=%04d",mx)+strf(" y=%04d",my)
loop
*owari: es_bye:end
*window_moved: oncmd 0:GET_WINPOS:oncmd 1:return
/* 眠いので説明省略。 */