|
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: »kkmess«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦508e019d6⟧ »kkfiler«
└─⟦this⟧
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦8748ba386⟧ »kkfiler«
└─⟦this⟧
mess=algol list.no
begin
zone z(128,1,kkstderror);
integer array a(1:2),pr(1:30),b(1:1),c(1:1),table(0:127);
integer i,j,k;
array m(1:60);
long array field ll;
procedure kkstderror(zz,ii,ij);
zone zz;integer ii,ij; begin end;
ll:=-2;
for i:=0 step 1 until 31 do table(i):=8 shift 12 +i;
for i:=32 step 1 until 127 do table(i):=6 shift 12 +i;
intable(table);
write(out,<:write message::>);
setposition(out,0,0);
readstring(in,m,1);
system(5,74,a);
system(5,a(1),b);
system(5,a(2),c);
for i:=b(1) step 2 until c(1) do
begin
j:=2;
system(5,i,pr);
if pr(1)=84 then
begin
if pr.ll(2)=long <:termi:> add 110 or
pr.ll(2)=long <:conso:> add 108 then
begin
j:=2;
open(z,8,string pr.ll(increase(j)),0);
setposition(z,0,0);
k:=1;
write(z,string m(increase(k)),<:<10>:>);
setposition(z,0,0);
close(z,true);
end;
end;
end;
end;
▶EOF◀