home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 2.ddi / MOUSSUBS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-02-07  |  44.0 KB  |  1,147 lines
  1.   ' ************************************************
  2.   ' **  Name:          MOUSSUBS                   **
  3.   ' **  Type:          Toolbox                    **
  4.   ' **  Module:        MOUSSUBS.BAS               **
  5.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  6.   ' ************************************************
  7.   '
  8.   ' Collection of subprograms for using the Microsoft Mouse.
  9.   '
  10.   ' Note:         The assembly-language subroutine named MOUSE.ASM
  11.   '               must be assembled and linked with these routines
  12.   '               or included in the user library loaded with
  13.   '               QuickBASIC.
  14.   ' USAGE:        No command line parameters
  15.   ' REQUIREMENTS: CGA
  16.   '               MIXED.QLB/.LIB
  17.   '               Mouse
  18.   '.MAK FILE:     MOUSSUBS.BAS
  19.   '               BITS.BAS
  20.   ' PARAMETERS:   (none)
  21.   ' VARIABLES:    i%            Looping index
  22.   '               mask$         Pattern mask for each graphics mouse cursor
  23.   '               xHot%         X hot spot location
  24.   '               yHot%         Y hot spot location
  25.   '               curs$         Binary bit pattern for defining mouse cursor
  26.   '               j%            Test for left mouse button press and release
  27.   '               leftButton%   State of left mouse button
  28.   '               rightButton%  State of right mouse button
  29.   '               xMouse%       X location of mouse
  30.   '               yMouse%       Y location of mouse
  31.   '               mflag%        Indicates mouse is available
  32.   '               horizontal%   Horizontal mouse mickies
  33.   '               vertical%     Vertical mouse mickies
  34.   '               xpLeft%       X location of last left button press
  35.   '               ypLeft%       Y location of last left button press
  36.   '               xrLeft%       X location of last left button release
  37.   '               yrLeft%       Y location of last left button release
  38.   '               xpRight%      X location of last right button press
  39.   '               ypRight%      Y location of last right button press
  40.   '               xrRight%      X location of last right button release
  41.   '               yrRight%      Y location of last right button release
  42.   '               t0            Timer value
  43.  
  44.   ' Functions
  45.     DECLARE FUNCTION BinStr2Bin% (b$)
  46.   
  47.   ' Subprograms
  48.     DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  49.     DECLARE SUB MouseRange (x1%, y1%, x2%, y2%)
  50.     DECLARE SUB MousePut (xMouse%, yMouse%)
  51.     DECLARE SUB MouseHide ()
  52.     DECLARE SUB MouseInches (horizontal%, vertical%)
  53.     DECLARE SUB MouseInstall (mflag%)
  54.     DECLARE SUB MouseMickey (horizontal%, vertical%)
  55.     DECLARE SUB MousePressLeft (leftCount%, xMouse%, yMouse%)
  56.     DECLARE SUB MousePressRight (rightCount%, xMouse%, yMouse%)
  57.     DECLARE SUB MouseReleaseLeft (leftCount%, xMouse%, yMouse%)
  58.     DECLARE SUB MouseReleaseRight (rightCount%, xMouse%, yMouse%)
  59.     DECLARE SUB MouseWarp (threshold%)
  60.     DECLARE SUB Cursdflt (mask$, xHot%, yHot%)
  61.     DECLARE SUB Curschek (mask$, xHot%, yHot%)
  62.     DECLARE SUB Curshand (mask$, xHot%, yHot%)
  63.     DECLARE SUB Curshour (mask$, xHot%, yHot%)
  64.     DECLARE SUB Cursjet (mask$, xHot%, yHot%)
  65.     DECLARE SUB Cursleft (mask$, xHot%, yHot%)
  66.     DECLARE SUB Cursplus (mask$, xHot%, yHot%)
  67.     DECLARE SUB Cursup (mask$, xHot%, yHot%)
  68.     DECLARE SUB Cursx (mask$, xHot%, yHot%)
  69.     DECLARE SUB MouseMaskTranslate (mask$, xHot%, yHot%, cursor$)
  70.     DECLARE SUB MouseNow (leftButton%, rightButton%, xMouse%, yMouse%)
  71.     DECLARE SUB MouseSetGcursor (cursor$)
  72.     DECLARE SUB MouseShow ()
  73.   
  74.   ' Check for mouse
  75.     SCREEN 2
  76.     CLS
  77.     MouseInstall mflag%
  78.     PRINT "MouseInstall ... "; mflag%
  79.   
  80.   ' Demonstrate the available graphics-mode cursors
  81.     PRINT
  82.     PRINT "Click left mouse button to see the graphics-mode cursors..."
  83.     MouseShow
  84.   
  85.     FOR i% = 1 TO 9
  86.         SELECT CASE i%
  87.         CASE 1
  88.             Curschek mask$, xHot%, yHot%
  89.         CASE 2
  90.             Curshand mask$, xHot%, yHot%
  91.         CASE 3
  92.             Curshour mask$, xHot%, yHot%
  93.         CASE 4
  94.             Cursjet mask$, xHot%, yHot%
  95.         CASE 5
  96.             Cursleft mask$, xHot%, yHot%
  97.         CASE 6
  98.             Cursplus mask$, xHot%, yHot%
  99.         CASE 7
  100.             Cursup mask$, xHot%, yHot%
  101.         CASE 8
  102.             Cursx mask$, xHot%, yHot%
  103.         CASE ELSE
  104.             Cursdflt mask$, xHot%, yHot%
  105.         END SELECT
  106.         MouseMaskTranslate mask$, xHot%, yHot%, curs$
  107.         FOR j% = -1 TO 0
  108.             DO
  109.                 MouseNow leftButton%, rightButton%, xMouse%, yMouse%
  110.             LOOP UNTIL leftButton% = j%
  111.         NEXT j%
  112.         MouseSetGcursor curs$
  113.     NEXT i%
  114.   
  115.   ' Mouse hide and show
  116.     PRINT "MouseHide ... (Press any key to continue)"
  117.     MouseHide
  118.     DO
  119.     LOOP UNTIL INKEY$ <> ""
  120.     PRINT "MouseShow ... (Press any key to continue)"
  121.     MouseShow
  122.     DO
  123.     LOOP UNTIL INKEY$ <> ""
  124.   
  125.   ' Mouse inches per screen
  126.     MouseHide
  127.     PRINT
  128.     PRINT "Setting MouseWarp to 9999 to prevent doubling of speed."
  129.     MouseWarp 9999
  130.     PRINT
  131.     PRINT "Setting MouseInches to 8 by 11. (8 inches of mouse motion"
  132.     PRINT "across desk to move across screen, and 11 inches vertical"
  133.     PRINT "mouse motion from top to bottom of screen) ..."
  134.     PRINT
  135.     PRINT "Press any key to continue"
  136.     MouseInches 8, 11
  137.     MouseShow
  138.     DO
  139.     LOOP UNTIL INKEY$ <> ""
  140.   
  141.   ' Resetting the mouse
  142.     MouseHide
  143.     PRINT
  144.     PRINT "Resetting the mouse"
  145.     MouseInstall mflag%
  146.   
  147.   ' Show realtime mouse data
  148.     CLS
  149.     PRINT "Instantaneous mouse information (Press any key to continue)"
  150.     MouseShow
  151.     DO
  152.         MouseMickey horizontal%, vertical%
  153.         MouseNow leftButton%, rightButton%, xMouse%, yMouse%
  154.         MousePressLeft leftCount%, xpLeft%, ypLeft%
  155.         MouseReleaseLeft leftCount%, xrLeft%, yrLeft%
  156.         MousePressRight rightCount%, xpRight%, ypRight%
  157.         MouseReleaseRight rightCount%, xrRight%, yrRight%
  158.         LOCATE 3, 1
  159.         PRINT "Mickies       ";
  160.         PRINT USING "#######, #######"; horizontal%, vertical%
  161.         PRINT "Position      ";
  162.         PRINT USING "#######, #######"; xMouse%, yMouse%
  163.         PRINT
  164.         PRINT "Buttons       ";
  165.         PRINT USING "#######, #######"; leftButton%, rightButton%
  166.         PRINT
  167.         PRINT "Left Press    ";
  168.         PRINT USING "#######, #######"; xpLeft%, ypLeft%
  169.         PRINT "Left Release  ";
  170.         PRINT USING "#######, #######"; xrLeft%, yrLeft%
  171.         PRINT
  172.         PRINT "Right Press   ";
  173.         PRINT USING "#######, #######"; xpRight%, ypRight%
  174.         PRINT "Right Release ";
  175.         PRINT USING "#######, #######"; xrRight%, yrRight%
  176.     LOOP UNTIL INKEY$ <> ""
  177.   
  178.   ' Mouse placement
  179.     CLS
  180.     MouseHide
  181.     PRINT "MousePut..."
  182.     MouseShow
  183.     FOR i% = 1 TO 20
  184.         xMouse% = RND * 639
  185.         yMouse% = RND * 199
  186.         MousePut xMouse%, yMouse%
  187.         t0 = TIMER
  188.         DO
  189.         LOOP UNTIL TIMER - t0 > .2
  190.     NEXT i%
  191.   
  192.   ' Range limiting
  193.     CLS
  194.     MouseHide
  195.     PRINT "Range limited to a rectangular area ..."
  196.     PRINT "Press any key to continue"
  197.     MouseShow
  198.     MouseRange 200, 50, 400, 100
  199.     DO
  200.     LOOP UNTIL INKEY$ <> ""
  201.   
  202.   ' All done
  203.     SCREEN 0
  204.     CLS
  205.   
  206.  
  207.   ' ************************************************
  208.   ' **  Name:          Curschek                   **
  209.   ' **  Type:          Subprogram                 **
  210.   ' **  Module:        MOUSSUBS.BAS               **
  211.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  212.   ' ************************************************
  213.   '
  214.   ' Defines a graphics-mode mouse cursor (check mark).
  215.   '
  216.   ' EXAMPLE OF USE:  Curschek mask$, xHot%, yHot%
  217.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  218.   '                  xHot%      X location for cursor hot spot
  219.   '                  yHot%      Y location for cursor hot spot
  220.   ' VARIABLES:       (none)
  221.   ' MODULE LEVEL
  222.   '   DECLARATIONS:  DECLARE SUB Curschek (mask$, xHot%, yHot%)
  223.   '
  224.     SUB Curschek (mask$, xHot%, yHot%) STATIC
  225.       
  226.         mask$ = ""
  227.         mask$ = mask$ + "1111111111110000"
  228.         mask$ = mask$ + "1111111111100000"
  229.         mask$ = mask$ + "1111111111000000"
  230.         mask$ = mask$ + "1111111110000001"
  231.         mask$ = mask$ + "1111111100000011"
  232.         mask$ = mask$ + "0000011000000111"
  233.         mask$ = mask$ + "0000000000001111"
  234.         mask$ = mask$ + "0000000000011111"
  235.         mask$ = mask$ + "1100000000111111"
  236.         mask$ = mask$ + "1111000001111111"
  237.         mask$ = mask$ + "1111111111111111"
  238.         mask$ = mask$ + "1111111111111111"
  239.         mask$ = mask$ + "1111111111111111"
  240.         mask$ = mask$ + "1111111111111111"
  241.         mask$ = mask$ + "1111111111111111"
  242.         mask$ = mask$ + "1111111111111111"
  243.       
  244.         mask$ = mask$ + "0000000000000000"
  245.         mask$ = mask$ + "0000000000000110"
  246.         mask$ = mask$ + "0000000000001100"
  247.         mask$ = mask$ + "0000000000011000"
  248.         mask$ = mask$ + "0000000000110000"
  249.         mask$ = mask$ + "0000000001100000"
  250.         mask$ = mask$ + "0111000011000000"
  251.         mask$ = mask$ + "0001110110000000"
  252.         mask$ = mask$ + "0000011100000000"
  253.         mask$ = mask$ + "0000000000000000"
  254.         mask$ = mask$ + "0000000000000000"
  255.         mask$ = mask$ + "0000000000000000"
  256.         mask$ = mask$ + "0000000000000000"
  257.         mask$ = mask$ + "0000000000000000"
  258.         mask$ = mask$ + "0000000000000000"
  259.         mask$ = mask$ + "0000000000000000"
  260.       
  261.         xHot% = 6
  262.         yHot% = 7
  263.       
  264.     END SUB
  265.  
  266.   ' ************************************************
  267.   ' **  Name:          Cursdflt                   **
  268.   ' **  Type:          Subprogram                 **
  269.   ' **  Module:        MOUSSUBS.BAS               **
  270.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  271.   ' ************************************************
  272.   '
  273.   ' Defines a default graphics-mode mouse cursor (arrow pointing up and left).
  274.   '
  275.   ' EXAMPLE OF USE:  Cursdflt mask$, xHot%, yHot%
  276.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  277.   '                  xHot%      X location for cursor hot spot
  278.   '                  yHot%      Y location for cursor hot spot
  279.   ' VARIABLES:       (none)
  280.   ' MODULE LEVEL
  281.   '   DECLARATION:   DECLARE SUB Cursdflt (mask$, xHot%, yHot%)
  282.   '
  283.     SUB Cursdflt (mask$, xHot%, yHot%) STATIC
  284.       
  285.         mask$ = ""
  286.         mask$ = mask$ + "1111111111111111"
  287.         mask$ = mask$ + "1001111111111111"
  288.         mask$ = mask$ + "1000111111111111"
  289.         mask$ = mask$ + "1000011111111111"
  290.         mask$ = mask$ + "1000001111111111"
  291.         mask$ = mask$ + "1000000111111111"
  292.         mask$ = mask$ + "1000000011111111"
  293.         mask$ = mask$ + "1000000001111111"
  294.         mask$ = mask$ + "1000000000111111"
  295.         mask$ = mask$ + "1000000000011111"
  296.         mask$ = mask$ + "1000000000001111"
  297.         mask$ = mask$ + "1000000000000111"
  298.         mask$ = mask$ + "1000100001111111"
  299.         mask$ = mask$ + "1001100001111111"
  300.         mask$ = mask$ + "1111110000111111"
  301.         mask$ = mask$ + "1111110000111111"
  302.       
  303.         mask$ = mask$ + "0000000000000000"
  304.         mask$ = mask$ + "0000000000000000"
  305.         mask$ = mask$ + "0010000000000000"
  306.         mask$ = mask$ + "0011000000000000"
  307.         mask$ = mask$ + "0011100000000000"
  308.         mask$ = mask$ + "0011110000000000"
  309.         mask$ = mask$ + "0011111000000000"
  310.         mask$ = mask$ + "0011111100000000"
  311.         mask$ = mask$ + "0011111110000000"
  312.         mask$ = mask$ + "0011111111000000"
  313.         mask$ = mask$ + "0011111111100000"
  314.         mask$ = mask$ + "0011111000000000"
  315.         mask$ = mask$ + "0010001100000000"
  316.         mask$ = mask$ + "0000001100000000"
  317.         mask$ = mask$ + "0000000110000000"
  318.         mask$ = mask$ + "0000000110000000"
  319.       
  320.         xHot% = 1
  321.         yHot% = 1
  322.       
  323.     END SUB
  324.  
  325.   ' ************************************************
  326.   ' **  Name:          Curshand                   **
  327.   ' **  Type:          Subprogram                 **
  328.   ' **  Module:        MOUSSUBS.BAS               **
  329.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  330.   ' ************************************************
  331.   '
  332.   ' Defines a graphics-mode mouse cursor (pointing hand).
  333.   '
  334.   ' EXAMPLE OF USE:  Curshand mask$, xHot%, yHot%
  335.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  336.   '                  xHot%      X location for cursor hot spot
  337.   '                  yHot%      Y location for cursor hot spot
  338.   ' VARIABLES:       (none)
  339.   ' MODULE LEVEL
  340.   '   DECLARATIONS:  DECLARE SUB Curshand (mask$, xHot%, yHot%)
  341.   '
  342.     SUB Curshand (mask$, xHot%, yHot%) STATIC
  343.       
  344.         mask$ = ""
  345.         mask$ = mask$ + "1110000111111111"
  346.         mask$ = mask$ + "1110000111111111"
  347.         mask$ = mask$ + "1110000111111111"
  348.         mask$ = mask$ + "1110000111111111"
  349.         mask$ = mask$ + "1110000111111111"
  350.         mask$ = mask$ + "1110000000000000"
  351.         mask$ = mask$ + "1110000000000000"
  352.         mask$ = mask$ + "1110000000000000"
  353.         mask$ = mask$ + "0000000000000000"
  354.         mask$ = mask$ + "0000000000000000"
  355.         mask$ = mask$ + "0000000000000000"
  356.         mask$ = mask$ + "0000000000000000"
  357.         mask$ = mask$ + "0000000000000000"
  358.         mask$ = mask$ + "0000000000000000"
  359.         mask$ = mask$ + "0000000000000000"
  360.         mask$ = mask$ + "0000000000000000"
  361.       
  362.         mask$ = mask$ + "0001111000000000"
  363.         mask$ = mask$ + "0001001000000000"
  364.         mask$ = mask$ + "0001001000000000"
  365.         mask$ = mask$ + "0001001000000000"
  366.         mask$ = mask$ + "0001001000000000"
  367.         mask$ = mask$ + "0001001111111111"
  368.         mask$ = mask$ + "0001001001001001"
  369.         mask$ = mask$ + "0001001001001001"
  370.         mask$ = mask$ + "1111001001001001"
  371.         mask$ = mask$ + "1001000000000001"
  372.         mask$ = mask$ + "1001000000000001"
  373.         mask$ = mask$ + "1001000000000001"
  374.         mask$ = mask$ + "1000000000000001"
  375.         mask$ = mask$ + "1000000000000001"
  376.         mask$ = mask$ + "1000000000000001"
  377.         mask$ = mask$ + "1111111111111111"
  378.       
  379.         xHot% = 5
  380.         yHot% = 0
  381.       
  382.     END SUB
  383.  
  384.   ' ************************************************
  385.   ' **  Name:          Curshour                   **
  386.   ' **  Type:          Subprogram                 **
  387.   ' **  Module:        MOUSSUBS.BAS               **
  388.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  389.   ' ************************************************
  390.   '
  391.   ' Defines a graphics-mode mouse cursor (hourglass).
  392.   '
  393.   ' EXAMPLE OF USE:  Curshour mask$, xHot%, yHot%
  394.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  395.   '                  xHot%      X location for cursor hot spot
  396.   '                  yHot%      Y location for cursor hot spot
  397.   ' VARIABLES:       (none)
  398.   ' MODULE LEVEL
  399.   '   DECLARATIONS:    DECLARE SUB Curshour (mask$, xHot%, yHot%)
  400.   '
  401.     SUB Curshour (mask$, xHot%, yHot%) STATIC
  402.       
  403.         mask$ = ""
  404.         mask$ = mask$ + "0000000000000000"
  405.         mask$ = mask$ + "0000000000000000"
  406.         mask$ = mask$ + "0000000000000000"
  407.         mask$ = mask$ + "1000000000000001"
  408.         mask$ = mask$ + "1100000000000011"
  409.         mask$ = mask$ + "1110000000000111"
  410.         mask$ = mask$ + "1111000000001111"
  411.         mask$ = mask$ + "1110000000000111"
  412.         mask$ = mask$ + "1100000000000011"
  413.         mask$ = mask$ + "1000000000000001"
  414.         mask$ = mask$ + "0000000000000000"
  415.         mask$ = mask$ + "0000000000000000"
  416.         mask$ = mask$ + "0000000000000000"
  417.         mask$ = mask$ + "0000000000000000"
  418.         mask$ = mask$ + "0000000000000000"
  419.         mask$ = mask$ + "0000000000000000"
  420.       
  421.         mask$ = mask$ + "0000000000000000"
  422.         mask$ = mask$ + "0111111111111110"
  423.         mask$ = mask$ + "0110000000000110"
  424.         mask$ = mask$ + "0011000000001100"
  425.         mask$ = mask$ + "0001100000011000"
  426.         mask$ = mask$ + "0000110000110000"
  427.         mask$ = mask$ + "0000011001100000"
  428.         mask$ = mask$ + "0000001111000000"
  429.         mask$ = mask$ + "0000011001100000"
  430.         mask$ = mask$ + "0000110000110000"
  431.         mask$ = mask$ + "0001100110011000"
  432.         mask$ = mask$ + "0011001111001100"
  433.         mask$ = mask$ + "0110011111100110"
  434.         mask$ = mask$ + "0111111111111110"
  435.         mask$ = mask$ + "0000000000000000"
  436.         mask$ = mask$ + "0000000000000000"
  437.       
  438.         xHot% = 7
  439.         yHot% = 7
  440.       
  441.     END SUB
  442.  
  443.   ' ************************************************
  444.   ' **  Name:          Cursjet                    **
  445.   ' **  Type:          Subprogram                 **
  446.   ' **  Module:        MOUSSUBS.BAS               **
  447.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  448.   ' ************************************************
  449.   '
  450.   ' Defines a graphics-mode mouse cursor (jet aircraft).
  451.   '
  452.   ' EXAMPLE OF USE:  Cursjet mask$, xHot%, yHot%
  453.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  454.   '                  xHot%      X location for cursor hot spot
  455.   '                  yHot%      Y location for cursor hot spot
  456.   ' VARIABLES:       (none)
  457.   ' MODULE LEVEL
  458.   '   DECLARATIONS:  DECLARE SUB Cursjet (mask$, xHot%, yHot%)
  459.   '
  460.     SUB Cursjet (mask$, xHot%, yHot%) STATIC
  461.       
  462.         mask$ = ""
  463.         mask$ = mask$ + "1111111111111111"
  464.         mask$ = mask$ + "1111111011111111"
  465.         mask$ = mask$ + "1111110001111111"
  466.         mask$ = mask$ + "1111100000111111"
  467.         mask$ = mask$ + "1111100000111111"
  468.         mask$ = mask$ + "1111100000111111"
  469.         mask$ = mask$ + "1111000000011111"
  470.         mask$ = mask$ + "1110000000001111"
  471.         mask$ = mask$ + "1100000000000111"
  472.         mask$ = mask$ + "1000000000000011"
  473.         mask$ = mask$ + "1000000000000011"
  474.         mask$ = mask$ + "1111100000111111"
  475.         mask$ = mask$ + "1111100000111111"
  476.         mask$ = mask$ + "1111000000011111"
  477.         mask$ = mask$ + "1110000000001111"
  478.         mask$ = mask$ + "1111111111111111"
  479.       
  480.         mask$ = mask$ + "0000000000000000"
  481.         mask$ = mask$ + "0000000000000000"
  482.         mask$ = mask$ + "0000000100000000"
  483.         mask$ = mask$ + "0000001110000000"
  484.         mask$ = mask$ + "0000001110000000"
  485.         mask$ = mask$ + "0000001110000000"
  486.         mask$ = mask$ + "0000011111000000"
  487.         mask$ = mask$ + "0000111111100000"
  488.         mask$ = mask$ + "0001111111110000"
  489.         mask$ = mask$ + "0011111111111000"
  490.         mask$ = mask$ + "0110001110001100"
  491.         mask$ = mask$ + "0000001110000000"
  492.         mask$ = mask$ + "0000001110000000"
  493.         mask$ = mask$ + "0000011111000000"
  494.         mask$ = mask$ + "0000110001100000"
  495.         mask$ = mask$ + "0000000000000000"
  496.       
  497.         xHot% = 7
  498.         yHot% = 1
  499.       
  500.     END SUB
  501.  
  502.   ' ************************************************
  503.   ' **  Name:          Cursleft                   **
  504.   ' **  Type:          Subprogram                 **
  505.   ' **  Module:        MOUSSUBS.BAS               **
  506.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  507.   ' ************************************************
  508.   '
  509.   ' Defines a graphics-mode mouse cursor (left arrow).
  510.   '
  511.   ' EXAMPLE OF USE:  Cursleft mask$, xHot%, yHot%
  512.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  513.   '                  xHot%      X location for cursor hot spot
  514.   '                  yHot%      Y location for cursor hot spot
  515.   ' VARIABLES:       (none)
  516.   ' MODULE LEVEL
  517.   '   DECLARATIONS:    DECLARE SUB Cursleft (mask$, xHot%, yHot%)
  518.   '
  519.     SUB Cursleft (mask$, xHot%, yHot%) STATIC
  520.       
  521.         mask$ = ""
  522.         mask$ = mask$ + "1111111000011111"
  523.         mask$ = mask$ + "1111000000011111"
  524.         mask$ = mask$ + "0000000000000000"
  525.         mask$ = mask$ + "0000000000000000"
  526.         mask$ = mask$ + "0000000000000000"
  527.         mask$ = mask$ + "1111000000011111"
  528.         mask$ = mask$ + "1111111000011111"
  529.         mask$ = mask$ + "1111111111111111"
  530.         mask$ = mask$ + "1111111111111111"
  531.         mask$ = mask$ + "1111111111111111"
  532.         mask$ = mask$ + "1111111111111111"
  533.         mask$ = mask$ + "1111111111111111"
  534.         mask$ = mask$ + "1111111111111111"
  535.         mask$ = mask$ + "1111111111111111"
  536.         mask$ = mask$ + "1111111111111111"
  537.         mask$ = mask$ + "1111111111111111"
  538.       
  539.         mask$ = mask$ + "0000000000000000"
  540.         mask$ = mask$ + "0000000011000000"
  541.         mask$ = mask$ + "0000011111000000"
  542.         mask$ = mask$ + "0111111111111110"
  543.         mask$ = mask$ + "0000011111000000"
  544.         mask$ = mask$ + "0000000011000000"
  545.         mask$ = mask$ + "0000000000000000"
  546.         mask$ = mask$ + "0000000000000000"
  547.         mask$ = mask$ + "0000000000000000"
  548.         mask$ = mask$ + "0000000000000000"
  549.         mask$ = mask$ + "0000000000000000"
  550.         mask$ = mask$ + "0000000000000000"
  551.         mask$ = mask$ + "0000000000000000"
  552.         mask$ = mask$ + "0000000000000000"
  553.         mask$ = mask$ + "0000000000000000"
  554.         mask$ = mask$ + "0000000000000000"
  555.       
  556.         xHot% = 0
  557.         yHot% = 3
  558.       
  559.     END SUB
  560.  
  561.   ' ************************************************
  562.   ' **  Name:          Cursplus                   **
  563.   ' **  Type:          Subprogram                 **
  564.   ' **  Module:        MOUSSUBS.BAS               **
  565.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  566.   ' ************************************************
  567.   '
  568.   ' Defines a graphics-mode mouse cursor (plus sign).
  569.   '
  570.   ' EXAMPLE OF USE:  Cursplus mask$, xHot%, yHot%
  571.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  572.   '                  xHot%      X location for cursor hot spot
  573.   '                  yHot%      Y location for cursor hot spot
  574.   ' VARIABLES:       (none)
  575.   ' MODULE LEVEL
  576.   '   DECLARATIONS:  DECLARE SUB Cursplus (mask$, xHot%, yHot%)
  577.   '
  578.     SUB Cursplus (mask$, xHot%, yHot%) STATIC
  579.       
  580.         mask$ = ""
  581.         mask$ = mask$ + "1111110000111111"
  582.         mask$ = mask$ + "1111110000111111"
  583.         mask$ = mask$ + "1111110000111111"
  584.         mask$ = mask$ + "0000000000000000"
  585.         mask$ = mask$ + "0000000000000000"
  586.         mask$ = mask$ + "0000000000000000"
  587.         mask$ = mask$ + "1111110000111111"
  588.         mask$ = mask$ + "1111110000111111"
  589.         mask$ = mask$ + "1111110000111111"
  590.         mask$ = mask$ + "1111111111111111"
  591.         mask$ = mask$ + "1111111111111111"
  592.         mask$ = mask$ + "1111111111111111"
  593.         mask$ = mask$ + "1111111111111111"
  594.         mask$ = mask$ + "1111111111111111"
  595.         mask$ = mask$ + "1111111111111111"
  596.         mask$ = mask$ + "1111111111111111"
  597.       
  598.         mask$ = mask$ + "0000000000000000"
  599.         mask$ = mask$ + "0000000110000000"
  600.         mask$ = mask$ + "0000000110000000"
  601.         mask$ = mask$ + "0000000110000000"
  602.         mask$ = mask$ + "0111111111111110"
  603.         mask$ = mask$ + "0000000110000000"
  604.         mask$ = mask$ + "0000000110000000"
  605.         mask$ = mask$ + "0000000110000000"
  606.         mask$ = mask$ + "0000000000000000"
  607.         mask$ = mask$ + "0000000000000000"
  608.         mask$ = mask$ + "0000000000000000"
  609.         mask$ = mask$ + "0000000000000000"
  610.         mask$ = mask$ + "0000000000000000"
  611.         mask$ = mask$ + "0000000000000000"
  612.         mask$ = mask$ + "0000000000000000"
  613.         mask$ = mask$ + "0000000000000000"
  614.       
  615.         xHot% = 7
  616.         yHot% = 4
  617.       
  618.     END SUB
  619.  
  620.   ' ************************************************
  621.   ' **  Name:          Cursup                     **
  622.   ' **  Type:          Subprogram                 **
  623.   ' **  Module:        MOUSSUBS.BAS               **
  624.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  625.   ' ************************************************
  626.   '
  627.   ' Defines a graphics-mode mouse cursor (up arrow).
  628.   '
  629.   ' EXAMPLE OF USE:  Cursup mask$, xHot%, yHot%
  630.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  631.   '                  xHot%      X location for cursor hot spot
  632.   '                  yHot%      Y location for cursor hot spot
  633.   ' VARIABLES:       (none)
  634.   ' MODULE LEVEL
  635.   '   DECLARATIONS:  DECLARE SUB Cursup (mask$, xHot%, yHot%)
  636.   '
  637.     SUB Cursup (mask$, xHot%, yHot%) STATIC
  638.       
  639.         mask$ = ""
  640.         mask$ = mask$ + "1111100111111111"
  641.         mask$ = mask$ + "1111000011111111"
  642.         mask$ = mask$ + "1110000001111111"
  643.         mask$ = mask$ + "1110000001111111"
  644.         mask$ = mask$ + "1100000000111111"
  645.         mask$ = mask$ + "1100000000111111"
  646.         mask$ = mask$ + "1000000000011111"
  647.         mask$ = mask$ + "1000000000011111"
  648.         mask$ = mask$ + "0000000000001111"
  649.         mask$ = mask$ + "0000000000001111"
  650.         mask$ = mask$ + "1111000011111111"
  651.         mask$ = mask$ + "1111000011111111"
  652.         mask$ = mask$ + "1111000011111111"
  653.         mask$ = mask$ + "1111000011111111"
  654.         mask$ = mask$ + "1111000011111111"
  655.         mask$ = mask$ + "1111000011111111"
  656.       
  657.         mask$ = mask$ + "0000000000000000"
  658.         mask$ = mask$ + "0000011000000000"
  659.         mask$ = mask$ + "0000111100000000"
  660.         mask$ = mask$ + "0000111100000000"
  661.         mask$ = mask$ + "0001111110000000"
  662.         mask$ = mask$ + "0001111110000000"
  663.         mask$ = mask$ + "0011111111000000"
  664.         mask$ = mask$ + "0011111111000000"
  665.         mask$ = mask$ + "0111111111100000"
  666.         mask$ = mask$ + "0000011000000000"
  667.         mask$ = mask$ + "0000011000000000"
  668.         mask$ = mask$ + "0000011000000000"
  669.         mask$ = mask$ + "0000011000000000"
  670.         mask$ = mask$ + "0000011000000000"
  671.         mask$ = mask$ + "0000011000000000"
  672.         mask$ = mask$ + "0000000000000000"
  673.       
  674.         xHot% = 5
  675.         yHot% = 0
  676.       
  677.     END SUB
  678.  
  679.   ' ************************************************
  680.   ' **  Name:          Cursx                      **
  681.   ' **  Type:          Subprogram                 **
  682.   ' **  Module:        MOUSSUBS.BAS               **
  683.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  684.   ' ************************************************
  685.   '
  686.   ' Defines a graphics-mode mouse cursor (X mark).
  687.   '
  688.   ' EXAMPLE OF USE:  Cursx mask$, xHot%, yHot%
  689.   ' PARAMETERS:      mask$      Pattern mask for creating cursor
  690.   '                  xHot%      X location for cursor hot spot
  691.   '                  yHot%      Y location for cursor hot spot
  692.   ' VARIABLES:       (none)
  693.   ' MODULE LEVEL
  694.   '   DECLARATIONS:  DECLARE SUB Cursx (mask$, xHot%, yHot%)
  695.   '
  696.     SUB Cursx (mask$, xHot%, yHot%) STATIC
  697.       
  698.         mask$ = ""
  699.         mask$ = mask$ + "0000011111100000"
  700.         mask$ = mask$ + "0000000110000000"
  701.         mask$ = mask$ + "0000000000000000"
  702.         mask$ = mask$ + "1100000000000011"
  703.         mask$ = mask$ + "1111000000001111"
  704.         mask$ = mask$ + "1100000000000011"
  705.         mask$ = mask$ + "0000000000000000"
  706.         mask$ = mask$ + "0000000110000000"
  707.         mask$ = mask$ + "0000001111000000"
  708.         mask$ = mask$ + "1111111111111111"
  709.         mask$ = mask$ + "1111111111111111"
  710.         mask$ = mask$ + "1111111111111111"
  711.         mask$ = mask$ + "1111111111111111"
  712.         mask$ = mask$ + "1111111111111111"
  713.         mask$ = mask$ + "1111111111111111"
  714.         mask$ = mask$ + "1111111111111111"
  715.       
  716.         mask$ = mask$ + "0000000000000000"
  717.         mask$ = mask$ + "0111000000001110"
  718.         mask$ = mask$ + "0001110000111000"
  719.         mask$ = mask$ + "0000011001100000"
  720.         mask$ = mask$ + "0000001111000000"
  721.         mask$ = mask$ + "0000011001100000"
  722.         mask$ = mask$ + "0001110000111000"
  723.         mask$ = mask$ + "0111000000001110"
  724.         mask$ = mask$ + "0000000000000000"
  725.         mask$ = mask$ + "0000000000000000"
  726.         mask$ = mask$ + "0000000000000000"
  727.         mask$ = mask$ + "0000000000000000"
  728.         mask$ = mask$ + "0000000000000000"
  729.         mask$ = mask$ + "0000000000000000"
  730.         mask$ = mask$ + "0000000000000000"
  731.         mask$ = mask$ + "0000000000000000"
  732.       
  733.         xHot% = 7
  734.         yHot% = 4
  735.       
  736.     END SUB
  737.  
  738.   ' ************************************************
  739.   ' **  Name:          MouseHide                  **
  740.   ' **  Type:          Subprogram                 **
  741.   ' **  Module:        MOUSSUBS.BAS               **
  742.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  743.   ' ************************************************
  744.   '
  745.   ' Hides the mouse cursor.
  746.   '
  747.   ' EXAMPLE OF USE:  MouseHide
  748.   '
  749.   ' PARAMETERS:      (none)
  750.   ' VARIABLES:       (none)
  751.   ' MODULE LEVEL
  752.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  753.   '                  DECLARE SUB MouseHide ()
  754.   '
  755.     SUB MouseHide STATIC
  756.         Mouse 2, 0, 0, 0
  757.     END SUB
  758.  
  759.   ' ************************************************
  760.   ' **  Name:          MouseInches                **
  761.   ' **  Type:          Subprogram                 **
  762.   ' **  Module:        MOUSSUBS.BAS               **
  763.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  764.   ' ************************************************
  765.   '
  766.   ' Sets mouse motion ratio in inches per screen.
  767.   '
  768.   ' EXAMPLE OF USE:  MouseInches horizontal%, vertical%
  769.   ' PARAMETERS:      horizontal%   Inches of horizontal mouse motion per
  770.   '                                screen width
  771.   '                  vertical%     Inches of vertical% mouse motion per
  772.   '                                screen height
  773.   ' VARIABLES:       h%            Calculated value to pass to mouse driver
  774.   '                  v%            Calculated value to pass to mouse driver
  775.   ' MODULE LEVEL
  776.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  777.   '                  DECLARE SUB MouseInches (horizontal%, vertical%)
  778.   '
  779.     SUB MouseInches (horizontal%, vertical%) STATIC
  780.         IF horizontal% > 100 THEN
  781.             horizontal% = 100
  782.         END IF
  783.         IF vertical% > 100 THEN
  784.             vertical% = 100
  785.         END IF
  786.         h% = horizontal% * 5 \ 2
  787.         v% = vertical% * 8
  788.         Mouse 15, 0, h%, v%
  789.     END SUB
  790.  
  791.   ' ************************************************
  792.   ' **  Name:          MouseInstall               **
  793.   ' **  Type:          Subprogram                 **
  794.   ' **  Module:        MOUSSUBS.BAS               **
  795.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  796.   ' ************************************************
  797.   '
  798.   ' Determines whether mouse is available and resets all mouse parameters.
  799.   '
  800.   ' EXAMPLE OF USE:  MouseInstall mflag%
  801.   ' PARAMETERS:      mflag%     Returned indication of mouse availability
  802.   ' VARIABLES:       (none)
  803.   ' MODULE LEVEL
  804.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  805.   '                  DECLARE SUB MouseInstall (mflag%)
  806.   '
  807.     SUB MouseInstall (mflag%) STATIC
  808.         mflag% = 0
  809.         Mouse mflag%, 0, 0, 0
  810.     END SUB
  811.  
  812.   ' ************************************************
  813.   ' **  Name:          MouseLightPen              **
  814.   ' **  Type:          Subprogram                 **
  815.   ' **  Module:        MOUSSUBS.BAS               **
  816.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  817.   ' ************************************************
  818.   '
  819.   ' Activates and deactivates lightpen emulation mode.
  820.   '
  821.   ' EXAMPLE OF USE:  MouseLightPen switch%
  822.   ' PARAMETERS:      switch%    non-zero to activate lightpen emulation,
  823.   '                             zero to deactivate
  824.   ' VARIABLES:       (none)
  825.   ' MODULE LEVEL
  826.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  827.   '                  DECLARE SUB MouseLightPen (switch%)
  828.   '
  829.     SUB MouseLightPen (switch%) STATIC
  830.         IF switch% THEN
  831.             Mouse 13, 0, 0, 0
  832.         ELSE
  833.             Mouse 14, 0, 0, 0
  834.         END IF
  835.     END SUB
  836.  
  837.   ' ************************************************
  838.   ' **  Name:          MouseMaskTranslate         **
  839.   ' **  Type:          Subprogram                 **
  840.   ' **  Module:        MOUSSUBS.BAS               **
  841.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  842.   ' ************************************************
  843.   '
  844.   ' Translates mouse graphics cursor Mask$ to Cursor$.
  845.   '
  846.   ' EXAMPLE OF USE:  MouseMaskTranslate mask$, xHot%, yHot%, cursor$
  847.   ' PARAMETERS:      mask$      Pattern mask that defines a mouse
  848.   '                             graphics-mode cursor
  849.   '                  xHot%      X location of the hot spot
  850.   '                  yHot%      Y location of the hot spot
  851.   '                  cursor$    The returned binary buffer string
  852.   '                             for the cursor
  853.   ' VARIABLES:       i%         Looping index
  854.   '                  b%         Integer formed from string bit representations
  855.   ' MODULE LEVEL
  856.   '   DECLARATIONS:  DECLARE SUB MouseMaskTranslate (mask$, xHot%, yHot%,
  857.   '                              cursor$)
  858.   '
  859.     SUB MouseMaskTranslate (mask$, xHot%, yHot%, cursor$) STATIC
  860.         cursor$ = CHR$(xHot%) + CHR$(yHot%) + STRING$(64, 0)
  861.         IF LEN(mask$) = 512 THEN
  862.             FOR i% = 1 TO 32
  863.                 b% = BinStr2Bin%(MID$(mask$, i% * 16 - 15, 16))
  864.                 MID$(cursor$, i% + i% + 1, 2) = MKI$(b%)
  865.             NEXT i%
  866.         END IF
  867.     END SUB
  868.  
  869.   ' ************************************************
  870.   ' **  Name:          MouseMickey                **
  871.   ' **  Type:          Subprogram                 **
  872.   ' **  Module:        MOUSSUBS.BAS               **
  873.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  874.   ' ************************************************
  875.   '
  876.   ' Reads mouse mickey counts.
  877.   '
  878.   ' EXAMPLE OF USE:  MouseMickey horizontal%, vertical%
  879.   ' PARAMETERS:      horizontal%   Horizontal motion mickey counts
  880.   '                  vertical%     Vertical motion mickey counts
  881.   ' VARIABLES:       (none)
  882.   ' MODULE LEVEL
  883.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  884.   '                  DECLARE SUB MouseMickey (horizontal, vertical%)
  885.   '
  886.     SUB MouseMickey (horizontal%, vertical%) STATIC
  887.         Mouse 11, 0, horizontal%, vertical%
  888.     END SUB
  889.  
  890.   ' ************************************************
  891.   ' **  Name:          MouseNow                   **
  892.   ' **  Type:          Subprogram                 **
  893.   ' **  Module:        MOUSSUBS.BAS               **
  894.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  895.   ' ************************************************
  896.   '
  897.   ' Returns the instantaneous state of the mouse.
  898.   '
  899.   ' EXAMPLE OF USE:  MouseNow leftButton%, rightButton%, xMouse%, yMouse%
  900.   ' PARAMETERS:      leftButton%   Indicates left mouse button state
  901.   '                  rightButton%  Indicates right mouse button state
  902.   '                  xMouse%       X location of mouse
  903.   '                  yMouse%       Y location of mouse
  904.   ' VARIABLES:       m2%           Mouse driver parameter containing button
  905.   '                                press information
  906.   ' MODULE LEVEL
  907.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  908.   '                  DECLARE SUB MouseNow (leftButton%, rightButton%,
  909.   '                                        xMouse%, yMouse%)
  910.   '
  911.     SUB MouseNow (leftButton%, rightButton%, xMouse%, yMouse%) STATIC
  912.         Mouse 3, m2%, xMouse%, yMouse%
  913.         leftButton% = ((m2% AND 1) <> 0)
  914.         rightButton% = ((m2% AND 2) <> 0)
  915.     END SUB
  916.  
  917.   ' ************************************************
  918.   ' **  Name:          MousePressLeft             **
  919.   ' **  Type:          Subprogram                 **
  920.   ' **  Module:        MOUSSUBS.BAS               **
  921.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  922.   ' ************************************************
  923.   '
  924.   ' Returns the mouse state at last press of left button.
  925.   '
  926.   ' EXAMPLE OF USE:  MousePressLeft leftCount%, xMouse%, yMouse%
  927.   ' PARAMETERS:      leftCount%    Number of times the left button has been
  928.   '                                pressed since the last call to this
  929.   '                                subprogram
  930.   '                  xMouse%       X location of the mouse at the last press
  931.   '                                of the left button
  932.   '                  yMouse%       Y location of the mouse at the last press
  933.   '                                of the left button
  934.   ' VARIABLES:       m1%           Parameter for call to mouse driver
  935.   ' MODULE LEVEL
  936.   '   DECLARATIONS:    DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  937.   '                    DECLARE SUB MousePressLeft (leftCount%, xMouse%, yMouse%)
  938.   '
  939.     SUB MousePressLeft (leftCount%, xMouse%, yMouse%) STATIC
  940.         m1% = 5
  941.         leftCount% = 0
  942.         Mouse m1%, leftCount%, xMouse%, yMouse%
  943.     END SUB
  944.  
  945.   ' ************************************************
  946.   ' **  Name:          MousePressRight            **
  947.   ' **  Type:          Subprogram                 **
  948.   ' **  Module:        MOUSSUBS.BAS               **
  949.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  950.   ' ************************************************
  951.   '
  952.   ' Returns the mouse state at last press of right button.
  953.   '
  954.     SUB MousePressRight (rightCount%, xMouse%, yMouse%) STATIC
  955.         m1% = 5
  956.         rightCount% = 1
  957.         Mouse m1%, rightCount%, xMouse%, yMouse%
  958.     END SUB
  959.  
  960.   ' ************************************************
  961.   ' **  Name:          MousePut                   **
  962.   ' **  Type:          Subprogram                 **
  963.   ' **  Module:        MOUSSUBS.BAS               **
  964.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  965.   ' ************************************************
  966.   '
  967.   ' Sets the mouse position.
  968.   '
  969.   ' EXAMPLE OF USE:  MousePut xMouse%, yMouse%
  970.   ' PARAMETERS:      xMouse%    Horizontal location to place cursor
  971.   '                  yMouse%    Vertical location to place cursor
  972.   ' VARIABLES:       (none)
  973.   ' MODULE LEVEL
  974.   '   DECLARATIONS:   DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  975.   '                   DECLARE SUB MousePut (xMouse%, yMouse%)
  976.   '
  977.     SUB MousePut (xMouse%, yMouse%) STATIC
  978.         Mouse 4, 0, xMouse%, yMouse%
  979.     END SUB
  980.  
  981.   ' ************************************************
  982.   ' **  Name:          MouseRange                 **
  983.   ' **  Type:          Subprogram                 **
  984.   ' **  Module:        MOUSSUBS.BAS               **
  985.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  986.   ' ************************************************
  987.   '
  988.   ' Sets mouse range of motion.
  989.   '
  990.   ' EXAMPLE OF USE:  MouseRange x1%, y1%, x2%, y2%
  991.   ' PARAMETERS:      x1%        Upper left corner X coordinate
  992.   '                  y1%        Upper left corner Y coordinate
  993.   '                  x2%        Lower right corner X coordinate
  994.   '                  y2%        Lower right corner Y coordinate
  995.   ' VARIABLES:       (none)
  996.   ' MODULE LEVEL
  997.   '   DECLARATIONS:   DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  998.   '                   DECLARE SUB MouseRange (x1%, y1%, x2%, y2%)
  999.   '
  1000.     SUB MouseRange (x1%, y1%, x2%, y2%) STATIC
  1001.         Mouse 7, 0, x1%, x2%
  1002.         Mouse 8, 0, y1%, y2%
  1003.     END SUB
  1004.  
  1005.   ' ************************************************
  1006.   ' **  Name:          MouseReleaseLeft           **
  1007.   ' **  Type:          Subprogram                 **
  1008.   ' **  Module:        MOUSSUBS.BAS               **
  1009.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1010.   ' ************************************************
  1011.   '
  1012.   ' Returns the mouse state at last release of left button.
  1013.   '
  1014.   ' EXAMPLE OF USE:  MouseReleaseLeft leftCount%, xMouse%, yMouse%
  1015.   ' PARAMETERS:      leftCount%    Number of times the left button has been
  1016.   '                                released since the last call to this
  1017.   '                                subprogram
  1018.   '                  xMouse%       X location of the mouse at the last
  1019.   '                                release of the left button
  1020.   '                  yMouse%       Y location of the mouse at the last
  1021.   '                                release of the left button
  1022.   ' VARIABLES:       m1%           Parameter for call to mouse driver
  1023.   ' MODULE LEVEL
  1024.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1025.   '                  DECLARE SUB MouseReleaseLeft (leftCount%, xMouse%,
  1026.   '                                               yMouse%)
  1027.   '
  1028.     SUB MouseReleaseLeft (leftCount%, xMouse%, yMouse%) STATIC
  1029.         m1% = 6
  1030.         leftCount% = 0
  1031.         Mouse m1%, leftCount%, xMouse%, yMouse%
  1032.     END SUB
  1033.  
  1034.   ' ************************************************
  1035.   ' **  Name:          MouseReleaseRight          **
  1036.   ' **  Type:          Subprogram                 **
  1037.   ' **  Module:        MOUSSUBS.BAS               **
  1038.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1039.   ' ************************************************
  1040.   '
  1041.   ' Returns the mouse state at last release of right button.
  1042.   '
  1043.   ' EXAMPLE OF USE:  MouseReleaseRight rightCount%, xMouse%, yMouse%
  1044.   ' PARAMETERS:      rightCount%   Number of times the right button has been
  1045.   '                                released since the last call to this
  1046.   '                                subprogram
  1047.   '                  xMouse%       X location of the mouse at the last
  1048.   '                                release of the right button
  1049.   '                  yMouse%       Y location of the mouse at the last
  1050.   '                                release of the right button
  1051.   ' VARIABLES:       m1%           Parameter for call to mouse driver
  1052.   ' MODULE LEVEL
  1053.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1054.   '                  DECLARE SUB MouseReleaseRight (rightCount%, xMouse%,
  1055.   '                                                 yMouse%)
  1056.   '
  1057.     SUB MouseReleaseRight (rightCount%, xMouse%, yMouse%) STATIC
  1058.         m1% = 6
  1059.         rightCount% = 1
  1060.         Mouse m1%, rightCount%, xMouse%, yMouse%
  1061.     END SUB
  1062.  
  1063.   ' ************************************************
  1064.   ' **  Name:          MouseSetGcursor            **
  1065.   ' **  Type:          Subprogram                 **
  1066.   ' **  Module:        MOUSSUBS.BAS               **
  1067.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1068.   ' ************************************************
  1069.   '
  1070.   ' Sets mouse graphics cursor using cursor$.
  1071.   '
  1072.   ' EXAMPLE OF USE:  MouseSetGcursor cursor$
  1073.   ' PARAMETERS:      cursor$    Binary format cursor string
  1074.   ' VARIABLES:       xHot%      X hot spot location
  1075.   '                  yHot%      Y hot spot location
  1076.   ' MODULE LEVEL
  1077.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1078.   '                  DECLARE SUB MouseSetGcursor (cursor$)
  1079.   '
  1080.     SUB MouseSetGcursor (cursor$) STATIC
  1081.         xHot% = ASC(LEFT$(cursor$, 1))
  1082.         yHot% = ASC(MID$(cursor$, 2, 1))
  1083.         Mouse 9, xHot%, yHot%, SADD(cursor$) + 2
  1084.     END SUB
  1085.  
  1086.   ' ************************************************
  1087.   ' **  Name:          MouseShow                  **
  1088.   ' **  Type:          Subprogram                 **
  1089.   ' **  Module:        MOUSSUBS.BAS               **
  1090.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1091.   ' ************************************************
  1092.   '
  1093.   ' Shows the mouse cursor.
  1094.   '
  1095.   ' EXAMPLE OF USE:  MouseShow
  1096.   ' PARAMETERS:      (none)
  1097.   ' VARIABLES:       (none)
  1098.   ' MODULE LEVEL
  1099.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1100.   '                  DECLARE SUB MouseShow ()
  1101.   '
  1102.     SUB MouseShow STATIC
  1103.         Mouse 1, 0, 0, 0
  1104.     END SUB
  1105.  
  1106.   ' ************************************************
  1107.   ' **  Name:          MouseSoftCursor            **
  1108.   ' **  Type:          Subprogram                 **
  1109.   ' **  Module:        MOUSSUBS.BAS               **
  1110.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1111.   ' ************************************************
  1112.   '
  1113.   ' Sets text-mode software cursor.
  1114.   '
  1115.   ' EXAMPLE OF USE:  MouseSoftCursor screenMask%, cursorMask%
  1116.   ' PARAMETERS:      screenMask%   Integer bit pattern for the screen mask
  1117.   '                  cursorMask%   Integer bit pattern for the cursor mask
  1118.   ' VARIABLES:       (none)
  1119.   ' MODULE LEVEL
  1120.   '   DECLARATIONS:  DECLARE SUB MouseSoftCursor (screenMaks%, cursorMask%)
  1121.   '                  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1122.   '
  1123.     SUB MouseSoftCursor (screenMask%, cursorMask%) STATIC
  1124.         Mouse 10, 0, screenMask%, cursorMask%
  1125.     END SUB
  1126.  
  1127.   ' ************************************************
  1128.   ' **  Name:          MouseWarp                  **
  1129.   ' **  Type:          Subprogram                 **
  1130.   ' **  Module:        MOUSSUBS.BAS               **
  1131.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  1132.   ' ************************************************
  1133.   '
  1134.   ' Sets double-speed threshold.
  1135.   '
  1136.   ' EXAMPLE OF USE:  MouseWarp threshold%
  1137.   ' PARAMETERS:      threshold%    Mickies per second rate of threshold
  1138.   ' VARIABLES:       (none)
  1139.   ' MODULE LEVEL
  1140.   '   DECLARATIONS:  DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  1141.   '                  DECLARE SUB MouseWarp (threshold%)
  1142.   '
  1143.     SUB MouseWarp (threshold%) STATIC
  1144.         Mouse 19, 0, 0, threshold%
  1145.     END SUB
  1146.  
  1147.