10 REM !------------------------------!›11 REM !      TESTPTR BY SIZ 1991     !›12 REM !------------------------------!›13 REM ! This program demonstrates    !›14 REM ! some features of Multi-Mouse !›15 REM ! in a BASIC environment.      !›16 REM !------------------------------!›17 REM ›18 REM !------------------------------!›19 REM ! Set up a graphics 15 screen  !›20 REM ! with a text window.          !›21 REM !------------------------------!›22 GRAPHICS 15:COLOR 1›23 REM !------------------------------!›24 REM ! Read in the custom shape, a  !›25 REM ! crosshair.                   !›26 REM !------------------------------!›27 READ HEIGHT:DIM XHAIR$(HEIGHT*2+3)›28 XHAIR$(1)=CHR$(HEIGHT)›29 FOR LOOP=2 TO HEIGHT*2+3›30 READ IN:XHAIR$(LOOP)=CHR$(IN):NEXT LOOP›31 REM !------------------------------!›32 REM ! Open the mouse driver and    !›33 REM ! set the maximum limit to     !›34 REM ! (159,159) so that the mouse  !›35 REM ! cannot enter the text window.!›36 REM !------------------------------!›37 OPEN #1,12,0,"M:"›38 ? #1;"Most":X=159:POINT #1,X,X›39 REM !------------------------------!›40 REM ! Display the crosshair, wait  !›41 REM ! for a click and plot the     !›42 REM ! point at the shape.          !›43 REM !------------------------------!›44 ? #1;"Click":XIO 32,#1,12,0,XHAIR$›45 NOTE #1,X,Y:PLOT X,Y:PRINT X,Y›46 REM !------------------------------!›47 REM ! Display the standard pointer,!›48 REM ! wait for an unclick and draw !›49 REM ! a line to that point. This   !›50 REM ! enables the line to be       !›51 REM ! "dragged".                   !›52 REM !------------------------------!›53 ? #1;"Unclick":XIO 32,#1,12,0,CHR$(0)›54 NOTE #1,X,Y:DRAWTO X,Y:PRINT X,Y›55 GOTO 44›56 REM !------------------------------!›57 REM ! Data for the shape. The data !›58 REM ! is made up as follows:       !›59 REM ! Line 63: height,xoff,yoff    !›60 REM ! Line 64: "white" data        !›61 REM ! Line 65: "black" data        !›62 REM !------------------------------!›63 DATA 11,3,5›64 DATA 0,16,16,16,16,108,16,16,16,16,0›65 DATA 56,40,40,40,238,130,238,40,40,40,56›