* В следующем примере программа просматривает три записи таблицы
* employee, а затем с помощью функции MEMLINES( ) определяет, есть ли
* данные в memo-поле notes и когда нужно переходить на новую страницу.
* Появляется содержимое поля last_name данной записи вместе с
* содержимым поля notes (если оно непустое) или с сообщением,
* извещающим, что для данной записи никаких примечаний из поля notes
* не будет.

CLOSE DATABASES

CLEAR

SET TALK OFF

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE employee && Open Employee table

SET MEMOWIDTH TO 65

gnLine = 1

GOTO 2

SCAN NEXT 3

gnMemoSize = MEMLINES(notes)

IF gnMemoSize = 0

STORE .T. TO glNoMemo

STORE 1 TO gnMemoSize

ELSE

STORE .F. TO glNoMemo

ENDIF

IF gnLine + gnMemoSize > 65

EJECT

gnLine = 1

ENDIF

@ gnLine,2 SAY 'Last Name: '+ last_name

gnLine = gnLine +1

@ gnLine ,2 SAY 'Notes: '

?? IIF(glNoMemo, 'No notes ',notes)

gnLine = gnLine + gnMemoSize + 2

IF gnLine > 24

gnLine = 1

CLEAR

ENDIF

ENDSCAN