100 E$=CHR$(27):R=INT(Y/8):BY%=INT(Y-R*8):C=INT(X/6):BT%=(INT(X-C*6)):PRINT E$"P";:PRINT@(40*R+C),"";:B%=NOT(PEEK(64864+BY%)):CALL36768:PRINTE$"Q":T%=2^BT%:D%=B% AND T%:IFD%<>0 THEN P=-1:RETURN:ELSE P=0:RETURN