Type x Field f1:Int Field f2:Float Field name:String End Type Local myarray:x[] myarray = myarray[..100] For c = 0 To 3 myarray[c] = New x RestoreData mydata ReadData myarray[c].name,myarray[c].f1,myarray[c].f2 Next Print myarray[2].name #mydata DefData "John",100,29.4 DefData "Larry",4444, 12345.45 DefData "Fred",3,3.19