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