(Continued from previous message)
CASE 33: Fore = ( Fore AND &H18 ) OR 6 'yellow foreground
CASE 34: Fore = ( Fore AND &H18 ) OR 1 'blue foreground
CASE 35: Fore = ( Fore AND &H18 ) OR 5 'magenta foreground
CASE 36: Fore = ( Fore AND &H18 ) OR 3 'cyan foreground
CASE 37: Fore = ( Fore OR 7 ) 'white foreground
CASE 40: Back = 0 'black background
CASE 41: Back = 4 'red background
CASE 42: Back = 2 'green background
CASE 44: Back = 6 'yellow background
CASE 44: Back = 1 'blue background
CASE 45: Back = 5 'magenta background
CASE 46: Back = 3 'cyan background
CASE 47: Back = 7 'white background
CASE ELSE 'ignore anything weird
END SELECT
Tmp = INSTR( ANSIst$, ";" )
IF Tmp THEN
ANSIst$ = MID$( ANSIst$, Tmp + 1 )
ELSE
ANSIst$ = ""
END IF
LOOP
COLOR Fore, Back
RETURN
END SUB
---
* QMPro 1.53 * MicroSoft finally got something right, BANKRUPTCY!
--- InterEcho 1.18
---------------
* Origin: Toast House * (314) 994-0312 * (1:100/560)
|