AT&T 6300 Programmer's Manual page 407

Examples
POINT
Function
v2+POINT (n)
returns the specified coordinate of the current
point into the single (or double) precision
variable v2.
10 SCREEN 0,0
20 FOR K=O TO 3
30 PSET (10,10],K
40 IF POINT(10,10)< >K
THEN PRINT uBroken Basic!'
50 NEXT
10 SCREEN 2
20 IF POINT(I,I)< >0
THEN PRESET (1,1] ELSE PSET (1,1)
30 (Invert current state of point[I,I)
40 PSET (1,1],1-POINT(I,I)
50 (Another way to invert a point, if the
55 'system is B/W
10 SCREEN 1
20 LET C=3
30 PSET (10,10),C
40 IF POINT[10,10)=C
THEN PRINT ((This point is color u;C
7-251