:print x y "TEXT" function

:print x y
    setlocal
        set "str=X%~3" & set "length=0"
        for /L %%a in (8,-1,0) do (
            set /a "length|=1<<%%a"
            for %%b in (!length!) do if "!str:~%%b,1!" equ "" set /a "length&=~1<<%%a"
        )
        set /a "_y=%~2", "_x=%~1", "_x2=_x + length"
        (endlocal
            set "_[%_y%]=!_[%_y%]:~0,%_x%!%~3!_[%_y%]:~%_x2%!"
        )
goto :eof