|
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: »hund«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »hund«
begin
integer array hand(0:3),styrke(0:40);
integer i,j,kort,k;
cleararray(styrke);
for k := 1 step 1 until 170 do
begin
cleararray(hand);
for j := 1 step 1 until 13 do
begin
read(in,kort);
hand(kort//160) := hand(kort//160) + kort mod 160;
end;
read(in,kort);
for i := 0 step 1 until 3 do
begin
if hand(i) >= 80 then
begin
write(out,<:Es :>);
hand(i) := hand(i) - 80;
end;
if hand(i) >= 40 then
begin
write(out,<:K :>);
hand(i) := hand(i) - 40;
end;
if hand(i) >= 20 then
begin
write(out,<:D :>);
hand(i) := hand(i) -20;
end;
if hand(i) >= 10 then
begin
write(out,<:B :>);
hand(i) := hand(i) - 10;
end;
for j := 1 step 1 until hand(i) do write(out,<:x :>);
write(out,false add 10,1);
end;
write(out,kort,nl,1);
styrke(kort) := styrke(kort) + 1;
end;
for i := 0 step 1 until 40 do
begin
if i mod 10 = 0 then write(out,nl,1);
write(out,<<ddd>,styrke(i));
end;
end
▶EOF◀