DataMuseum.dk

top - metrics - download

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

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »atestpager  « 

TextFile

mode list.yes

ppp=algol survey.yes rts.algftnrts
begin 
  integer       i, page, char, segm, pos;
  integer array zdescr (1:30);
  zone          z (128, 1, stderror);

  integer procedure head(z,text,page,seg);
  zone z; string text; integer page,seg;
  begin
    if seg mod 30=0 then
    begin
       write(z,<:<12><10><10>:>, text, "sp",40, <:page:>, page, "nl",3);
       page := page + 1;
    end;
    head := seg;
  end head;
 
<*lock (0, progsize);
*>
  pagersize := initpager(0,progsize,1,55);

  settable (0, progsize, 2, 2);

  open (z, 4, <:pip:>, 0);
  write (z, "a", 768);
  write (z, "b",  21);

  getzone6    (z, zdescr);
  write       (z, <: her er em ::>, "em", 1);
  setposition (z, 0, 0);
  setzone6    (z, zdescr);

  write (z, "b", 747);
  close (z, true);

  open (z, 4, <:pip:>, 0);
  inrec6 (z, 512);
  write (out, z);
  inrec6 (z, 512);
  write (out, z);
  close (z, true);

  outchar(out,'nl');
  printsurvey(out,0);
  i := 0;
  page := 1;
  printseginf(out, head(out,<:segment counters:>,page,i),i,progsize,0);
  
<*i:=0; page:=1;
  lineinf(out,head(out,<:lineinformation:>,page,i),i,progsize,0,5);
*>outchar(out,'nl');

  resetpager;
end

;ppp

end
finis
▶EOF◀