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 >
Wrap
dBase/FoxBase/XBase/FoxPro Database File
|
1989-02-10
|
1KB
|
29 lines
{ 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;