|
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: 768 (0x300)
Types: TextFile
Names: »ttestterm «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »ttestterm «
begin
long array navn(1:2), docnavn(1:2);
integer array tail(1:10);
integer i;
integer array field iaf;
long array field doc;
zone z(1,1,stderror);
iaf:= 0; doc:= 2;
if findfpparam(<:navn:>,false,navn.iaf)>0 then
begin
open(z,8,navn,0);
i:= monitor(4,z,0,tail);
if i>0 then
tofrom(docnavn,navn,8)
else
begin
i:= monitor(42,z,0,tail);
if i=0 then
tofrom(docnavn,tail.doc,8)
else
movestring(docnavn,1,<:*** ukendt:>);
end;
close(z,true);
write(out,"nl",1,navn,<: = :>,docnavn,"nl",2);
end;
end
▶EOF◀