REM
REM ncurses example
REM to be expanded to a very cool demo - PvE.
REM

IMPORT "initscr" FROM "libncurses.so" TYPE long
IMPORT "newwin" FROM "libncurses.so" TYPE long
IMPORT "delwin" FROM "libncurses.so" TYPE int
IMPORT "box" FROM "libncurses.so" TYPE int
IMPORT "endwin" FROM "libncurses.so" TYPE int
IMPORT "wrefresh" FROM "libncurses.so" TYPE int
IMPORT "curs_set" FROM "libncurses.so" TYPE int
IMPORT "wgetch" FROM "libncurses.so" TYPE int
IMPORT "mvwprintw" FROM "libncurses.so" TYPE int

REM Initialize
initscr

REM Create window
window = newwin(3, 80, 0, 0)
box(window, 0, 0)

REM Print some text
mvwprintw(window, 1, 1, "%s", "Hello cruel world!")
wrefresh(window)

REM Cursor invisible
curs_set(0)

REM Wait for input
wgetch(window)

REM Cleanup
delwin(window)
curs_set(1)
endwin