SUBROUTINE SETWHT C C****** SUBROUTINE SETWHT SETS THE SCREEN BACKGROUND TO ****** C WHITE AND THE FOREGROUND AND TEXT TO BLACK C USE IFQWIN INTEGER*4 WHITE, BLACK WHITE = SETBKCOLORRGB(#FFFFFF) BLACK = SETCOLORRGB(#000000) BLACK = SETTEXTCOLORRGB(#000000) RETURN END