drwg
!drwgname = name
var !dlist coll all with OWN eq IDLI for ce
$!dlist[1]
!name1 = idname
$!name1
!name2 = fullname
$!drwgname
SHEE1
NEW NOTE
new texp
!texpp = name
btext '$!name2'
BY X 700 Y 500
do !i indices !dlist
$!dlist[$!i]
!name1 = idname
$!name1
!name2 = fullname
$!texpp
new texp copy pre
!texpp = name
btext '$!name2'
BY Y -10
enddo
$!texpp
delete texp
drwg