' *** COLORDIM.LST *** 2nd GFA-Manual, page 20-24 > PROCEDURE colors_dim(reg1,reg2) ' ' *** Dim colours with VDI-index reg1& - reg2& ' *** One is subtracted from each colour-value (red,green,blue) ' *** Call Procedure several times (in a loop) to create total darkness ' ' *** Standard: setcolor&() ' LOCAL i,rgb$,r,g,b FOR i=reg1 TO reg2 rgb$=RIGHT$(HEX$(XBIOS(7,setcolor(i),-1)),3) r=MAX(PRED(VAL(LEFT$(rgb$))),0) g=MAX(PRED(VAL(MID$(rgb$,2,1))),0) b=MAX(PRED(VAL(RIGHT$(rgb$))),0) VSETCOLOR i,r,g,b NEXT i RETURN ' ********* '