INCLUDE "curses.bac"
INCLUDE "form.bac"
DECLARE field[3]
DECLARE my_form
DECLARE ch TYPE int
stdscr = initscr()
cbreak()
noecho()
keypad(stdscr, TRUE)
field[0] = new_field(1, 10, 4, 18, 0, 0)
field[1] = new_field(1, 10, 6, 18, 0, 0)
field[2] = 0
set_field_back(field[0], A_UNDERLINE)
field_opts_off(field[0], O_AUTOSKIP)
set_field_back(field[1], A_UNDERLINE)
field_opts_off(field[1], O_AUTOSKIP)
my_form = new_form(ADDRESS(field))
post_form(my_form)
refresh()
mvprintw(4, 10, "Value 1:")
mvprintw(6, 10, "Value 2:")
refresh()
WHILE ch <> KEY_F(2)
ch = getch()
SELECT ch
CASE KEY_DOWN
form_driver(my_form, REQ_NEXT_FIELD)
form_driver(my_form, REQ_END_LINE)
CASE KEY_UP
form_driver(my_form, REQ_PREV_FIELD)
form_driver(my_form, REQ_END_LINE)
DEFAULT
form_driver(my_form, ch)
END SELECT
WEND
unpost_form(my_form)
free_form(my_form)
free_field(field[0])
free_field(field[1])
endwin()