Sorry, vielleicht hab ich nur ein Brett vorm Kopf und verstehe Dein Programm nicht. Helfen Dir zwei ineinander verschachtelte Scheifen. Nicht getestet:
Code:
'IDE: Bascom Demo Version 2.0.7.5
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 34
$crystal = 16000000

Dim A(10) As Byte
Dim B(10) As Byte
Dim i As Byte
Dim k As Byte

For k = 1 to 10
   B(k) = k
   For i = 1 To 10
     A(i) = i
   Next i
Next k

End
Hier wird B(1) auf 1 gesetzt. Danach werden wieder alle Elemente von A mit Zahlen von 1 bis 10 gefüllt
Dann wird B(2) auf 2 gesetzt. Danach werden die Elemente von A NEU mit den Zahlen von 1 bis 10 gefüllt
Dann (B3) .. usw.

Falls das nicht hilft: Warum nicht?



Gruß
Searcher