DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦2c249c559⟧ TextFile

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

Derivation

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

TextFile

writemat=algol list.yes index.no

external
procedure writemat(res,layout,A,n,s);
value n,s; string layout; integer n,s;
zone res; array A;
begin
integer i,j,k,l,p;
boolean nl; nl:= false add 10;
k:= 1; p:= s; write(res,nl,1);
rep:
if p>n then p:= n;
for i:=k step 1 until n do begin write(res,nl,1);
l:= if i<p then i else p;
for j:=k step 1 until l do write(res,layout,A(i,j));
end i;
write(res,nl,2); k:= p+1; p:= p+s; if k<=n then goto rep
end;
end
▶EOF◀