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];
   x, i,flag, max, last_address, indx: integer;
   
{$i lpexti}
   
FUNCTION Ask_For_Voter : integer; EXTERNAL;
PROCEDURE Construct_Index; EXTERNAL;
   
BEGIN
   writeln; writeln;
   set_party;
 
   Ready_keyboard;
 
   Request_Register;   {this line doesn't exist in lpfind2 - the ONLY change}
   Construct_Index;
 
   clearscreen;
   write('Find Voter');
    
      x := ask_for_voter;
 
END.