Sub Calc()

    Dim Element_o As Planet_t Ptr
    Dim Element_i As Planet_t Ptr

    Element_o = PlanetStart
    While (Element_o <> 0)

        Element_i = Element_o->nachPlanet
        While (Element_i <> 0)




            Element_i = Element_i.nachPlanet
        Wend



        Element_o = Element_o.nachPlanet
    Wend

End Sub