TP3/shell/tests/fixtures/t90_fileio.pas

program t90_fileio;

{ t90 -- typed-file block I/O.  CALC.INC's Save and Load do

      write (MCfile, Sheet[I,J]);
      read  (MCFile, Sheet[FX,FY]);

  where MCFile is `file of CellRec' and the data argument is a record
  element.  This fixture compiles the scalar and variable-address forms and
  the file operations around them.  It is compile-only: neither boot harness
  has a filesystem, so there is no honest hand-derived execution output for a
  successful open/read/write. }

type
  Rec = record
    A, B : integer;
  end;

var
  F : file of Rec;
  X : Rec;
  Rows : array [1..2] of Rec;
begin
  assign (F, 'T90.DAT');
  rewrite (F);
  X.A := 1;
  X.B := 2;
  write (F, X);
  write (F, Rows[1]);
  reset (F);
  read (F, X);
  read (F, Rows[2]);
  close (F);
  writeln ('file io compiled')
end.