[*]Profan

 {$cleq}//code ist sicher für jeden verständlich trotz etwas anderem Aufbau.
windowStyle 80 | 512
window 0,0 - maxx,maxy
cls 0
userMessages wm_close,wm_mousemove

do {

    waitinput

    select uMessage

        caseof wm_close : break

        caseof wm_mouseMove

        locate 1,1
        print gettickcount,mousex,mousey,

    endSelect

}

end