program LPFIND(input,output);

   { Program to a name using an index file from a file in Database format}

   {Brian Gilmore August 1987}

   
TYPE

   {$I lptype}

VAR

   s, target: string[40];  
   xfn: string[14];

   tgt: string[4];
   i,flag, max, last_address, indx: integer;

{$i lpexti}

PROCEDURE Ask_For_Voter; EXTERNAL;
PROCEDURE Construct_Index; EXTERNAL;

BEGIN
   writeln; writeln;
   set_party;

   Ready_keyboard;

   xfn := concat(disc,'xx.IND');      {for LPSRX}
   assign(ndfile, xfn); update(ndfile);   {for LPSRX}
   Construct_Index;

   clearscreen;
   write('Find Voter');
   
   REPEAT
   ask_for_voter;
   UNTIL xfn='';

END.