If EnterKey$="2317499356"
Походу зациклен. Нужно один раз проверять, например при нажатии "Сохранить"
WriteFile (filename$)
; Open a file to write to (открыть файл для записи)
; Open a file to write to
fileout = WriteFile("mydata.dat")
; Write the information to the file
WriteString( fileout, BestName )
WriteInt( fileout, BestScore )
WriteByte( fileout, BestLevel )
; Close the file
CloseFile( fileout )
; Open the file to Read
filein = ReadFile("mydata.dat")
С OpenFile (filename$) со строками чёт помудрёней будет