_pageno example

This example prints 100 lines of output and prints a heading on line 1 of each page:

set talk off
set printer on
_pageno=1
for i=1 TO 100
  if _plineno=1 // At first line of page
     ? "Top of Page ",_pageno
  endif
  ? "Line",i
endfor
set printer to
close printer
set talk on