|
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: »tlistmatpr«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦09b4e9619⟧ »thcømat«
└─⟦this⟧
(
listmp=algol
global listmp
)
begin
integer i,j,k,s;
real a,b;
long array ST(1:4);
integer array l(1:4);
zone zi(128,1,stderror),zo(128,1,stderror);
l(1):=15; l(2):=10; l(3):=17; l(4):=12;
s:=0; for i:=1,2,3,4 do s:=l(i)+s;
open(zi,4,<:listmatret:>,0);
open(zo,4,<:listmatproc:>,0);
systime(1,0,a);
outchar(zo,12);
i:=0; k:=0;
for i:=i while k<>32 do begin
readstring(zi,ST,1);
i:=write(zo,ST,sp,1)+i;
j:=readchar(zi,k); repeatchar(zi) end;
write(zo,sp,70-9-i,<< dd dd dd>,systime(4,a,b),nl,4);
read(zi,i,i,i);
for i:=1,2,3,4 do begin
readstring(zi,ST,1);
write(zo,sp,l(i)-write(zo,ST)) end;
write(zo,nl,1);
j:=6;
for i:=i while j=6 do begin
readstring(zi,ST,1); write(zo,nl,1);
write(zo,sp,l(1)-write(zo,ST));
for j:=readchar(zi,k) while k=32 do;
i:=0;
for j:=j while j<>6 and k<>32 and j<>8 do begin
outchar(zo,k); j:=readchar(zi,k); i:=i+1 end;
for j:=j while j<>6 and j<>8 do
j:=readchar(zi,k);
write(zo,sp,l(2)-i);
i:=2;
for i:=i+1 while i<=4 and j<>8 do begin
repeatchar(zi); readstring(zi,ST,1);
write(zo,sp,l(i)-write(zo,ST));
repeatchar(zi);
for j:=readchar(zi,k) while k=32 or j=0 do;
end;
for j:=readchar(zi,k) while j=8 do;
repeatchar(zi) end;
write(zo,nl,4);
for j:=readchar(zi,k) while k<>25,j do outchar(zo,k);
close(zi,true); close(zo,true);
end
listmp
▶EOF◀