1 'Is a T200 LCD pixel ON or OFF?
2 'POINT.200 subrout - RHPigford 6/8/03
3 CLS:PRINTCHR$(27)+"V":LINE (0,0)-(119,7),1,BF:LINE (125,0)-(239,0),1
4 INPUT"What x value (0-239)";X:PRINT@68,"X = "X
5 INPUT"What y value (0-127)";Y:PRINT@108,"Y = "Y
6 GOSUB 100
7 PRINT@120,"P = "P;:IFP=-1THENPRINT" TRUE" ELSE PRINT" FALSE"
8 STOP
100 'POINT.200  to test pixels on/off
110 'Uses cursor flash (on-off) to
120 'load himem w/ 8 bytes duplicate of
130 'the LCD bytes (only 6 bits tall)
140 'Input = x (0-239) and y (0-127)
150 'of LCD pixel to be tested for on
160 'Output P = True (-1) = it's ON or 
170 'P = False (0) = it'a OFF
250 E$=CHR$(27)
260 'pick which of the 8 HIMEM flashed
270 'bytes to use: BY= 0 to 7
280 R=INT(Y/8):BY%=INT(Y-R*8)
290 'pick which bit in that byte (0-5)
300 C=INT(X/6):BT%=(INT(X-C*6))
310 'flash the cursor at the target
320 PRINT E$"P"; 'cursor on
330 'flash at row and col numbers
340 PRINT@(40*R+C),""; 'curs locn
350 'get the right byte from himem
360 B%=NOT(PEEK(64864+BY%))
370 'disable cursor flash
380 CALL36768
390 'curs on, re-enable flash
400 PRINTE$"Q"
410 'test the target bit
420 T%=2^BT%:D%=B% AND T%
430 IFD%<>0 THEN P=-1:RETURN:ELSE P=0:RETURN