File psl-1983/tests/mini-char-io.red artifact 9a224f7efa part of check-in 808e24217a

% MINI-CHAR-IO.RED

Procedure ChannelWriteChar(chn,x);
  PutC x;

Procedure WriteChar Ch;
  IndependentWriteChar(Out!*,Ch);

End;