28 lines
538 B
Rexx
Executable File
28 lines
538 B
Rexx
Executable File
#!/usr/bin/env rexx
|
|
|
|
lf = .window~ASCII_LF~d2c()
|
|
bs = .window~ASCII_BS~d2c()
|
|
|
|
text = .array~of('One', 'Two', 'Three', 'Four', 'Five')
|
|
|
|
scr = .window~new()
|
|
do a = 1 to text~items()
|
|
do b = 1 to text~items()
|
|
if b = a then scr~attrset(scr~A_BOLD + scr~A_UNDERLINE)
|
|
scr~addstr(text[b])
|
|
if b = a then scr~attroff(scr~A_BOLD + scr~A_UNDERLINE)
|
|
scr~addch(' ')
|
|
end
|
|
scr~addstr(bs || lf)
|
|
end
|
|
|
|
/* Forces a pause to wait for input. Poor man's wait. */
|
|
scr~getch
|
|
scr~endwin
|
|
|
|
Exit
|
|
|
|
::requires "ncurses.cls"
|
|
|
|
|