The Education Master 1994 (4th Edition)/EDUCATIONS_MASTER_4TH_EDITION.bin/files/progscal/tinypasc/tufiles.pas

Pascal/Delphi Source File | 1986-02-17 | 511 b | 24 lines

  { TUFILES:  File opening for program generation. }

  {*****************}
  function OPENSFILE:  boolean;
    { the sfile is the source file }
  begin
    opensfile:=openfile(sfile, sfilename, false);
    end;

  {*****************}
  function OPENRFILE:  boolean;
    { the gfile is the target assembler file }
  begin
    openrfile:=openfile(rfile, rfilename, true);
    end;

  {*******************}
  procedure CLOSEFILES;
  begin
    close(sfile);
    close(rfile);
    end;