Sorry your browser is not supported!

1111111111111111
1111111111111111
1100111100011111
1000000000011111
1000000000001111
1000000000000111
0000000000000111
0000000000000111
0000000001111111
0000000011111111
0000000011111111
0000000011111111

dim mapB1(16,12)

open to read 2,"mapB1.txt"

if file open(2)=1
   for y=0 to 11
      for x = 0 to 15
         read byte 2,a
         mapB1(x,y) = a
      next x
   next y
endif

close file 2

dim mapB1(16,12)

open to read 2,"mapB1.txt"

if file open(2)=1
   for y=0 to 11
      for x = 0 to 15
         read byte 2,a
         string$=chr$(a)
         value=int(val(string$))
         mapB1(x,y) = value
      next x
   next y
endif

close file 2

set window on:set window size 640,480
Sync On: Sync Rate 0
rem read the file to the array
open to read 1,"mapB1.txt"
dim mapB1(12,16):`(x,y)
  for x = 1 to 12
     read string 1,s$
     for y = 1 to 16
      value = VAL(Mid$(s$,y))
        mapB1(x,y) = value
     next y
  next x
close file 1

rem read the data from the array and do something with it
Set Text Font "Courier"
set text size 20
for x=1 to 12
   for y=1 to 16
      posx=12*y: posy=16*x
        S$=str$ (mapB1(x,y))
     text posx,posy,s$
   next y
   Sync
next x

wait key

set window on:set window size 640,480
Sync On: Sync Rate 0
backdrop off
autocam off
open to read 1,"mapB1.txt"
dim mapB1(12,16)
  for x = 1 to 12
     read string 1,s$
     for y = 1 to 16
      value = VAL(Mid$(s$,y))
        mapB1(x,y) = value
     next y
  next x
close file 1

position camera 10,-5,-20
point camera 10,-5,0

on=1 : ` object number
for x=1 to 12
for y=1 to 16
      If mapB1(x,y) = 0
       blue(on)
      Else
       green(on)
      Endif
     position object on, y+3,-x+3,0
      inc on,1
   next y
   Sync
next x

do
loop

function green(on)
make object cube on,1
color object on, rgb (0,255,0)
endfunction

function blue(on)
make object cube on,1
color object on, rgb (103,220,228)
endfunction