(FILECREATED "22-Jul-87 15:52:13" ("compiled on " {ERINYES}KOTO>XORCURSORPATCH.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 12-Jun-87 ..." dated "12-Jun-87 10:12:34") (FILECREATED " 7-Oct-86 18:56:37" {XDE:MCS:STANFORD}KOTO>XORCURSORPATCH.;7 changes to: (FNS DOVE.XOR.CURSOR) (VARS XORCURSORPATCHCOMS) (ADVICE \DoveDisplay.SetVideoColor-IN-VIDEOCOLOR \RESETTERMINAL) previous date: " 7-Oct-86 14:12:03" {XDE:MCS:STANFORD}KOTO>XORCURSORPATCH.;1) DOVE.XOR.CURSOR D1 (I 0 FLG) 2g№Д`k В@Е ` i3Еl Ађ@ГьkАщ(32Q \DoveDisplay.SetCursorMix 17Q EQP 2 MACHINETYPE) (56Q \DoveDisplay.VideoColor 45Q \DoveDisplay.VideoColor 27Q \DoveDisplay.VideoColor 13Q \DoveDisplay.VideoColor 5 DOVE) () (PRETTYCOMPRINT XORCURSORPATCHCOMS) (RPAQQ XORCURSORPATCHCOMS ((FNS DOVE.XOR.CURSOR) (INITVARS (\DoveDisplay.VideoColor 1)) (GLOBALVARS \DoveDisplay.VideoColor) (ADVISE (\DoveDisplay.SetVideoColor IN VIDEOCOLOR)))) (RPAQ? \DoveDisplay.VideoColor 1) (PUTPROPS \DoveDisplay.SetVideoColor-IN-VIDEOCOLOR READVICE ((VIDEOCOLOR . \DoveDisplay.SetVideoColor) (AFTER NIL (SELECTQ (MACHINETYPE) (DOVE (if (NOT INVERSE?) then (\DoveDisplay.SetCursorMix \DoveDisplay.VideoColor))) NIL)))) (READVISE \DoveDisplay.SetVideoColor-IN-VIDEOCOLOR) NIL