You basically need to work out what order you are going to save everything in. Then just save it all to one file. Then when you need to load everything you know what order to load it in.
Something like
TYPE Character
CharName AS STRING
CharLevel AS INTEGER
CharHP AS INTEGER
ENDTYPE
DIM CharStat(4) AS Character
CharStat(1).CharName="Someone"
CharStat(1).CharLevel=1
CharStat(1).CharHP=1
`save
if file exist("save.dat") then delete file "save.dat"
open to write 1,"save.dat"
for i = 0 to 4
write string 1,CharStat(i).CharName
write long 1,CharStat(i).CharLevel
write long 1,CharStat(i).CharHP
next i
close file 1
`load
if file exist("save.dat")
open to read 1,"save.dat"
for i = 0 to 4
read string 1,CharStat(i).CharName
read long 1,CharStat(i).CharLevel
read long 1,CharStat(i).CharHP
next i
close file 1
endif
i won't see you in the pit