PROC Color%:(X%,Y%)
LOCAL Col%(1),Got%
gPEEKLINE 1,X%,Y%,Col%(),1
IF Col%(1) AND 2**0
Got%=1
ELSE
gPEEKLINE 1+$8000,X%,Y%,Col%(),1
IF Col%(1) AND 2**0
Got%=2
ELSE
Got%=0
ENDIF
ENDIF
RETURN Got%
ENDP