***** Program-file
IF TYPE("head_list[1]") <> "C"
DECLARE head_list[LEN(field_list)]
ACOPY(field_list, head_list)
ELSEIF LEN(head_list) <> LEN(field_list)
DECLARE head_list[LEN(field_list)]
ACOPY( field_list, head_list)
ENDIF
IF TYPE "type_list[1]" <> "C"
DECLARE type_list[LEN(field_list)], dummy[1]
AFIELDS( dummy, dummy, type_list )
ELSEIF LEN( type_list ) <> LEN( field_list )
DECLARE type_list[ LEN( field_list ) ], dummy[1]
AFELDS( dummy, dummy, type_list )
ENDIF
@ M-> t, M->l SAY SPACE( M-> r - M-> l + 1 )
DBEDIT( M-> t + 1, M->l, M-> b, M->r,;
M-> field_list, "xbrowse", type_list, head_list, "-", "")
RESTORE SCREEN
RETURN .T.
*****