#!/usr/bin/env rexx

scr = .window~new()
scr~noecho()
scr~keypad(.true)

mmask = scr~mousemask(scr~ALL_MOUSE_EVENTS)

do forever
    ch = scr~getch()
    if ch = scr~KEY_MOUSE then do
        mort = scr~getmouse()
        scr~move(1, 1)
        scr~clrtoeol()
        scr~addstr(mort~y || '/' || mort~x)
        scr~refresh()
    end
    if ch = lf then leave
end
Exit

::requires 'ncurses.cls'
