Дык, сохраняй в файл. И считывай потом. Хелп тебе в помощь. Вот простой пример из хелпа, по работе с файлами:
; Правка фрагмента файла, используя OpenFile, SeekFile и WriteInt
; Открыть/создать файл для записи
fileout = WriteFile("mydata.dat")
; Записать информацию в файл
WriteInt( fileout, 1 )
WriteInt( fileout, 2 )
WriteInt( fileout, 3 )
WriteInt( fileout, 4 )
WriteInt( fileout, 5 )
; Закрыть файл
CloseFile( fileout )
DisplayFile( "Файл без изменений", ”mydata.dat" )
; Открыть файл и изменить третье integer-число
file = OpenFile("mydata.dat")
SeekFile( file, 8 ); Переместиться к третьему integer-числу в файле
WriteInt( file, 9999 ); Заменить его значение на 9999
CloseFile( file )
DisplayFile( "Файл после правки", "mydata.dat" )
WaitKey()
; **** Определения функций ****
; Прочитать файл и вывести содержимое на экран
Function DisplayFile( Tittle$, Filename$ )
Print tittle$
filein = ReadFile( Filename$ )
While Not Eof( filein )
Number = ReadInt( filein )
Print Number
Wend
CloseFile( filein )
Print
End Function