Artifact eb02f4cb86349379ba66aa28e3428be7e43af85eb481125436fb51874f253d2d:

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

• File psl-1983/tests/laptest.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: 603) [annotate] [blame] [check-ins using]

% LAPTEST.RED - A selection of small procedures for testing LAP
% MLG
% Run through LAPOUT for CMACRO (ALM) level,
% and turn on DOPASS1LAP for TLM level.

procedure foo1 x;
 x;

procedure foo2 x;
 1;

procedure foo3 x;
 x+3;

procedure foo4 x;
 print(x+4);

procedure foo5 x;
 if x=1 then 'one else 'not!-one;

FLUID '(FLU1 FLU2);

procedure foo6a(Flu1,Flu2);
 begin	Print List('before,FLU1,Flu2);
	Flu1:=10;
	Flu2:=20;
        Print List('after,FLU1,Flu2);
 end;

procedure foo6();
 <<Flu1:=1; Flu2 :=2;
   Print List('before,FLU1,Flu2);
   Foo6a('a,'b);
   Print List('after,FLU1,Flu2);
  >>;


End;