#!/usr/bin/env rexx

scr = .window~new()
maxyx = scr~getmaxyx()
parse var maxyx maxy maxx .
scr~scrollok(.true)

do y = 1 to maxy
    scr~mvaddstr(y, 1, "This is boring text written to line" y)
end

scr~getch()

exit

::requires 'ncurses.cls'