Load and display an XML document

`` This short program tests the sax parser
`` and display names of F1 drivers from xml file

xml dom
/xml

text fname = "demos\f1-drivers.xml"
print "loading", fname, "..."
if not dom.load(fname)
  print fname, "file not found"
exit()
/if

print dom.document.driver.at()
while dom.isFound()
  dom.down() // set current to name
  text driver = dom.getData()
  print driver.trim()
  dom.up()
let dom.inc()