aUCBLogo Demos and Tests / lpt1test4

;In aUCBLogo you can print only complete procedures to one page
;like this (after uncommenting the file funcitons
;and replacing "FormFeed with char 12):

to lpt1test4
;   openAppend "LPT1
;   setwriter "LPT1
   FormFeed="FormFeed ;char 12
   linesPerPage=12
   lines=0
   foreach procedures
   [   newLines=countLines ?
      lines=lines+1+newLines
      if lines > linesPerPage
      [   pr FormFeed
         pr lines
         lines=mod newLines linesPerPage
      ]
      po ?
   ]
;   setwriter []
;   close "LPT1
end

to countLines proc
   local [lines ftw]
   lines=3
   ftw=(word fulltext proc)
   foreach ftw
   [   if ? == char 10
      [   lines=lines+1
      ]
   ]
   output lines
end

to t
   pr 1
end

to t2
   pr 2
end

to t3
   pr 3
end