DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »ramkatx« 

TextFile

clear user ramkat
ramkat=set 1 disc5
scope user ramkat
ramkat=algol list.no
\f


RAMAN KATALOG                                                      KAT

external procedure ramkat;

begin
long array BS(1:2);
integer array t,hale(1:10);
array head(1:12);
integer j,b,g,nr,s1,s2,i;
boolean nl;
zone ZBS(128,1,stderror);
nl:=false add 10;

lookuptail(<:ramkatn:>,hale);
g:=hale(8); s1:=hale(9); s2:=hale(10);
if g=0 then write(out,<:<12>:>);
write(out,nl,4);
for i:=s1 step 1 until s2 do
begin ramng(i,BS,1);
      if lookuptail(BS,t) <> 0 then b:=-1 else b:=t(8);
      if b>1 then b:=1;
      case b+2 of begin
      begin write(out,nl,2,<:-------:>,<<ddd>,i,<:  *findes ikke:>);
      end b=-1;
      begin write(out,nl,2,<:-------:>,<<d>,i);
      end b=0;
      begin open(ZBS,4,BS,0); setposition(ZBS,0,0);
            inrec(ZBS,128);
            write(out,nl,2,<<dddddd>,ZBS(17),
            case cif(i) of(<:-00:>,<:-0:>,<:-:>),<<d>,i,
            <<  ddd>,ZBS(13),<<  d>,ZBS(14),<<  ddd>,ZBS(15),
            if ZBS(16)<0 then <: d:> else <: p:>);
            for j:=1 step 1 until 12 do head(j):=ZBS(j);
            write(out,false add 32,2,string inc(head));
      end b=1;
      end case;
     
      close(ZBS,true);
end;
if g=0 then write(out,<:<12>:>);
end; end
\f


▶EOF◀