Update graphics.bas

Finished Gradient subroutine