private bool PicsIdentical(Bitmap bmp1, Bitmap bmp2)
        {
            bool retVal = true;

            if (bmp1.Size != bmp2.Size)
                retVal = false;
            else
            {
                for (int x = 0; x < bmp1.Width; x++)
                {
                    for (int y = 0; y < bmp1.Height; y++)
                    {
                        if (bmp1.GetPixel(x, y) != bmp2.GetPixel(x, y))
                        {
                            retVal = false;
                            break;
                        }
                    }
                }
            }
            return retVal;
        }

between?: func [
    value bound-1 bound-2
    /exclusive
    /local low-bound high-bound
][
    set [low-bound high-bound] sort reduce [bound-1 bound-2]
    either exclusive [
        all [(value > low-bound) (value < high-bound)]
    ][
        ;-- Inclusive comparison
        all [(value >= low-bound) (value <= high-bound)]
    ]
]

    compare: func [a b /binary] [
        a: checksum either binary [read/binary a] [read a]
        b: checksum either binary [read/binary b] [read b]
        equal? a b
    ]