|
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: »olddatetx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0f6e8048b⟧ »preditfile«
└─⟦this⟧
\f
comment predit text * page 18 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
comment old_date
_ ********;
comment case 7;
begin integer i;
boolean array field d_f;
integer array tail(1:10);
array name(1:2);
zone zw(1, 1, stderror);
d_f := 10;
for i := read_param(name) while i <> 0 do
begin
if i = 2 or i = 4 then
begin
open(zw, 0, string pump(name), 0);
if monitor(42)lookup:(zw, i, tail) = 0 then
write(out, sp, 13
- write(out, nl, 1, string pump(name)), <<d>,
tail.d_f(1) extract 12, <:.:>, tail.d_f(2) extract 12,
sp, 1, tail.d_f(3) extract 12 , <:.:>, tail.d_f(4) extract 12)
else write(out, sp, 13
- write(out, nl, 1, string pump(name)), <:does not exist:>);
close(zw, true);
end;
end;
end case 7, old_date;
▶EOF◀