17 lines
438 B
Rexx
17 lines
438 B
Rexx
|
#!/usr/bin/env rexx
|
||
|
|
/*************************************************************************/
|
||
|
|
|
||
|
|
call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr"
|
||
|
|
call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin"
|
||
|
|
|
||
|
|
scr = .Window~new()
|
||
|
|
scr~clear()
|
||
|
|
scr~beep()
|
||
|
|
scr~addstr('I said ATTENTION!')
|
||
|
|
scr~flash()
|
||
|
|
|
||
|
|
|
||
|
|
exit
|
||
|
|
|
||
|
|
/***************** REQUIRES **********************************************/
|
||
|
|
::requires "orxncurses" LIBRARY;
|