DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »tskipill«

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

TextFile

skipill=set 1
scope project skipill
skipill=algol
begin
integer i,j,k;
integer array C(1:132);
boolean ill;
integer char,lch,last;
integer array t(0:255);
for i:=1 step 1 until 255 do t(i):=6 shift 12+i;
t(0):=0;
t(9):=0;
intable(t); tableindex:=0;
connectlso;
readifp(<:last:>,last,132);
repeat
ill:=false;
k:=0;
lch:=1;

repeat
readchar(in,char);
k:=k+1;
if char<>10 and char<>32 and k<=last then lch:=k;
ill:=ill or ((char<32 or char>127)and(char<>'nl' and
  char<>'ff' and char<>'cr' and char<>'em'));
if k<=132 then C(k):=char;
until char=10 or char=25 ;
if lch>last then lch:=last;
if -,ill then
begin
  for i:=1 step 1 until lch do outchar(out,C(i));
  if lch<k then outchar(out,10);
end;
until char=25;
if fpout then closeout;
end;
▶EOF◀