DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »tpbw3«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »tpbw3« 

TextFile

mode list.yes
o pbwlist
(pbw3=algol list.yes bossline.yes
scope user pbw3
o c
convert pbwlist
lookup pbw3
finis)
\f


begin integer i,j,k,n,ll;  real t,t0;
      zone z(128,1,stderror);

  open(z,4,<:pbout:>,0);
  inrec6(z,2*4); n:=z(1); t:=z(2);
  ll:=117-5-4*n;

  begin array f(1:n,1:13); integer array c(0:ll),ch(0:13);
    for i:=1 step 1 until 13 do begin
      ch(i):=case i of('x','1','y','2','z','3','u','v','e','p','i','o','a');
      for k:=1 step 1 until n do begin
        f(k,i):=0;
      end;
    end;
    ch(0):=' '; replacechar(5,-1);
    repeat
      write(out,<:<10>  !t=:>,<<ddd ddd.ddd>,t,
        <: !              !              !   u   !   v   !   e   !:>,
        <:   p   !   i   !   o   !   a:>);
      replacechar(4,-1);
      for k:=1 step 1 until n do begin
        inrec6(z,13*4);
        write(out,<:<10>:>,<<dd>,k);
        for i:=1 step 1 until 13 do begin
          if abs z(i)>f(k,i) then f(k,i):=abs z(i);
          if i=2 or i=4 or i=6 then write(out,<<+.ddd'-zd>,z(i))
            else write(out,<:!:>,<<-.ddd'-zd>,z(i));
        end;
      end;
      replacechar(4,'.'); inrec6(z,4); t0:=t; t:=z(1);
    until t0>=t;
    for i:=0 step 1 until ll do c(i):=' ';

    for k:=1 step 1 until n do begin
      if f(k,2)>f(k,4) then f(k,4):=f(k,2) else f(k,2):=f(k,4);
      if f(k,6)<f(k,2) then f(k,6):=f(k,2) else f(k,2):=f(k,4):=f(k,6);
      if f(k,9)>f(k,10) then f(k,10):=f(k,9) else f(k,9):=f(k,10);
      if f(k,11)>f(k,12) then f(k,12):=f(k,11) else f(k,11):=f(k,12);
      write(out,<:<12><10>n=:>,<<d   >,k);
      for i:=2,4 step 1 until 13 do
        write(out,<:<10>    :>,false add ch(i),1,<< -d.ddd ddd ddd'-dd >,
          f(k,i));
      setposition(z,0,0);
      inrec6(z,2*4); t:=z(2);
      repeat
        write(out,<:<10>:>,<<ddddd>,t);
        for j:=1 step 1 until n do begin
          inrec6(z,13*4);
          write(out,<<-ddd>,180-arg(-z(1),z(3))*(180/3.14159265));
          if j=k then begin
            c(0):=c(ll):='!';
            for i:=2,4 step 1 until 13 do if f(k,i)>0 then
              c((z(i)/f(k,i)+1)*ll/2):=ch(i);
          end;
        end;
        for i:=0 step 1 until ll do begin
          outchar(out,c(i));  c(i):=' ';
        end;
        inrec6(z,4); t0:=t; t:=z(1);
      until t0>=t;
    end;
  end;
  outchar(out,'nl');
  close(z,false);
end;
▶EOF◀