just an expanded example
dim myArray(5,5)
for indexA = 1 to 5
for indexB = 1 to 5
read myArray(indexA,indexB)
next indexB
next indexA
save array "mySave.arr",myArray(0)
undim myArray(5,5)
center text 320,240,"save complete... any key to continue"
wait key
load array "mySave.arr",myArray(0)
set cursor 0,0
for indexA = 1 to 5
for indexB = 1 to 5
print str$(myArray(indexA,indexB))+", ";
next indexB
next indexA
center text 320,240,"load complete... any key to continue"
wait key
undim myArray(5,5)
end
data 1,2,3,4,5
data 2,4,6,8,10
data 3,6,9,11,15
data 4,8,12,16,20
data 5,10,15,20,25
Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?