DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦073137791⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »knud«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »knud«

TextFile

hen goto EF;
                      end;
                      nx1:=nx1-in0;
                    end;
                    nx1:=nx1-in1;
                  end;
                  nx1:=nx1-in2;
                end;
                nx1:=nx1-in3;
              end;
            end;
            comment *****************************************;
            begin
              for i2:=c-1 step -1 until 2 do
              for j2:=g-1 step -1 until 0 do
              if rk1(i2)<>s(j2,i2) then
              begin
                in2:=s(j2,i2)-rk1(i2);
                nx1:=nx1+in2;
                for i1:=i2-1 step -1 until 1 do
                for j1:=g-1 step -1 until 0 do
                if rk1(i1)<>s(j1,i1) then
                begin
                  in1:=s(j1,i1)-