|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »testprog«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦e3cb726bb⟧ »test«
└─⟦this⟧
begin real r1,r2,r3,r4,r5,r6,r7,r9,r0;
integer i1,i2,i3,i4,i5,i6,i7,i8,i9;
real time1,time2,time3;
algol copy.tcgproglib;
get_integer_string(<:loop:>,i1);
time1 := systime(1,0,time2);
r1:= 0.00004;
r2:=0.0000005;
r3:=50000000.0;
time1 := systime(1,0,time2);
for i2 := 1 step 1 until i1 do
r4:=r2*r3;
time1 := systime(1,time2,time2) -time1;
write(out,"nl",1,<:fm no of times::>,
i1,_dddd.ddd_>,time1,time2);
end;
▶EOF◀