DataMuseum.dk

top - metrics - download

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

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »testvtlogtx « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »testvtlogtx « 

TextFile

  begin
    integer i,j,d,t,antal_poster;
    real dato,tid;
    integer array ia(1:10);
    real array field raf;
    zone z(128,1,stderror);
    integer field v_kode,v_bus,v_ll1,v_ll2;
    real field v_tid;
    long array field v_tekst;

    v_tid:= 4;
    v_kode:=v_tekst:= 6;
    v_bus:= 8;
    v_ll1:= 10;
    v_ll2:= 12;
    begin
      open(z,4,<:vtlog:>,0);
      if monitor(42)lookup_entry:(z,0,ia) = 0 then
      begin
        if monitor(52)create_areaprocess:(z,0,ia) = 0 then
        begin
          antal_poster:= 0;
          for j:= 1 step 1 until ia(10) do
          begin
            inrec6(z,16);
            antal_poster:=antal_poster+1;
            dato:=systime(4,z.v_tid,tid);
            d:= entier(dato); t:= entier(tid/100)/100;
            if 0 <= z.v_kode and z.vkode <= 1 then
            begin
              write(out, case (z.v_kode+1) of (<:ST:>,<:SL:>),
                << zd>,d mod 100,".",1,<<zd>,(d//100) mod 100,".",1,
                <<zddd>,(d//10000)+1900,"sp",1,<<zd.dd>,t,
                "sp",1);
              if z.v_kode = 1 then
                write(out,<<ddddddd>,antal_poster,"cr",1,"nl",1)
              else
                write(out,"sp",7,"cr",1,"nl",1);
            end
            else
            if z.v_kode = 4 then
            begin
              write(out,<:PS :>,<<zd.dd>,t,"sp",1);
              write(out,"sp",20-write(out,z.v_tekst),"cr",1,"nl",1);
            end
            else
            if z.v_kode <= 7 then
            begin
              write(out,case (z.v_kode+1) of (<::>,<::>,<:AU:>,<:AO:>,
                <::>,<:MI:>,<:MU:>,<:MO:>),"sp",1,<<zd.dd>,t,"sp",1,
                <<dddd>,z.v_bus extract 14,"sp",1);
              if z.v_ll1 <> 0  then
              begin
                if z.v_ll1 shift (-7) extract 5 = 0 then
                  write(out,<< ddd>,z.v_ll1 shift (-12) extract 10,"/",1)
                else
                  write(out,<<ddd>,z.v_ll1 shift (-12) extract 10,
                    false add (z.v_ll1 shift (-7) extract 5 + '@'),1,"/",1);
                write(out,<<d>,z.v_ll1 extract 7,
                  "sp",if z.v_ll1 extract 7 < 10 then 2 else 1);
              end
              else
                write(out,"sp",8);
              if z.v_ll2 <> 0 then
              begin
                if z.v_ll2 shift (-7) extract 5 = 0 then
                  write(out,<< ddd>,z.v_ll2 shift (-12) extract 10,"/",1)
                else
                  write(out,<<ddd>,z.v_ll2 shift (-12) extract 10,
                    false add (z.v_ll2 shift (-7) extract 5 + '@'),1,"/",1);
                write(out,<<d>,z.v_ll2 extract 7,
                  "sp",if z.v_ll2 extract 7 < 10 then 1 else 0);
              end
              else
                write(out,"sp",7);
              write(out,"cr",1,"nl",1);
            end;
            ud(out);
          end for j;
        end if areaprocess;
      end if lookup;
      close(z,true);
    end;
    write(out,<:EX:>,"sp",27,"cr",1,"nl",1);

    trapmode:= 1 shift 10;
  end
▶EOF◀