DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »readsttxt«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦af373cc6d⟧ »rydiv« 
            └─⟦this⟧ 

TextFile

;al3 time.150
mode list.yes
lookup readsttxt
lookup rydlist
if ok.yes
mode 15.yes
clear readst
readst=set 100
permanent readst.13
readst=hcalg
1978-05-24
begin
integer c,char,i;
integer array t(0:255);
zone z(128,1,endblock);

procedure endblock(z,s,b);
zone z; integer s,b;
if s shift(-18) extract 1=1 then
  goto END else stderror(z,s,b);

for i:=0 step 1 until 255 do
  t(i):=6 shift 12+i;
intable(t); tableindex:=0;

open(z,4 shift 12+10,<:reader:>,1 shift 18);

i:=0;
for c:=readchar(z,char) while true do
  begin
  write(out,if i mod 10= 0 then nl else false,1,<< dd>,char);
  i:=i+1;
  end;
END:
outend(10);
close(z,true);
end;
clear convst
convst=set 100
permanent convst.13
convst=hcalg
1978-05-24
begin
integer i,j,val;
j:=0;
for i:=read(in,val) while i>0 do
begin
if val=10 then
  begin
  write(out,if j mod 5= 0 then nl else false add 44,1);
  j:=j+1;
  end else write(out,<<d>,(val-1)//2);
end;
end
clear readandcst
readandcst=set 100
permanent readandcst.13
readandcst=hcalg
1979-10-24
begin
boolean leading;
integer c,char,i,lchar,res,j,s,val;
array inp,outp(1:3);
integer array t(0:255);

for i:=0 step 1 until 255 do
  t(i):=6 shift 12+i;
intable(t); tableindex:=0;

if readlsfp(outp) then
begin
  stackcuro;
  res:=connectcuro(outp);
  if res<>0 then unstackcuro;
end;

for fpinareas:=fpinareas step -1 until 1 do
begin
zone z(128,1,endblock);

procedure endblock(z,s,b);
zone z; integer s,b;
if s shift (-18) extract 1=1 then goto END
  else stderror(z,s,b);

open(z,4 shift 12+10,<:reader:>,1 shift 18);

lchar:=s:=j:=i:=0;
for c:=readchar(z,char) while true do
  begin
  if (char=10 and lchar=10) or i=0 then
  begin
    s:=s+1; j:=0;
    write(out,nl,1,<:spectrum:>,s,nl,1);
    leading:=true;
  end else
  if char=10 then
  begin
    write(out,if j mod 10=0 then nl else false add 44,1);
    leading:=true;
    j:=j+1;
  end else
  begin
    val:=(char-1)//2;
    if val>0 then leading:=false;
    if -,leading then write(out,<<d>,val) else write(out,sp,1);
  end;
  i:=i+1;
  end;
END:
close(z,true);
end for inarea;
write(out,nl,1,<:end:>);
outend(10);
if fpout then closeout;
end;
mode list.no 15.no
▶EOF◀