DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »epn«

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

TextFile

;pal time.49
slet c416.procn
clear procn
beskyt c416.procn.3
procn=algol list.no
H-nomering
external procedure nor;
begin
integer i,j,k,u,t,umax,min,s,ver; real max;
array spname(1:2);
integer array sptail(1:10);
zone sp(128,1,stderror);
for i:=1 step 1 until 10 do sptail(i):=0;
write(out,nl,1,<:NAME=:>); writeend; readstring(in,spname,1);
write(<:VER=:>); outend(0); read(in,ver);
if ver=1 then write(out,<:s=:>); outend(0); read(in,s);

open(sp,4,string inc(spname),0);
if monitor(42,sp,0,sptail) <> 0 then begin
  write(out,<:*** :>,string inc(spname),<: unknown:>);
  goto slut;
end;
inrec(sp,128);
sptail(1):=sp(1); t:=sp(2);

max:=0;
setposition(sp,0,2);
for k:=0 step 1 until sptail(1)-3 do
begin inrec(sp,128);
      for j:=1 step 1 until 128 do
      begin u:=k*128+j;
            if u<t then
            begin if sp(j)>max then max:=sp(j);
            end;
      end j;
end k;
setposition(sp,0,2);
for k:=0 step 1 until sptail(1)-3 do
begin swoprec(sp,128);
      for j:=1 step 1 until 128 do
      begin u:=k*128+j;
            if u<t then sp(j):=100*sp(j)/max;

      end j;
end k;
setposition(sp,0,0); swoprec(sp,128);
sp(6):=100;
close(sp,true);
slut: end;
end
▶EOF◀