下面的示例从 employee 表中扫描 3 个记录，并使用 memlines( ) 确定 notes 备注字段中是否有数据，并确定何时分页。显示记录 last_name 字段中的数据，并显示 notes 字段(如果此备注字段有数据)或者显示消息指示该记录没有 notes。
close databases
clear
set talk off
close databases
open database (home( ) + 'samples\data\testdata')
use employee && 打开 employee 表
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