DataMuseum.dk

p = algol list.yes bossline.yes
begin
  procedure læs(skip_nl) ;
  value skip_nl;
  integer skip_nl;
  begin
  integer  tæller, i ;
  tæller := 0 ;
       i := 0 ;
  for i:= i+1  while tegn <> 60 do
  begin
    readchar (in, tegn);
    if tegn = 13 then tegn := 10 ;
    if tegn = 10 then
     begin
      if tæller < skip_nl  then tæller := tæller + 1
        else  outchar (out, tegn);
     end
    else if tegn =60 then else outchar (out,tegn) ;
  end;
   end;
  integer tegn, i,j,  tap, bilagsnr,k;
  integer array bilagsnum (1:5);
 boolean ti;
  begin
     i := 0;
     readchar(in,tegn);
    for i:= i + 1 while tegn <> 25 do
    begin
      if tegn = 13 then tegn := 10 ;
tres: if tegn = 60 then
        begin
          for j := 1 step 1 until 5 do
          bilagsnum(j) := 0;
          outchar (out, 10  );
          outchar (out, tegn);
          readchar(in,tegn) ;
          if tegn = 13 then tegn := 10;
          tap := j := k := 0;
          ti := false;
          for j:=j+1 while tap < 2 and tegn <> 10 do
          begin
            ti := true;
            if tegn = 9  then tap := tap+1
            else  outchar (out,tegn);
            if tegn >= 48 and tegn <= 57 then
            begin
              k := k+1;
              bilagsnum(k) := tegn ;
            end;
            readchar(in, tegn) ;
            if tegn = 60 then goto tres;
            if tegn = 13 then tegn := 10;
            if tegn = 9 then tap := tap +1 ;
          end ;
          if tegn <> 10 then outchar(out,tegn)
            else
              if -,ti then outchar(out,tegn);
          bilagsnr := if k=1 then bilagsnum(1)-48 else (bilagsnum (1)-48)⨯10 + (
bilagsnum(2) - 48);
          if bilagsnr > 0 and bilagsnr < 73 then
          begin
          case bilagsnr of
          begin
            <⨯ 1 ⨯> læs(0) ;
            <⨯ 2 ⨯> læs (0) ;
            <⨯ 3 ⨯> læs (4) ;
            <⨯ 4 ⨯> læs (0) ;
            <⨯ 5 ⨯> læs (0);
            <⨯ 6 ⨯> læs(1) ;
            <⨯ 7 ⨯>   læs(1) ;
            <⨯ 8 ⨯>   læs(1);
            <⨯ 9 ⨯>   læs(1);
            <⨯ 10 ⨯>  læs(1) ;
            <⨯ 11 ⨯>  læs(0) ;
            <⨯ 12 ⨯> ;
            <⨯ 13 ⨯> ;
            <⨯ 14 ⨯> ;
            <⨯ 15 ⨯> ;
            <⨯ 16 ⨯> ;
            <⨯ 17 ⨯> ;
            <⨯ 18 ⨯> ;
            <⨯ 19 ⨯> ;
            <⨯ 20 ⨯> ;
            <⨯ 21 ⨯>  læs (0) ;
            <⨯ 22 ⨯>;
            <⨯ 23 ⨯>;
            <⨯ 24 ⨯>;
            <⨯ 25 ⨯>;
            <⨯ 26 ⨯>;
            <⨯ 27 ⨯>;
            <⨯ 28 ⨯>;
            <⨯ 29 ⨯>;
            <⨯ 30 ⨯>;
            <⨯ 31 ⨯>  læs (3) ;
            <⨯ 32 ⨯>  læs (0) ;
            <⨯ 33 ⨯>  læs (0);
            <⨯ 34 ⨯>  læs (1);
            <⨯ 35 ⨯>  læs (1);
            <⨯ 36 ⨯> ;
            <⨯ 37 ⨯> ;
            <⨯ 38 ⨯> ;
            <⨯ 39 ⨯> ;
            <⨯ 40 ⨯>   læs(2);
            <⨯ 41 ⨯>   læs(1);
            <⨯ 42 ⨯>   læs(0);
            <⨯ 43 ⨯>   læs(1);
            <⨯ 44 ⨯> ;
            <⨯ 45 ⨯> ;
            <⨯ 46 ⨯> ;
            <⨯ 47 ⨯> ;
            <⨯ 48 ⨯> ;
            <⨯ 49 ⨯> ;
            <⨯ 50 ⨯>  læs (0) ;
            <⨯ 51 ⨯>  læs (3) ;
            <⨯ 52 ⨯> ;
            <⨯ 53 ⨯> ;
            <⨯ 54 ⨯> ;
            <⨯ 55 ⨯> ;
            <⨯ 56 ⨯> ;
            <⨯ 57 ⨯> ;
            <⨯ 58 ⨯> ;
            <⨯ 59 ⨯> ;
            <⨯ 60 ⨯>  læs(2) ;
            <⨯ 61 ⨯>  læs(0);
            <⨯ 62 ⨯>  læs(5);
            <⨯ 63 ⨯>  læs(1);
            <⨯ 64 ⨯>  læs(1);
            <⨯ 65 ⨯> ;
            <⨯ 66 ⨯> ;
            <⨯ 67 ⨯> ;
            <⨯ 68 ⨯> ;
            <⨯ 69 ⨯> ;
            <⨯ 70 ⨯>  læs(1);
            <⨯ 71 ⨯>  læs(0);
           <⨯ 72 ⨯>  læs(1);
          end;
          end
          else readchar (in, tegn);
        end
        else
          begin
            outchar(out,tegn);
            readchar(in, tegn);
          end;
    end ;
  end ;
end;
o ud
p prdata
o c
scope login ud
finis