|
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: »tdancqftab «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »tdancqftab «
begin
zone z(128,1,stderror);
integer i;
integer array field iaf;
iaf:= 0;
open(z,4,<:cqftab:>,0);
for i:= 1 step 1 until 23 do
begin
outrec6(z,8);
z.iaf(1):= case i of (
9901,9902,9903,9911,9912,9921,9922,9923,9924,9925,9926,
9941,9942,9943,9951,9952,9953,9954,9961,9962,9963,9972,9973);
z.iaf(2):= 0;
z(2):= real (case i of (
<:RO1:>,<:RO2:>,<:RO3:>,<:FS1:>,<:FS2:>,
<:HHL1:>,<:HHL2:>,<:HHL3:>,<:HHL4:>,<:HHL5:>,<:HHL6:>,
<:KJ1:>,<:KJ2:>,<:KJ3:>,<:HI1:>,<:HI2:>,<:HI3:>,<:HI4:>,
<:HG1:>,<:HG2:>,<:HG3:>,<:BA2:>,<:BA3:>));
end;
for i:= 24 step 1 until 64 do
begin
outrec6(z,8);
z(1):=z(2):= real<::>;
end;
close(z,true);
end
▶EOF◀