Graphics 800,600,32,2

Type down
   Field x
   Field y.upper
End Type

Type upper
   Field z
End Type

;erstelle Liste mit zwei Elementen
toll.down = New down
toll\x = 1
toll.down = New down
toll\x = 2

;springe zum ersten Element down
toll.down       =First down

;und hänge dort Liste mit 5 weiteren Elementen upper an
For i=10 To 15
   toll\y    =New upper
   toll\y\z    =i
Next

;springe zum ersten Element down
toll.down       =First down
toll\y.Upper    =First upper   ;springe zum ersten Element upper in angehängter Liste

While toll\y<>Null
   Print Str$(toll)
   toll\y = After toll\y
Wend

;springe zum zweiten Element upper, an das keine Liste upper gehängt wurde!
toll = After toll
toll\y.Upper    =First upper   ;sollte eigentlich NULL sein?

;zweites Element down enthält aber auch 5 Elemente upper
While toll\y<>Null
   Print Str$(toll)
   toll\y = After toll\y
Wend

WaitKey()

Type TListItem
   Field Prev.TListItem
   
   ;eigentliche Type - Daten
   Field DummyData$
   
   Field Succ.TListItem
End Type

Local List.TListItem = New TListItem
   List\DummyData = "Listenkopf"

For I = 0 To 5
   Local ListItem.TListItem = New TListItem
      ListItem\DummyData = "Listeneintrag no. " + I
   
   List_AddLast( List, ListItem )
Next


Local ListIterator.TListItem = List ;For-Each-Schleife
While List_GetNext( ListIterator ) <> Null
   Print ListIterator\DummyData
   
   ListIterator = List_GetNext( ListIterator )
Wend

WaitKey()
End



Function List_AddLast( List.TListItem, ListItem.TListItem )
   Local LastItem.TListItem = List_GetLast( List )
   
   LastItem\Succ = ListItem
End Function

Function List_GetLast.TListItem( List.TListItem )
   While True
      If List\Succ = Null Then Return List
      
      List = List_GetNext( List )
   Wend
End Function

Function List_GetNext.TListItem( List.TListItem )
   Return List\Succ
End Function

Type parent
 field entry.child[32]
end Type

Type child
 field katze
 field staubsauger
end Type

p.parent=new parent
 p\entry[0]=new child
  p\entry[0]\katze=42

Type parent
 field entry.child[32]
 field cCount
end Type

Type child
 field a
end Type

function addChildToParent(p.parent,c.child)
 if p\cCount>32
  return
 endif
 p\entry[p\cCount]=c
 p\cCount=p\cCount+1
end function

function addNewChildToParent(p.parent)
 if p\cCount>32
  return
 endif
 p\entry[p\cCount]=new child
 p\cCount=p\cCount+1
end function