dim lee(10,10)
rem Clear screen
cls
rem Open file for reading
open to read 1,"level1.txt"
rem Read matrix of strings
for x=1 to 10
for y=1 to 10
read string 1,a$
lee(x,y)=val(a$)
next y
next x
rem Close file
close file 1
rem Display matrix of strings
for x=0 to 10
for y=0 to 10
cur = lee(x,y)
print cur
paste image 1,x+x*15,y+y*15
next y
next x
I would normally be doing something with the paste image, but im just seeing what it prints out for now

.
~Morph
Owner of
MultiCode.NET and
Multi2k.NET.
Nothing is something, and something is then nothing. Life is an illusion.