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

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

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