home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
editor
/
me_cd.arc
/
COLOR.MUT
< prev
next >
Wrap
Text File
|
1988-02-26
|
892b
|
27 lines
; color.mut: play with screen colors on CGA or EGA
; C Durland
(int fg bg mfg mbg)
(defun
paint HIDDEN
{
(int tcolor mcolor)
(tcolor (+ (* bg 16) fg))(mcolor (+ (* mbg 16) mfg))
(text-color tcolor)(modeline-color mcolor)(update)
(msg "foreground color: " fg " background color: " bg
" total = " tcolor " "
"modeline: " mfg " " mbg " => " mcolor)
}
inc-color { (int x) (if (> (x (+ (arg 0) 1)) (arg 1)) (x 0)) (x) }
fgcolor { (fg (inc-color fg 15))(paint) }
bgcolor { (bg (inc-color bg 7))(paint) }
fgmcolor { (mfg (inc-color mfg 15))(paint) }
bgmcolor { (mbg (inc-color mbg 7))(paint) }
)
(bind-local-key "fgcolor" "F-3")
(bind-local-key "bgcolor" "F-4")
(bind-local-key "fgmcolor" "F-7")
(bind-local-key "bgmcolor" "F-8")
(fg 7)(mfg 7)
(msg
"f3 to change forground color, f4 to change background. f7 & f8 for modeline")