|
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: 1536 (0x600)
Types: TextFile
Names: »extbmatrix«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦58ca399f1⟧ »extbib«
└─⟦this⟧
btext=set 12 btext=edit extxbmatrix v n l./proc/,r/x//,r/Rnorm,plan/X,inpname/ l1,r/Rnorm/inpname/,r/ bool/ real inpname; /,d,r//array X; / l./bool/,r/;/,cycl1,Rnorm;/ l./zone/,r/B/ zone inp(128,1,stderror), B/,l-1,d l./comment/,d,r/plan:= true;// l1,d30,i/ cycl1:= inpname<0; Rnorm:= false; if cycl1 then begin inpname:= -inpname; /,l./:>)/,r/;/ end;/,r/ open/ open(inp,4,string inpname,0); open/ l./repeatchar/,g/(in/(inp/ l./str/,g100/write/if cycl1 then write/ l./close(X/,d l6,i/ if cycl1 then /,l7,i/ if cycl1 then begin /,l5,r/;/ end;/ l./Rnorm/,r/Rnorm/Rnorm and cycl1/ l4,g26/write/if cycl1 then write/ r/x// l1,i/ close(inp,true); /,f btext=edit btext v n g211/(in,/(inp,/ r/m/m:= k/ r/ if/for ibl:=1 step 1 until BL do m:= m+S(ibl,1); if/ l3,i? begin zone BS((N3*m+127)//128*128,1,stderror); open(BS,4,<:btrack:>,0); outrec(BS,N3*m); ? l2,d,r/ k:= 0;// l1,d1 g10/(in,/(inp,/ l./close(BS/,l-1,r/;/ end ibl;/,l2,r/ibl/BS/,f bmatrix=set 22 bmatrix=algol btext index.no permanent bmatrix.15 ▶EOF◀