DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »lettxt« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »lettxt« 

TextFile

let=set 50
let=algol
program for line cutting and paragraph adjustment.
call:  <objectfile>=let <sourcefile> <fpparam>(0,n)
   End of word is defined as <non sp> followed by 
   <sp> or <nl> or <em>.
   New paragraph is defined by <nl> followed by <sp>.
fpparam: linewith lw.65  linespacing ld.1
begin
     integer c,i,il,iw,lw,ld;
     real array field raf;
     integer array I(0:255);
     long array IFILE,OFILE(1:3);
     zone zi,zo(128,1,stderror);
     raf:= 0;
     cleararray(IFILE); readinfp(IFILE.raf,1);
     open(zi,4,IFILE,0);
     cleararray(OFILE); readlsfp(OFILE.raf);
     open(zo,4,OFILE,0);
     i:= 0; il:= 0; iw:= 0; I(0):= 10;
     lw:= 65; readifp(<:lw:>,lw);
     ld:= 1; readifp(<:ld:>,ld);
     for i:= i while I(i)<>25 do
     begin i:= (i+1) extract 8; readchar(zi,I(i));
        if I(i)=32 or I(i)=10 or I(i)=25 then
        begin
           if I((i-1)extract 8)=10 then
           begin il:= 0;
              write(zo,nl,ld);
           end else
           if il>lw then
           begin write(zo,nl,ld); il:= iw end
           else write(zo,sp,1);
           if iw>0 then
           for iw:= i-iw step 1 until i-1 do
           write(zo,false add I(iw extract 8),1);
           iw:= 0; il:= il+1;
        end
        else begin iw:= iw+1; il:= il+1; end;
     end;
     write(zo,em,1);
     close(zi,true); close(zo,true);
end
▶EOF◀