aUCBLogo Demos and Tests / lpt1test3

to lpt1test3
;   openAppend "LPT1
;   setwrite "LPT1
   make "FormFeed "FormFeed ;char 12
   make "linesPerPage 10
   make "lines 0
   foreach procedures ~
   [   make "newLines countLines ?
      make "lines :lines+1+:newLines
      if :lines > :linesPerPage ~
      [   pr :FormFeed
         make "lines mod :newLines :linesPerPage
      ]
      pr lines
      po ?
   ]
;   setwrite []
;   close "LPT1
end

to countLines :proc
   local [lines]
   make "lines 3
   make "t (word fulltext :proc)
   foreach :t ~
   [   if equalp ? char 10 ~
      [   make "lines :lines+1
      ]
   ]
   output :lines
end

to t
   pr 1
end

to t2
   pr 2
end

to t3
   pr 3
end