|
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: »ttransdec«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »ttransdec«
(
mode list.yes
transdec=set 1
transdec=algol list.yes
mode list.no
)
begin
integer i,c,char,p;
real nscm,logc,x,y;
array ns,co(1:100),txt(1:5);
nscm:=readr(<:10 ns:>)/10;
logc:=readr(<:'4-'0:>)/4;
txt(1):=real <:more:>;
p:=0;
repeat
read(in,x,y);
repeatchar(in);
char:='nul';
while char<>'nl' do readchar(in,char);
c:=readchar(in,char);
repeatchar(in);
if c=6 then readstring(in,txt,1);
p:=p+1;
ns(p):=x/nscm;
co(p):=10**(y/logc);
until txt(1)=real <:end:>;
for i:=1 step 1 until p do
write(out,"nl",1,<<dd>,i,<< -dd.dd>,ns(i),
<< -dddd.dd>,co(i));
end;
▶EOF◀