DataMuseum.dk

                                                readparam=set 1
readparam=algol
external
integer procedure readparam(a); array a;
comment    The procedure reads the parameters in the FILE PROCESSOR
           command, which called the algol program.
readparam:   kind of item stored in a
             -1:  <text>=   (only possible in the first call)
              0:  end of parameter list
              1:  <s><integer>
              2:  <s><text>
              3:  .<integer>
              4:  .<text>
a:           (return value, real array, length >=2).  An integer item
             is assigned to the first element in a, a text item to the
             first and second item.
The parameterlist is scanned by means of system(4,---.  Each parameter
can only be read once.
;
begin own integer q; integer i;
  readparam:=0; if q>=0 then q:=q+1;
  if q=1 then
  begin
    i:=system(4,1,a);
    if i=6 shift 12+10 then
    begin system(4,0,a); readparam:=-1 end else
    if i<>0 then goto p
  end else
  if q>0 then
  begin
p:  i:=system(4,q-1,a);
    if i=0 then q:=-1 else
    readparam:=(if i shift(-12)=8 then 2 else 0)
              +(if i extract 12=10 then 2 else 1)
  end
end readparam;
end
[stop] [end]