 1 call LtsNotes 'NOTESINIT', 'QUIET'
 2 call LtsNotes 'DatabaseOpen','E:\NOTES\PCMAG.NSF','db_ID'
 3 call LtsNotes 'DatabaseSearch', db_ID, 'writer', 'Select FORM = "Writer Info"'
 4 do ThisDoc = 1 to writer.0
 5   call LtsNotes 'DocRead', db_ID, writer.ThisDoc, 'docinfo'
 6   do Field = 0 to docinfo.2.0
 7     if docinfo.2.Field.1 = 'WriterName' then Person = docinfo.2.Field.3
 8     if docinfo.2.Field.1 = 'Phone' then Leave
 9     end
10   call VRMethod 'LB_1', 'AddString', Person '-' docinfo.2.Field.3
11   end
12 call LtsNotes 'databaseclose',db_ID
13 call LtsNotes 'notesterm'
