' *** SCRN_DIM.LST *** 2nd GFA-Manual, page 20-29 > PROCEDURE screen_dimmer(color,flag!) ' ' *** Dim entire screen (using color&) if flag!=TRUE ' *** If flag!=FALSE the original screen is restored and garbage is collected ' ' *** Standard: x.max& y.max& ' *** Global : dimmer.screen$ ' IF flag! SGET dimmer.screen$ GRAPHMODE 4 DEFFILL color,2,4 PBOX 0,0,x.max,y.max ELSE SPUT dimmer.screen$ CLR dimmer.screen$ ~FRE(0) ! force garbage-collection GRAPHMODE 1 DEFFILL 1,1 ENDIF RETURN ' ********* '