Baxslash beat me to it. Here's one of the ways I do this sort of thing.
data$="Harry,G Man,Kerry,ACE,Big Daddy,John,Andy,Ron,Lee,Harold,Jenny,Tim,Lisa,Moby,DJ,Pete,Martin,Jesse,Kaleb"
data2$="100000,75000,50000,45000,15000,14000,13000,12000,11000,10000,9000,8000,7000,6000,5000,4000,3000,2000,1000"
data3$="3,3,3,3,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1"
data4$="75,70,66,60,40,36,35,33,30,29,28,26,25,24,23,22,21,20,16"
for n=1 to len(data$)
letter$=mid(data$,n,1)
if letter$="," or n=len(data$)
highscore$[s,0]=word$
word$=""
letter$=""
s=s+1
endif
word$=word$+letter$
next n
This grabs the in code data and loads it into an array. You can save that back out as a text file to be read in later, rather than using the in code data. I do this for all my games, thus having a default highscore. Once There is a file made by AppGameKit it refers to that instead of the data.
opentowrite(1,"highscore.txt",0)
for n=1 to 30
for x=0 to 3
write$=highscore$[n,x]
Writestring (1, write$)
next x
next n
CloseFile(1)
That is the code I use to save the array data. It is then just a matter of changing open to write to the read command to load it back in. I have not included all the code that sorts each part of the array, just the names part. The other data at the start, and the reason for the for x loop in the last part are for score etc.