DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »tcutarea«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
            └─⟦this⟧ 

TextFile

lookup cutarea
if ok.yes
(scope temp cutarea
clear temp cutarea)
cutarea=set 1
cutarea=algol list.yes
\f


external
boolean procedure cutarea(name);
array name;
begin
integer i,c,mc,cc;
boolean b;
integer array tail(1:10);
i:=lookuptail(name,tail);
b:=i=0 and tail(1)>0;
if b then begin
i:=connectcuri(name);
b:=i=0;
if b then begin
cc:=0; mc:=768*tail(1);
for i:=readchar(in,c) while cc<=mc and c<>25 and c<127 do cc:=cc+1;
tail(1):=cc//768+(if cc mod 768=0 then 0 else 1);
b:=0=changeentry(name,tail);
if -,b then write(out,<:areachange :>,tail(1));
end;
unstackcuri;
end;
cutarea:=b;
end;
end;
\f



▶EOF◀