DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »edlist1«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »edlist1« 

TextFile

mode list.yes
lkj=lookup listerrortx
if ok.no
extract from.gi listerrortx
tlisterror=edit listerrortx
i/
(mode list.yes
listerror=algol connect.no
if ok.no warning.yes
finisb
scope user listerror
mode list.no
finisb)
/,l./beg/,l1,i/
own long longzero;
/,
g b/,nl,/, "nl",/,f
alzq=edit tlisterror
g b/,ff,/, "ff",/,f
tlisterror=edit alzq
g b/sp,/ "sp",/,f
alzq=edit tlisterror
l./lookup_proc/,r/v/comment v/,l1,i/
  val:=lookuptail(input_file,kind);
/,
l./stdtable/,r/std/iso/,f
tlisterror=edit alzq
g b;pump(;inc(;,f
alzq=edit tlisterror
l./in./,r/in.//,l-1,r/   //,l2,
r/   //,
l./bool/,r/;/,bossline;/,
l1,i/
array field af;
/,l./algol/,i/
af:=0;
/,l./***R/,d./open(zn/,i/

initfp;
readbfp(<:boss:>,bossline,false);
nbr:=1;
if -,readifp(<:l:>,writeline(nbr),0) then
  alarm(<:***listerror no lines specified:>);
nbr:=2;
while readifpnext(fpnr,writeline(nbr)) do nbr:=nbr+1;
if -,readinfp(input_file.af,1) then
  alarm(<:***listerror no input file specified:>);
val:=lookup_tail(inputfile,kind);
if val>0 then alarm(<:***listerror :>,string inc(inputfile.af),
  <: does not exist:>);
if kind(1)<0 or kind(9)<>0 then
  alarm(<:***listerror :>,string inc(inputfile.af),<: not text:>);
connectlso;
open(zn,4,inputfile,0);
/,
l./<<ddddd>/,r/,1/,1);
      if bossline then write(out/,
r/nr,/nr);
      write(out,/,
f
tlisterror=edit alzq
l./Topo/,l1,i;
Revised by Anders Lindgård 1980-12-09
;,l./kind/,r/50/132/,l./50/,r/50/132/,
l./whilecont/
i/

iso_table(table);
for int:=32 step 1 until 125 do
table(int) :=6 shift 12 + int;
table('nl'):=8 shift 12 + 'nl';
table(' ') :=7 shift 12 + ' ';
table('.') :=7 shift 12 + '.';
table(';') :=7 shift 12 + ';';
intable(table);
/,l./:extern/,r/shift(-8)shift(8)=/=/,
r/:>/:> add 'n' and la(t+1):=long <:al:>/,
l./<*redef/,d./intable/,
l./forval/,i/
    if kind(t)=6 then
    begin
/,
l./ok:=true;/,l1,i/
    end;
    if ok then
    begin
      t1:=0;
      for t1:=t1+1 while t1<=int-1 do
      if kind(t1)=6 then
      begin
       if la(t1)=long <:algol:> then
       begin
        t1:=t1+1;
        if t1<=int-1 then
        begin
         while kind(t1)=7 and la(t1)=' ' and t1<=int-1 do t1:=t1+1;
         continue:=t1<int-1 and la(t1)=' ';
         t1:=t1+1;
         if continue then
         begin
           if kind(t1)=6 and la(t1)=long <:list:> then
           begin
             t1:=t1+1;
             if t1<int-1 and kind(t1)=7 and la(t1)='.' then
             begin
              t1:=t1+1;
              if t1<int-1 and kind(t1)=6 and (la(t1)=long <:on:> or
              la(t1)=long <:off:>) then
              begin
                t1:=t1+1;
                while kind(t1)=6 and la(t1)=' ' and t1<int do t1:=t1+1;
              end else continue:=false;
            end else continue:=false;
          if kind(t1)=6 and la(t1)=copy then
          begin
           t1:=t1+1;
           if t1<int then
f
scope day tlisterror
mode list.no
▶EOF◀