DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦58ca399f1⟧ »extbib« 
            └─⟦this⟧ 

TextFile

readhead=algol list.yes index.no

external
integer procedure readhead(z,a,i);
value i; integer i; zone z; array a;
begin comment
   Proceduren læser en overskrift startende med  <  og afsluttet
af  >  eller  NL.  Return value er antallet af tegn i den indlæste
tekststreng;
integer array alfabet(0:127);   integer j,k,l;
procedure inset(k);  value k; integer k;
begin alfabet(j):= k shift 12 + j end;

for j:=38 step 1 until 125 do inset(6);
for j:=0  step 1 until  37, 63,64,94,95,96,126,127 do inset(0);
for j:=10,32 do inset(6);
for j:=62    do inset(7);
for j:=25    do inset(8);

for j:=readchar(in,k) while k<>60 do;
readchar(in,k);
if k<>62 then begin
   repeatchar(in);  intable(alfabet);  tableindex:= 0;
   k:= readstring(z,a,i); l:= 6*k; k:= i+k-1;
   for j:=-40 step 8 until 0 do
   if a(k) shift j extract 8 = 0 then l:= l-1;
   intable(0)
end else begin
   l:= 0;  a(i):= 0 shift 24
end;
readhead:= l
end; end
▶EOF◀