/* * Test application for CForms. * @(#) list.frm,v 1.4 1993/05/10 22:52:01 lasse Exp */Viewport view {    Pos 0,0;    Size 80, 23;}CCode {    extern int cur_row;}Picture List Viewport View{    Literal Center, 1,  "List of persons";    Literal +0, +1, "---------------";    Event Key CR { pic_call(picture("welcome"), NULL); }    Event Key DOWN {	if (cur_row < 9 && !fld_isempty(NULL)) {	     fld_move(field("Name%d", ++cur_row));	}    }    Event Key UP   { if (cur_row > 0) fld_move(field("Name%d", --cur_row)); }    Event Key Left { return; }    Event Key Right { return; }    Event Key ESC { pic_leave(); }    Event Key F8 { pic_leave(); }    Event Key TAB  forget;    Field Name0   { Pos 10, 5;   Type Char(20); LValue "["; Protected; }    Field Adress0 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name1   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress1 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name2   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress2 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name3   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress3 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name4   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress4 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name5   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress5 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name6   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress6 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name7   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress7 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name8   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress8 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Field Name9   { Pos -20, +1; Type Char(20); LValue "["; Protected; }    Field Adress9 { Pos +20, +0; Type Char(20); RValue "]"; Protected; }    Literal Center, Max, "(ESC - Leave)";}