
Controls OpenTextBox
Gosub GetPlanes
Print CRLF
Gosub GetPlanesYear
Stop

Variable String XML
Variable String XML2

Label GetPlanes
	Load XML "Planes.xml"
	XML = FormatXML(XML)
	XML = DecodeXML(XML, "Planes")
	For v1 = 1 To 9e99
		XML2 = DecodeXML(XML, "plane", v1)
		If XML2 <> ""
			XML2 = Replace(XML2, " ", "")
			Print XML2
		Else
			Exit
		EndIf
	Next
Return

Label GetPlanesYear
	Load XML "Planes.xml"
	XML = DecodeXML(XML, "planes")
	For v1 = 1 To 9e99
		XML2 = DecodeXML(XML, "plane", v1)
		If XML2 <> ""
			XML2 = DecodeXML(XML2, "year")
			Print Trim(XML2) + CRLF
		Else
			Exit
		EndIf
	Next
Return


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