[Back to MISC SWAG index] [Back to Main SWAG index] [Original]

    {> I need about 10 megs of raw data and am looking For info-pascal archives.
    > Do they exist? ...and if so could someone please direct me to where I can
    I wish everyone made such easy requests to fulfil. Try the following
    Program. With minor changes, it will supply you With almost any amount
    of data For which you could ask.
    }
    Program GenerateData;
    Uses
      Crt;
    Const
      DataWanted = 3.0E5;
    Var
      Data    : File of Byte;
      Count   : LongInt;
      Garbage : Byte;
    begin
      Assign(Data, 'Data.1MB');
      ReWrite(Data);
      Count   := 0;
      Garbage := 1;
      For Count := 1 to Round(DataWanted) do
      begin
        Write(Data, garbage); (* smile *)
        GotoXY(1,1);
        Write(Count);
        Inc(Count);
      end;
      Close(Data)
    end.

[Back to MISC SWAG index] [Back to Main SWAG index] [Original]