I hunted through the QB runtime library and found something called b$ForeColor. It looked promising, so I linked the following two programs:
;;;FORE.ASM;;; (NASM syntax)
GetForeColor: ;the shortest useful function I've ever written
MOV AX, [b$ForeColor]
DECLARE FUNCTION GetForeColor% ()
I suspect that if you make a LIB and QLB out of it it will work in the interpreter as well as compiled.
Note: only tested with QB7.1. I suspect it will work with QB4.5 but I don't think this is possible with QB1.1