home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBMLM.ZIP / MLTEST.FRX (.txt) < prev    next >
dBase/FoxBase/XBase/FoxPro Database File  |  1989-02-10  |  1KB  |  29 lines
  1. { Coding History --------------------------------------------------------| }
  2. { |  Date    | Who | What                                                | }
  3. { |==========|=====|=====================================================| }
  4. { |  890202  | KRG | Start of upgrade.                                   | }
  5. { |----------|-----|-----------------------------------------------------
  6. 001101111THE WALL ST
  7. 100120022THE WASHING
  8. 222104545RELIGION TO
  9. 30012    MOZART    A
  10. 301204004THE EPISCOP
  11. 303033315BRAHMS    J
  12. 501101121JOPLIN    S
  13. 50523    CHURCHMOUSJ
  14. 871091133BIRD      F    
  15. 87110    THE ALBUQUE
  16. 92001    GABLE     C
  17. 941053231HORNBLOWERHVAR
  18.    NRecs, RecsIndxd : Integer;
  19.    ZFKey : Str20;
  20.    NKey : Str11;
  21. CONST
  22.    DumC : Char = ' ';
  23.    {-----------------------------------------------------------------------}
  24.    PROCEDURE ReportRecs;
  25.    BEGIN
  26.    GoToXY(1, 8);
  27.    WriteLn('Records processed:', NRecs:5);
  28.    END;
  29.