Local LvlFile%, Num%, NFlag%, Char%, X%, Y%
LvlFile = OpenFile("*путь к файлу*")
; ...
While Not Eof(LvlFile)
Char = ReadByte(LvlFile)
Select True
Case Char >= 48 And Char <= 57 : Num = Num * 10 + (Char - 48) : NFlag = True
Case Char = 10 : X = 0 : Y = Y + 1
Default
If NFlag : LvlArray(X, Y) = Num : Num = 0 : NFlag = False : X = X + 1 : EndIf
End Select
Wend
; ...
CloseFile(LvlFile)