{ Coding History --------------------------------------------------------| }
{ |  Date    | Who | What                                                | }
{ |==========|=====|=====================================================| }
{ |  890202  | KRG | Start of upgrade.                                   | }
{ |----------|-----|-----------------------------------------------------
001101111THE WALL ST
100120022THE WASHING
222104545RELIGION TO
30012    MOZART    A
301204004THE EPISCOP
303033315BRAHMS    J
501101121JOPLIN    S
50523    CHURCHMOUSJ
871091133BIRD      F	
87110    THE ALBUQUE
92001    GABLE     C
941053231HORNBLOWERHVAR
   NRecs, RecsIndxd : Integer;
   ZFKey : Str20;
   NKey : Str11;
CONST
   DumC : Char = ' ';
   {-----------------------------------------------------------------------}
   PROCEDURE ReportRecs;
   BEGIN
   GoToXY(1, 8);
   WriteLn('Records processed:', NRecs:5);
   END;