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