Artifact 7fe51b852a16d19cb83bce8c1fb62bab5b1a8e42677e993a1465a89dcca57c2b:

• File psl-1983/3-1/tests/mini-open-close.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 295) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/tests/mini-open-close.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 295) [annotate] [blame] [check-ins using]

% MINI-OPEN-CLOSE.RED   Some minimal User Level I/O routines:

Procedure Open(FileName,How);
 If how eq 'Input then SystemOpenFileForInput FileName
  else  if how eq 'OutPut then SystemOpenFileForOutPut FileName
  else IoError "Cant Open";

Procedure Close N;
  IndependentCloseChannel N;

end;