mapfile = ReadFile("Level\Level_1.lvl")
For YY=1 To 8
CurLi$ = ReadLine$(mapfile)
CurrentLine$=LSet$(CurLi$,
;Ten=
For XX=1 To 8
CurrentSymbol$=Mid$(CurrentLine$,XX,1)
Select CurrentSymbol$
Case "1"
Map(XX,YY)=1
Case "2"
Map(XX,YY)=2
Case "3"
Map(XX,YY)=3
Case "4"
Map(XX,YY)=4
Case "5"
Map(XX,YY)=5
Case "6"
Map(XX,YY)=6
Case "7"
Map(XX,YY)=7
Case "8"
Map(XX,YY)=8
Case "9"
Map(XX,YY)=9
End Select
Next
Next
Вот я взял этот код из этой ссилки
http://forum.boolean.name/showthread...663#post107663
Чувствую что сдесь решит проблему одна или две строски