track Example10 CLEAR SCREEN
20 TRACK CRT IS ON
30 DIGITIZE X,Y,Stat$ !Move the mouse around the screen.
40 PRINT "x:";X,"y:";Y !It should be traced wherever it goes.
50 PRINT "Status: ";Stat$
60 PRINT "Track is ";Stat$[5,5]
70 IF Stat$[5,5]="1" THEN
80 PRINT "ON"
90 ELSE
100 PRINT "OFF"
110 END IF
120 END
|