
Controls OpenTextBox
Gosub GetPlanes
Stop

Variable String XML
Variable String XML2
Variable String XML3
Variable String XML4

Label GetPlanes
	Load XML "PlantCatalog.xml"
	XML = DecodeXML(XML, "catalog")
	For v9 = 1 To 9e99
		XML2 = DecodeXML(XML, "plant", v9)
		If XML2 <> ""
			XML3 = DecodeXML(XML2, "common")
			XML4 = DecodeXML(XML2, "price")
			Print PadRight(XML3, 24) + XML4 + CRLF
		Else
			Exit
		EndIf
	Next
Return


'WATCH v1
'WATCH GetSeparatedString(SequenceCmd, 1)
'WATCH str1
