TP3/shell/tests/fixtures/t91_textout.pas

program t91_textout;

{ t91 -- text-file output.  CALC.INC's Print does

      Writeln(MCFile);
      Write(MCFile, ' ');
      writeln(MCFile, Line);

  These are lowered to DOS INT 21h AH=40h writes: CRLF for the bare
  Writeln, one CHAR for the space, and a length-prefixed STRING followed by
  CRLF for the line.  Compile-only: neither boot harness has a filesystem, so
  there is no execution oracle for a successful text-file write. }

var
  F : text;
begin
  assign (F, 'T91.TXT');
  rewrite (F);
  writeln (F);
  write (F, ' ');
  writeln (F, 'hello');
  close (F);
  writeln ('text output compiled')
end.