small ncurses demo

Here is an example of the gpc-ncurses "software label key" terminal display : =======================================================

program slk ;

uses ncurses ;

var label1, label2, label3, label4, label5, label6, label7, label8 : CString ; n : int32 ;

begin n := slk_init(1); stdscr := initscr ; n := start_color ;

label1 := 'one' ;
label2 := 'two' ;
label3 := 'three' ;
label4 := 'four' ;
label5 := 'five' ;
label6 := 'six' ;
label7 := 'seven' ;
label8 := 'eight' ;

n := slk_set(1, label1, 1);
n := slk_set(2, label2, 1);
n := slk_set(3, label3, 1);
n := slk_set(4, label4, 1);
n := slk_set(5, label5, 1);
n := slk_set(6, label6, 1);
n := slk_set(7, label7, 1);
n := slk_set(8, label8, 1);

n := slk_refresh ;


n := init_pair (1, COLOR_RED, COLOR_BLUE ) ;
n := attron ( COLOR_PAIR(1)) ;

n := getch ;

n := endwin ;

end.

It especially looks nice on a SuSE 8.1 xterm.

If the __p* name conflict gets resolved, gpc-libplot will complement nicely.