DataMuseum.dk

top - metrics - download

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

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

TextFile

clear user epg
epg=set 1 disc
scope user epg
epg=algol list.no

Gennemsnitsberegning
external procedure g;
begin
integer i,j,k,u,u1,u2,t,umax,min,ls,sls,segm,ver;
array spname(1:2);
real g,gmin;
integer array sptail(1:10);
zone sp(128,1,stderror);
for i:=1 step 1 until 10 do sptail(i):=0;
gmin:=1000000;
write(out,<:NAME=:>); setposition(out,0,0);; readstring(in,spname,1);
write(out,<:VER= :>); outendcur(0); read(in,ver);

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); umax:=sp(6);
if ver=2 then goto L2; if ver=3 then goto L3;
L: write(out,<:
segm u1 u2
:>); setposition(out,0,0);
read(in,segm); if segm=-1 then goto slut; read(in,u1,u2);
g:=0; segm:=segm-1;
setposition(sp,0,segm); inrec(sp,128);
for j:=u1 step 1 until u2 do
g:= g+sp(j); g:=g/(u2-u1+1);
write(out,<:
g= :>,<<dddd.dd>,g);

goto L;
L2:
setposition(sp,0,2);
for k:=0 step 1 until sptail(1)-3 do
begin inrec(sp,128); g:=0;
      for j:=1 step 1 until 128 do
      g:=g+sp(j);
      g:=g/128;
      write(out,<:
:>,<<dd>,k+3,<<ddd ddd>,g);
end k;
goto slut;


L3:
setposition(sp,0,2);
for k:=0 step 1 until sptail(1)-3 do
begin inrec(sp,128); g:=0;
      for j:=1 step 1 until 128 do
      g:=g+sp(j); g:=g/128;
      if g<gmin then gmin:=g;
end k;

write(out,false add 10,1,<:GMIN=:>,<< dddd.dd>,gmin);

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):=sp(j)-gmin;
      end j;
end k;
setposition(sp,0,0); swoprec(sp,128); sp(30):=1;
slut: close(sp,true); end; end
▶EOF◀