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