DIGITIZE Example10 !Click the mouse button and it will show you where you are on the screen.
20 CLEAR SCREEN
30 WHILE I<>45
40 DIGITIZE X,Y,Stat$
50 PRINT "Loop";I;"x:";X,"y:";Y
60 PRINT "Status: ";Stat$;" - length: ";LEN(Stat$)
70 I=I+1
80 END WHILE
90 END
|