XProfan

 {$cleq}
windowstyle 1024 | 80
window 0,0 - 30,30
cls $000000FF
setwindowpos hwnd=0,0 - 30,30;-1

do {

    waitinput

    select %scankey

        caseof 37 : mcurmove(-10,0)

        caseof 38 : mcurmove(0,-15)

        caseof 39 : mcurmove(10,0)

        caseof 40 : mcurmove(0,15)

    endselect

}

mcurmove(long mx,my){

    mem mem=point
    getcursorpos(mem)
    mx:=mem::x&+mx
    my:=mem::y&+my
    dispose mem
    setcursorpos(mx,my)

}