|
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: »autofiludtx «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »autofiludtx «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »autofiludtx «
begin
zone zud,zind(128,1,stderror);
integer array tail(1:10),ia(1:4);
integer postantal,linie,løb,bogst,i;
integer array field iaf;
long array field laf;
real t;
laf:= iaf:= 0;
openfp(zud,0);
if findfpparam(<:fil:>,false,ia)<=0 then
begin
write(out,<:*** inddata-filnavn mangler<10>:>);
goto slut;
end;
open(zind,4,ia,0);
monitor(42)lookup entry:(zind,0,tail);
postantal:= tail(10);
for i:= 1 step 1 until postantal do
begin
inrec6(zind,8);
if zind.iaf(1)=12 then write(zud,<:s:>) else
if zind.iaf(1)=13 then write(zud,<:o:>);
linie:= zind.iaf(3) shift (-12) extract 10;
bogst:= zind.iaf(3) shift (-7) extract 5;
if bogst<>0 then bogst:= bogst+'@';
løb:= zind.iaf(3) extract 7;
write(zud,<< ddd>,linie,false add bogst,1,<:/:>,<<d>,løb);
if zind.iaf(4)<>0 then
begin
linie:= zind.iaf(4) shift (-12) extract 10;
bogst:= zind.iaf(4) shift (-7) extract 5;
if bogst<>0 then bogst:= bogst+'@';
løb:= zind.iaf(4) extract 7;
write(zud,<< ddd>,linie,false add bogst,1,<:/:>,<<d>,løb);
end;
write(zud,<< zddd>,zind.iaf(2)/100);
write(zud,"nl",1);
end;
close(zind,true);
slut:
closefp(zud,true);
end
▶EOF◀