Вот, тоже самое, только в квадратных скобочках
по идеи, по правилами переведения типов, не должно там быть этих скобочек, так что эту мутню\удобство придумали специально !!
Type one
Field x
End Type
Type two
Field y
End Type
For i =1 To 5
one.one=New one
one\x=i
Next
For i=5 To 10
two.two=New two
two\y=i
Next
For one.one=Each one
Print Str (one)
Next
For one.one=Each one
Print Handle (one)
Next
WaitKey()