' *** PRNTCLRS.LST *** 2nd GFA-Manual, page 9-9 > PROCEDURE print_colors(ink$,paper$,VAR old.ink$,old.paper$) ' ' *** Change PRINT-colours for letters and background for entire TOS-screen ' *** Use RGB-strings for the colours (e.g. "777" for white) ' *** Returns current colours in old.ink$ and old.paper$ ' ' *** Standard: setcolor&() ' old.ink$=RIGHT$(HEX$(XBIOS(7,setcolor(1),-1)),3) old.paper$=RIGHT$(HEX$(XBIOS(7,setcolor(0),-1)),3) VSETCOLOR 1,VAL(LEFT$(ink$)),VAL(MID$(ink$,2,1)),VAL(RIGHT$(ink$)) VSETCOLOR 0,VAL(LEFT$(paper$)),VAL(MID$(paper$,2,1)),VAL(RIGHT$(paper$)) RETURN ' ********* '