I looked around and haven't found a request like this yet. Maybe I'm looking for it in the wrong way. Just in case, here is what I have in mind:
Code: Select all
Global NewList abc(3)
Procedure AddXtoList(group, x)
AddElement(abc(group))
abc(group) = x
EndProcedure
For i = 1 To 10
AddXToList(Random(3), i)
Next i
OpenConsole()
For i = 1 To 3
ForEach(abc(i))
PrintN(Str(abc())
Next
Next i
r$ = Input()
CloseConsole()
End
Maybe it will be useful to others. I know it would be to me in the situation I have now although I'll be finished before this is even considered. Still, in the future it might be useful to others.
Randy