; Считывание и запись пользовательских типов в файлы, используя ReadFile, WriteFile и CloseFile

; Инициализация некоторых переменных для примера 
Type HighScore 
Field Name$ 
Field Score% 
Field Level% 
End Type 

Best.HighScore = New HighScore 
BestName = "Марк" 
BestScore = 11657 
BestLevel = 34 

; Открыть файл для записи 
fileout = WriteFile("mydata.dat") 

; Записать информацию в файл 
WriteString( fileout, BestName ) 
WriteInt( fileout, BestScore ) 
WriteByte( fileout, BestLevel ) 

; Закрыть файл 
CloseFile( fileout ) 

; Открыть файл для считывания
filein = ReadFile("mydata.dat") 

; Считать наилучший результат (score) из файла 
Greatest.HighScore = New HighScore 
GreatestName$ = ReadString$( filein ) 
GreatestScore = ReadInt( filein ) 
GreatestLevel = ReadByte( filein ) 

; Закрыть файл, как только считывание закончилось
CloseFile( filein ) 

Print "Рекорд (HighScore), считанный из файла mydata.dat " 
Print 
Write "Name = " 
Print GreatestName 
Write "Score = " 
Print GreatestScore 
Write "Level = " 
Print GreatestLevel 

WaitKey()