|
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 - download
Length: 768 (0x300)
Types: TextFile
Names: »tdansletfil «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─ ⟦this⟧ »tdansletfil «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »tdansletfil «
begin
zone z(128,1,stderror);
integer i,ant,c;
integer array tail(1:10);
real array navn(1:2);
open(z,4,<:vtlogslet:>,0);
monitor(48,z,0,tail);
for i:= 1 step 1 until 10 do tail(i):=0;
tail(1):=tail(2):=1;
tail(6):=systime(7,0.0,0.0);
monitor(40,z,0,tail);
monitor(50,z,3,tail);
repeat
if readstring(in,navn,1)>0 then
begin
if navn(1) extract 8 = 0 then navn(2):=real<::>;
outrec6(z,8);
tofrom(z,navn,8);
tail(10):=tail(10)+1;
end;
repeatchar(in); readchar(in,c);
while c<>'nl' and c<>'em' do readchar(in,c);
until c='em';
monitor(44,z,0,tail);
close(z,true);
end
▶EOF◀