Artifact 605aed27b6d3fc30b9befec1f01d952d6159a7095488c7b0f2edb1c26c37e669:

• File psl-1983/3-1/tests/mini-printf.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: 454) [annotate] [blame] [check-ins using] [more...]

% MINI-PRINTF.RED

procedure PrintF(FMT, A1,A2,A3,A4,A5,A6);
% Dummy PRINTF
<< Prin2 FMT;
   Prin2 " ";
   Prin2 A1;
   Prin2 " ";
   Prin2 A2;
   Prin2 " ";
   Prin2 A3;
   Prin2 " ";
   Prin2T A4;   
 >>;

procedure errorprintf(FMT,a1,a2,a3,a4);
% Dummy ErrorPrintf
  PrintF(FMT,A1,A2,A3,A4);

procedure BLDMSG(FMT,A1,A2,A3,A4,A5,A6);
% Dummy BLDMSG
   LIST ('BLDMSG, FMT,A1,A2,A3,A4);


procedure ErrPrin U;
 <<Prin2 '!`; Prin1 U; Prin2 '!' >>;

End;