XProfan

Declare nptr#,optr$
 $U thread.pcu = thread. http://xprofan.mxii.com
dim nptr#,8
windowstyle (512 | 8)
cls
thread.start 1,3  mach die 3 auf 2 oder 1 ums flüssiger zu bekommen - je nach die wie nötig

whilenot (%key=2)

    waitinput

wend

thread.stop 1
end

proc thread.do

    external("USER32","GetCursorPos",nptr#)

    if (char$(nptr#,0,8)<>optr$)

        optr$=char$(nptr#,0,8)
        locate 1,1
        print "Bewegt! "+str$(&gettickcount)

    endif

endproc