DataMuseum.dk

top - download

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

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─ ⟦this⟧ »genhtnavne  « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »genhtnavne  « 

TextFile

claim
o htcatalog
catsort docsort.yes
o c
p=algol list.yes
begin
  integer i,j,term;
  long array field laf;
  long array val(1:60);
  integer array kind(1:60);
  repeat
    i:=read_all(in,val,kind,1);
    repeatchar(in);
    readchar(in,term);
    j:= 0;
    for j:=j+1 while kind(j)=7 do ;
    if i<>0 and kind(j)=6 and (val(j)<>long <:catso:> add 'r'
        or val(j+1)<>long<:t:> or val(j+3)<>long<:page:>)
        and val(j)<>long <:c:> and val(j)<>long <:v:>
        and val(j)<>long<:end:> and (val(j)<>long<:base:>
        or -,(val(j+1)=':' and kind(j+1)=7))
     then
    begin
      laf:=(j-1)*4;
      write(out,"nl",1,val.laf,",",1);
    end;
  until term=25;
  write(out,"nl",1,"em",1);
end
htsavenames=set 100
scope user htsavenames
o htsavenames
(i htcatalog
p
end
)
o c
convert htsavenames std
end
finis
▶EOF◀