|
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: »fungtxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »fungtxt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »fungtxt«
\f
begin
integer i,j,maxj,item,prpos,lpos;
boolean test,nl,sp,cap;
integer array K(1:50);
long array V(1:50);
zone Z(128,1,stderror);
nl:= false add 10; sp:= false add 32;
test:= false;
open(Z,4,<:fungfile:>,0);
write(out,false add 12,1); lpos:= 1;
maxj:= 1;
for maxj:= readall(Z,V,K,1) while -,(K(maxj)=8 and V(maxj)=25) do
begin if test then
for j:= 1 step 1 until maxj do
write(out,nl,1,V(j),sp,3,K(j));
if lpos>62 then
begin write(out,false add 12,1); lpos:= 1 end;
if K(1)=7 and V(1)=35 and K(2)=7 and V(2)=35 then
begin cap:= true; lpos:= lpos+2; write(out,nl,2) end
else cap:= false;
item:= 0; prpos:= 1;
for j:= 1 step 1 until maxj do
begin if K(j)=7 and V(j)=44 then item:= item+1;
if K(j)=6 and item=0 then
begin prpos:= prpos+write(out,nl,2,string V(increase(j)));
lpos:= lpos+2; j:= j-1 end;
end;
if cap then begin write(out,nl,1); lpos:= lpos+1 end else
begin
prpos:= prpos+write(out,sp,25-prpos);
while prpos<70 do
prpos:= prpos+write(out,<:..:>,sp,4);
end;
end;
end
▶EOF◀