for r : 0 .. 256
    for g : 0 .. 256
        for b : 0 .. 256
            var newColorId := RGB.AddColor (r / 256, g / 256, b / 256)
            put newColorId, " ", maxcolor
        end for
    end for
end for

var colorId := 0
RGB.SetColor (colorId, 1, 1, 1)
Draw.FillBox (0, 0, maxx div 2, maxy, colorId)
RGB.SetColor (colorId, 0, 0, 0)
Draw.FillBox (maxx div 2, 0, maxx, maxy, colorId)

View.Set ("graphics:256;256")
var tiles : array 0 .. 14, 0 .. 14 of int
var grass :int := Pic.FileNew ("pics/grass.bmp")
var FileName : string := "map.txt"
var FileNo : int

open : FileNo, FileName, get
for y : 0 .. 14 % for every y
    for x : 0 .. 14 %for every x
        get : FileNo, tiles (x, y) %get the tile type at (x,y)
    end for
end for
close (FileNo)

for x : 0 .. 14
    for y : 0 .. 14
        if tiles (x, y) = 1 then
            Draw.FillBox (x * 16, y * 16, x * 16 + 16, y * 16 + 16, red) % the +10 is there because each tile is 10 by 10
        else
            Draw.FillBox (x * 16, y * 16, x * 16 + 16, y * 16 + 16, green)
        end if
        locate (5, 1) 
        delay (10)
        %that just shows you what's going on if you still aren't sure
    end for
end for

var key : array char of boolean
var px, py : int := 1 % we start off at grid 1,1.
%Note we don't begin at 2,2 because we set the first grid
%to 0,0 so everything is off by 1

loop
   
    Input.KeyDown (key)
    if key ('a') then
        px -= 1
    end if
    if key ('d') then
        px += 1
    end if
    if key ('s') then
        py -= 1
    end if
    if key ('w') then
        py += 1
    end if

    Draw.FillBox (px * 16, py * 16, px * 16 + 16, py * 16 + 16, grass)
    View.Update
    delay (50)
end loop