Das ist das was Du suchst, Simples beispiel.
Ladet euine Textdatei die wie Deine oben aufgebaut ist.
// --------------------------------- //
// Project: TextMap
// Start: Wednesday, December 10, 2008
// IDE Version: 5.360
GLOBAL lev$
lev$ = FILEREQUEST$(TRUE, "TXT|*.txt|All|*.*")
DIM dat[256][256]
txt_loader(lev$)
// Map zeichnen
WHILE TRUE
FOR x= 0 TO 255
FOR y = 0 TO 255
IF dat[x][y] = 1 THEN DRAWRECT x * 16,y*16,16,16,RGB(0xfc, 0x83, 0xb6)
IF dat[x][y] = 2 THEN DRAWRECT x * 16,y*16,16,16,RGB(0x00, 0xff, 0x80)
NEXT
NEXT
SHOWSCREEN
WEND
END
FUNCTION txt_loader : l_in$
LOCAL l_x,l_y,l_temp,l_count
LOCAL l_str$,l_a$
OPENFILE(0,l_in$,TRUE)
WHILE ENDOFFILE(0) = 0
READLINE 0,l_str$
l_temp = LEN(l_str$)
FOR l_i = 0 TO l_temp
IF MID$(l_str$,l_i,1) = "1" THEN dat[l_i][l_count] = 1
IF MID$(l_str$,l_i,1) = "2" THEN dat[l_i][l_count] = 2
NEXT
INC l_count,1
IF l_temp >= l_x THEN l_x = l_temp
WEND
CLOSEFILE 0
ENDFUNCTION