TP3/shell/tests/fixtures/t88_fileops.pas

program t88_fileops;

{ t88 -- the file control-block operations CALC.INC's Exist uses:

      assign(F, 'T88.DAT');
      reset(F);       (with I/O checking disabled)
      if IOResult <> 0 then ...
      close(F)

  Assign copies the counted filename into the file variable, Reset asks DOS
  to open it, IOResult returns the DOS status and clears it, and Close closes
  the handle.  The boot harnesses have no filesystem, so this fixture checks
  the missing-file path: both oracles answer AH=3Dh with CF set and AX=2,
  exactly as DOS does when the file is absent.  The success path needs a real
  filesystem and is not executed here. }

var
  F : file;
begin
  assign (F, 'T88.DAT') ;
  {$I-}
  reset (F) ;
  {$I+}
  writeln (IOResult <> 0) ;
  close (F)
end.