Click above to get retro games delivered to your door ever month!

 LINES(<expC>, <N line length>)
 Evaluates the number of lines in output at a specified line length.
 Returns <expN> number of lines to display <expC> within <line length>.

 Returns zero if <expC> is null, or if <line length> is <= zero
 or too small to handle an unbroken word in <expC>.

 * Branching decision to different routines
 memvar = FILEREAD( "Textfile.txt" )
 m_lines = LINES( memvar, 65 )
 IF m_lines < 60
    <output routine for one page>
 ELSE
    <output routine with page breaks>
 ENDIF

 * Evaluate number of pages in output
 page_len = 60   && lines per page
 no_pages = CEILING(LINES(memvar,65) / page_len)


             Placed in the Public Domain by Tom Rettig Assoc.