Halcyon version 3.0
Submitted By:
Unknown
Rating:
(Not rated) (
Rate It)
program GSDMO_01;
{------------------------------------------------------------------------------
DBase File Creator
Copyright (c) Richard F. Griffin
20 January 1993
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
This program creates a test file for the next several programs.
The GSDMO_01.DBF file will be created by using the MakeTestData
procedure in GSOB_GEN.PAS.
-------------------------------------------------------------------------------}
uses
GSOB_Gen,
{$IFDEF WINDOWS}
WinCRT,
WinDOS;
{$ELSE}
CRT,
DOS;
{$ENDIF}
begin
ClrScr;
{-----------------------------------------------------------------------------}
{ This call will create a .DBF file containing 20 records without memos. }
{ See the GSOB_GEN.PAS file to see how it works. }
{-----------------------------------------------------------------------------}
writeln('Creating GSDMO_01.DBF');
MakeTestData(3, 'GSDMO_01', 20, false);
writeln('GSDMO_01.DBF Created');
end.
