where Example
10 CLEAR SCREEN
20 DIM Stat$[3],Msg$[40]
30 PRINT "*** TEST ****"
40 PRINT "Returning the logical pen position."
50 WHERE X,Y,Stat$
60 PRINT "X = ";X
70 PRINT "Y = ";Y
80 IF Stat$[1,1]="1" THEN
90 PRINT "Pen is down"
100 ELSE
110 PRINT "Pen is up"
120 END IF
130 PRINT "Comma delimitor character: ";Stat$[2,2]
140 SELECT Stat$[3,3]
150 CASE "0"
160 Msg$="outside the limits"
170 CASE "1"
180 Msg$="inside the limits, but outside the viewport"
190 CASE "2"
200 Msg$="inside limits and viewport"
210 CASE ELSE
220 Msg$="junk"
230 END SELECT
240 PRINT "Clip indicator - the point is "&Msg$
250 END
