17 lines
283 B
Rexx
17 lines
283 B
Rexx
|
#!/usr/bin/env rexx
|
||
|
|
/* minimal_ncurses.rex - Draw a box using raw ncurses functions */
|
||
|
|
|
||
|
|
do
|
||
|
|
call initscr
|
||
|
|
call noecho
|
||
|
|
call cbreak
|
||
|
|
win = newwin(10, 20, 5, 10)
|
||
|
|
call box win, 0, 0
|
||
|
|
call wrefresh win
|
||
|
|
call getch
|
||
|
|
call endwin
|
||
|
|
end
|
||
|
|
Exit
|
||
|
|
|
||
|
|
::requires "ncurses.cls"
|