22 lines
412 B
Rexx
Executable File
22 lines
412 B
Rexx
Executable File
#!/usr/bin/env rexx
|
|
|
|
scr = .window~new()
|
|
scr~start_color()
|
|
scr~init_pair(1, scr~COLOR_WHITE, scr~COLOR_BLUE)
|
|
msg = " OrxNcurses Version: "||.window~orxncurses_version()
|
|
scr~cbreak
|
|
scr~noecho
|
|
scr~box('|'~c2d(), '-'~c2d())
|
|
scr~beep()
|
|
win = scr~subwin(10, 40, 5, 10)
|
|
win~box(0, 0)
|
|
win~refresh
|
|
win~move(2,2)
|
|
win~insstr(msg)
|
|
/* win~insch(msg)*/
|
|
/* win~addstr(msg)*/
|
|
scr~getch
|
|
scr~endwin
|
|
exit
|
|
::requires "ncurses.cls"
|