23 lines
395 B
Rexx
Executable File
23 lines
395 B
Rexx
Executable File
#!/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'
|