home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / misc.swg / 0008_MAKEDATA.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  736 b   |  30 lines
  1. {> I need about 10 megs of raw data and am looking For info-pascal archives.
  2. > Do they exist? ...and if so could someone please direct me to where I can
  3. I wish everyone made such easy requests to fulfil. Try the following
  4. Program. With minor changes, it will supply you With almost any amount
  5. of data For which you could ask.
  6. }
  7. Program GenerateData;
  8. Uses
  9.   Crt;
  10. Const
  11.   DataWanted = 3.0E5;
  12. Var
  13.   Data    : File of Byte;
  14.   Count   : LongInt;
  15.   Garbage : Byte;
  16. begin
  17.   Assign(Data, 'Data.1MB');
  18.   ReWrite(Data);
  19.   Count   := 0;
  20.   Garbage := 1;
  21.   For Count := 1 to Round(DataWanted) do
  22.   begin
  23.     Write(Data, garbage); (* smile *)
  24.     GotoXY(1,1);
  25.     Write(Count);
  26.     Inc(Count);
  27.   end;
  28.   Close(Data)
  29. end.
  30.