[impersonalis]

[blitz]
Const MSIZE=4

Type MASTER
Field ID%
Field CHILD.SLAVE[MSIZE]
End Type

Type SLAVE
Field ID%
End Type

;===
Local j=1
Local z=0
M.MASTER=New MASTER
M\ID=j

For i=1 To 15
M\CHILD[z]=New SLAVE
M\CHILD[z]\ID=i
If z=MSIZE
j=j+1
M.MASTER=New MASTER
M\ID=j
z=0
EndIf
z=z+1
Next
;===
For m.master=Each master
Print "master (ID="+m\ID+") :"
For i=1 To MSIZE
If m\CHILD[i]=Null Exit
Print " child (ID="+m\CHILD[i]\ID+")"
Next
Next
[/blitz]