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

⟦3c8565e04⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »ffag1txt« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »ffag1txt«

TextFile

begin
     integer n,s,i;
     real r;
     real array R(1:7);
     n:= 0; for i:= 1 step 1 until 7 do R(i):= 0;
     read(in,s);
     while s>0 do
     begin n:= n+s; 
       for i:= 1 step 1 until 7 do
       begin read(in,r); R(i):= R(i)+s*r; end;
       for i:= 1,2,3 do read(in,r);
       read(in,s);
     end;
     write(out,"nl",1,n);
     for i:= 1 step 1 until 7 do
     write(out,"nl",2,R(i)/n);
end;
▶EOF◀