reduce-historical: mini-open-close.red at [d9e362f11e]

File psl-1983/tests/mini-open-close.red artifact 7fe51b852a part of check-in d9e362f11e

% 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;