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

⟦ad095c8ea⟧ TextFile

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

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »lptst1«

TextFile

begin
integer i,al;
real base,time,cpu,t;
zone z(2*128,2,stderror);
open(z,4,<:tst:>,0);
inrec6(z,512);
close(z,false);
open(z,14,<:printer:>,0);
read(in,al);
systime(1,0,base);
cpu:=systime(1,base,time);
for i := 1 step 1 until al do
outrec6(z,512);
cpu := systime(1,base,t)-cpu;
time := t - time;
close(z,false);
open(z,14,<:printer:>,0);
write(z,<:<10>  dobbelt  :>,<<ddddd>,al,<<dddd.dddd>,cpu,time);
setposition(z,0,0);
close(z,true);
end
▶EOF◀