QB&MOUSE1.BAS

DEFINT A-Z
DIM asm(1 TO 25): FOR i = 1 TO 25: READ asm(i): NEXT i
CALL AssemblyCode(0, 0, 0, 0)            'Reset Mouse Driver
GOSUB OpeningScreen: CALL MouseLimits(10, 49, 2, 20, 29, 19)
DO: CALL PressClick(press$, click, cx, dx, presses, releases)
  IF presses = 1 AND releases = 1 THEN GOSUB SingleClick
  IF presses = 2 AND releases = 2 THEN GOSUB DoubleClick
  IF presses = 1 AND releases = 0 THEN GOSUB DragMouseCursor
LOOP UNTIL press$ = CHR$(27)
`Reset & Close
CALL AssemblyCode(0, 0, 0, 0): COLOR 7, 0: CLS : SYSTEM
DATA  0 , 0 , 0 , 0 ,-24274 , 0 ,-29906 , 542 , 11776 , 3723
DATA  4 ,-29906 , 1558 ,-13056 , 11827 , 163 , 11776 , 7817
DATA  2 ,-30418 , 1038 , 11776 , 5769 , 6 , 203