dim array(10) as mytype
...
dim i as integer
dim t as mytype
open "test.dat" for random as #1 len = len(t)
for i  = 0 to 9 
put #1,  array(i)
next

-------------------------------------------------------
Nobody is perfect,
but it?s worth a try