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

⟦8af435b94⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »kktilistt«

TextFile

kktilist=algol
begin
  real r,s;
  integer array field ia;
  integer i,j,k,sum,antal;
  zone z(128,1,stderror);
  open(z,4,<:kktifil:>,0);
  ia:=0;
  sum:=0;
  read(in,antal);
  inrec(z,128);
  k:=z.ia(1);
  for i:=2 step 2 until k do
  begin
    for j:=-22 step 2 until (-22+(antal-1)*2)  do
    write(out,<< d>,z.ia(i) shift j extract 2);
    sum:=sum+z.ia(i+1);
    r:=100*sum/(3**antal);
    write(out,<< ddddd>,z.ia(i+1),sum,<< dddd.d>,r,<:<10>:>);
  end;
  close(z,true);
end
;
▶EOF◀