|
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: »indatetx«
└─⟦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 case 6, indate;
_______________________
comment programm: erik hjortenberg;
___________________________________
begin
integer i, j;
array a(1:2);
zone z(128, 1, stderror);
i:=readparam(a);
if i<>-1 then system(9, -1, <:<10>paramerr:>);
open(z, 4, string pump(a), 0);
i:=indateproc(z);
j:=sign(i)+2;
if j<>2 then
write(out, <:entry :>, string pump(a),
case j of
(<: not found:>,
<:, tail was updated:>,
<: found, but not changed, :>));
close(z, true);
if i <> 0 then
begin
if i=4 then write(out, <: file protected:>);
if i=5 then write(out, <: entry process in use:>);
if i=10 then write(out, nl, 1, sp, 5,
<:entry is a translated external procedure:>);
if i<>-3 and i<>4 and i<>5 and i<>10
then write(out, <: monitorresult:>, abs(i));
end;
end case 6, indate;
▶EOF◀