function TBE_loadTileset (file as string) as integer

    static as short i, fh
    static as string a

    i = -1
    fh = freefile

    open file for input as #fh
        if lof(fh) = 0 then TBE_loadTileset = false

        do until eof(fh)
            i += 1
            redim preserve tileset(i)
            line input #fh, a
            tileset(i) = imagecreate (TBE_TILESIZE, TBE_TILESIZE)
            bload a, tileset(i)
        loop
        numTiles = i
    close #fh

end function