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