Update graphics.bas

Made a RGB2EGA subroutine which converts a 18bit RGB array to a pattern dithered EGA array.