//log板を消去
sendstr(getid(GET_LOGPRINT_WIN), EMPTY, 1, TRUE)
// Shiftキーが押されたらマウス座標(x,y)とPEEKCOLOR を print
timer=0.2
while 1
if keyboard_enter() = 1 then
PRINT "マウスカーソルの座標"
PRINT "x:" + G_MOUSE_X + "  y:" + G_MOUSE_Y + _
"  PEEKCOLOR:"  PEEKCOLOR(G_MOUSE_X,G_MOUSE_Y)

sleep(timer)
endif
wend

// サブルーチン
// Shiftキーが押されたら 1 が返る
Function keyboard_enter()
Result = 0
timer=0.2

sleep(timer)
while 1
if GETKEYSTATE(VK_SHIFT)
Result = 1
Exit
endif
sleep(timer)
wend
Fend