|
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: »algrottabel«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦7e928b248⟧ »algbib«
└─⟦this⟧
;kemlab5 1
lookup rottabel
if ok.no
(r=set
r=algol
rename r.rottabel
permanent rottabel.15)
\f
Redigering af frekvenstabel.
begin
integer i,j,k,n;
integer array qtn(1:6);
array f(1:50);
zone res(128,1,stderror);
boolean closeres,sp,nl;
closeres:= outmedium(res);
sp:= false add 32; nl:= false add 10;
readhead(in,f,1); i:= 1;
write(res,<:<12>:>,nl,4,string f(increase(i)),<:
Transition Observed Obs. - t Centrifugal
Lower Upper Frequency Calc. Correction
State State:>,nl,1);
read(in,n);
for i:=1 step 1 until n do begin
read(in,qtn);
for j:=1,j+1 while k<>10 do begin
read(in,f(j)); repeatchar(in); readchar(in,k)
end;
write(res,nl,1);
for j:=1,2,3 do write(res,<<ddd>,qtn(j));
write(res,sp,2);
for j:=4,5,6 do write(res,<<ddd>,qtn(j));
f(2):= f(1)*1000+f(2);
write(res,<<___dd ddd.ddd>,f(2),<<___-d.ddd>,f(3),
<<__-d.d>,f(4),<<___-ddd.ddd>,f(5))
end i;
write(res,nl,2,<:<25>:>); close(res,closeres)
end
▶EOF◀