PROGRAM CALLLIST_Prog;
USES CRT,DOS,
     DBF4, SAYGET4,
     BROWSE4;

TYPE
  ROUTELIST = record
                deleted : boolean;
                name    : string[10];
                route   : string[30];
                comment : string[30];
              end;

var  calllist : routelist;

begin
  Select(1);
  clrscr;
  USE('CALLLIST.DBF',@calllist,SizeOf(calllist));
  Set_BrowseWindow_To(1,1,80,24,2,'');
  Browse('');
  CloseDataBases;
  clrscr;
end.