JoséQuintas, obrigado pela resposta ... eu não sei como utilizar as funções que mencionastes, procurei um exemplo na Internet, sem êxito. Mas a dica de limpar a tela e fazer uma pausa antes de pular a página, deu certo. O código ficou assim, então:
use usuarios exclusive
OrdSetFocus("indnome")
GOTO TOP
LINHA=0
PAGINA=0
TOT_USU=0
@ 00,00 CLEAR TO 23,79
DO WHILE .NOT. EOF()
IF LINHA = 0 .OR. LINHA > 23
WAIT "Pressione qualquer tecla para continuar ..."
PAGINA = PAGINA + 1
IF PAGINA > 1
@ 00,00 CLEAR TO 23,79
ENDIF
CLEAR
@ 01,01 SAY "DESPESAS DO LAR"
@ 01,67 SAY "PAG"
@ 01,73 SAY PAGINA PICT "##"
@ 03,29 SAY "LISTAGEM DE USUARIOS"
@ 03,67 SAY DATE()
@ 05,01 SAY REPLICATE("_",76)
@ 06,01 SAY "CODIGO"
@ 06,09 SAY "NOME"
@ 06,41 SAY "DT NASC"
@ 06,52 SAY "TELEFONE"
@ 07,01 SAY REPLICATE("_",76)
LINHA = 8
ENDIF
LINHA = LINHA + 1
@ LINHA, 03 SAY LTRIM(STR(COD))
@ LINHA, 09 SAY RTRIM(NOME)
@ LINHA, 41 SAY NASC
@ LINHA, 52 SAY FONE
SKIP
ENDDO
LINHA = LINHA + 1
TOT_USU = RECNO()-1
@ LINHA,01 SAY "TOTAL DE USUARIOS:"
@ LINHA,20 SAY TOT_USU
WAIT "Termino da listagem ... tecle <ENTER> ... "
CLOSE ALL
RETURN