DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »longlinestx«

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

TextFile

\f



comment predit text           * page 37   11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;  

comment case 9, longlines;  

begin
  comment prog j.h.;  
  zone z1, z2(512, 1, stderror);  
  integer c, i, w;  
  long s;  
  integer array a(0:255);  
  long array t(1:22);  
  long array field r;  

  for i:=0 step 1 until 31, 127 step 1 until 255 do a(i):=0;  
  for i:= 32 step 1 until 126 do a(i):=6 shift 12 +i;  
  for i:=10, 12 do a(i):=7 shift 12+i;  
  a(25):=8 shift 12+25;  

  system(4, 2, t);  
  i:=1;  open(z1, 4, string t(increase(i)), 0);  
  system(4, 3, t);  
  i:=1;  open(z2, 4, string t(increase(i)), 0);  

  intable(a);  

  w:=11;  r:=4*w;  t(w+1):=0;  comment t should be decl. t(1:2*w);  
  for i:=readchar(in, c) while i<>8 do
  begin
    if i>6 then begin outchar(z1, c);  outchar(z2, c) end else
    begin
      repeatchar(in);  
      if readstring(in, t, 1)<>0 then
      begin
        s:=t(w+1);  t(w+1):=0;  write(z1, t);  
        t(w+1):=s;  write(z2, t.r);  
        t(w+1):=0;  
      end;  
      repeatchar(in);  
      for i:=readchar(in, c)while i<7 do;  
      repeatchar(in);  
    end;  
  end;  
  outchar(z1, 25);  outchar(z2, 25);  
  close(z1, true);  close(z2, true);  
end case 9, longlines;  
▶EOF◀