SUB parseNode(node AS XmlNode)
  DIM t, t1 AS Integer
  DIM x AS Integer
  DIM node1 AS XmlNode
  DIM node2 AS XmlNode
  DIM node3 AS XmlNode
  DIM buf AS String
  DIM bssid, encryption, essid, maxsignal, channel AS String
  DIM title, description, item_link AS String

  FOR t = 0 TO node.Children.Count - 1
    node1 = node.Children[t]
    IF node1.name = "wireless-network" THEN
      FOR x = 0 TO node1.Attributes.Count - 1
        PRINT node1.AttributeNode[x]
      NEXT
      FOR t1 = 0 TO node1.Children.Count - 1
        IF node1.Children[t1].name = "BSSID" THEN
         bssid = node1.Children[t1].Value
        END IF
        IF node1.Children[t1].name = "channel" THEN
         channel = node1.Children[t1].Value
        END IF
        IF node1.Children[t1].Name = "SSID" THEN
          node2 = node1.Children[t1]
          FOR x = 0 TO node2.Children.Count - 1
            IF node2.Children[x].name = "essid" THEN
              essid = node2.Children[x].Value
            ENDIF
            IF node2.Children[x].name = "encryption" THEN
              encryption = node2.Children[x].Value
            ENDIF
          NEXT
        END IF
        IF node1.Children[t1].Name = "snr-info" THEN
          node2 = node1.Children[t1]
          FOR x = 0 TO node2.Children.Count - 1
            IF node2.Children[x].name = "max_signal_dbm" THEN
              maxsignal = node2.Children[x].Value
            ENDIF
          NEXT
        END IF
      NEXT
      PRINT maxsignal & "," & bssid & "," & essid & "," & encryption & "," & channel
    ELSE
      IF node1.Children.Count > 0 THEN parseNode(node1)
    END IF
  NEXT
END