DataMuseum.dk

top - metrics - download

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

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

TextFile

;klab3 1
clear algolredig
algolredig=set 25
algolredig=algol
begin
array txt(1:100),FP(1:3);
boolean mode;
integer i,m,j,ch1,ch,cb,class,fp;
fp:=readparam(FP);
if fp=-1 then begin
stackcuro;
fp:=fp+connectcuro(FP);
end;
mode:=false;
m:=0;
i:=1; ch1:=ch:=cb:=0;
for j:=readstring(in,txt,1) while ch<>25 do begin
if j>0 then mode:=true;
if txt(1)=real <:begin:> then begin cb:=cb+1; 
    if cb>1 then m:=m+2; end;
if txt(1)=real <:end:> then m:=m-2;
i:=1;
write(out,string txt(increase(i)));
repeatchar(in);
for i:=i while readchar(in,ch)>6 and ch<>25 do begin

ch1:=ch;
if ch=10 or ch=12 then begin
  mode:=false; write(out,false add ch,1,false add 32,m) end else
    if ch<>32 then begin
       mode:=true; write(out,false add ch,1); end;
end;
if ch1=32 and mode then write(out,false add 32,1);
repeatchar(in);
end;
outend(10);
if fp=-1 then closeout;
end;
▶EOF◀