include "str_utils.bas"
include "file_utils.bas"
include "xml_utils.bas"
buf$ = GetFile$("Contacts.xml")

dim name$[500]
array.length length, name$[]
for I=1 to length
do
contact$ = XmlContent$(buf$, "contacts")
contacttag$ = XmlNextTag$(contact$)
name$[i] = inlinecontent$(contacttag$, "name")
contact$ = replace$(contact$, contacttag$, "")
contacttag$ = XmlNextTag$(contact$)
name$[I+1] = InlineContent$(contacttag$, "name")
until 1

print name$[1]
print name$[2]
print name$[3]