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