|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300) Types: TextFile Names: »extwritemat«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt. └─⟦0364f57e3⟧ └─⟦58ca399f1⟧ »extbib« └─⟦this⟧
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◀