DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »epux«

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

TextFile

clear user epu
epu=set 1 disc5
scope user epu
epu=algol list.no
RAMAN2  program: epu (udlæsningsprogram)
external procedure epu;
begin
integer i,k,j,t1,t2,segm,l,l1,msegm,no,ver;
array spname(1:2);
zone sp(128,1,stderror);
write(out,<:
NAME=:>);  readstring(in,spname,1);
write(out,<:VER=:>); setposition(out,0,0); read(in,ver);
no:=5;
open(sp,4,string inc(spname),0);
inrec(sp,128); msegm:=sp(1);

if ver=1 then goto M;

L: write(out,<:
segm t1 t2
:>);
setposition(out,0,0);
read(in,segm); if segm=-1 then goto slut; read(in,t1,t2); 
if segm=0 then begin
write(out,<:*** wrong segment number:>); goto L; end;
if segm>msegm then begin
write(out,<:*** wrong segment number:>); goto L; end;
segm:=segm-1;

if t2>128 then t2:=128;
setposition(sp,0,segm); inrec(sp,128);
l:=entier((t2-t1)/no+1); l1:=(t2-t1+1) mod no;
if l1=0 then l1:=no;
for i:=1 step 1 until l do
begin write(out,<:<10>:>,<<dddd>,
if segm<2 then (i-1)*no+t1+(segm)*128 else
(i-1)*no+t1+(segm-2)*128,<:.:>);
      for j:=1 step 1 until no do
      begin if i=l and j=l1+1 then goto L;
            write(out,<< -ddd ddd.dd>,sp(j+(i-1)*no+t1-1));
      end;
end;
goto L;
M:
setposition(sp,0,0); inrec(sp,128);
write(out,<:
SEGM=:>,<<dd>,sp(1),<:
ANTAL PUNKTER=:>,<<ddddd>,sp(2),<: (:>,sp(3),<:):>,<:
MIN= :>,<<ddd ddd ddd>,sp(4),<:   UMIN=:>,sp(5),<:
MAX= :>,sp(6),<:   UMAX=:>,sp(7),<:
TMIN=:>,sp(8),<:   TMAX=:>,sp(9),<:
BMIN=:>,sp(11),<:   BMAX=:>,sp(12));
slut:
close(sp,true);
 end;
end
▶EOF◀