*command
   mempublic("PageNo")
   PageNo:=0
*end
*lpp 33
*head
*command
   PageNo:=PageNo+1
*end

                               Address file

*end
*foot

                               Page PageNo

*end
*command
   mempublic("oneline")
   oneline := ""
   mempublic("nline")
   nLine := 0
   dbgotop()
*end
*while .not. eof()
   *command
      oneline := alltrim(NAME) + " " +;
                 dtoc(BORN) + " " +;
                 alltrim(PHONE) + " " +;
                 alltrim(ADDRESS) + " " +;
                 alltrim(EXTRA)
   *end
   *if mlcount( oneline, 60 ) > setRptLines()
       *pa
   *end
   *command
      nLine := 1
   *end
   *while nLine <= mlcount( oneline, 60 )
         iif( nLine == 1, "-", " " ) memoline( oneline, 60, nLine )
      *command
         nLine := nLine +1
      *end
   *end
   *if setRptLines() > 0

   *end
   *dbskip
*end
