Quote:DECLARE SUB Delay (Time AS SINGLE)
DECLARE FUNCTION MouseButtons% ()
DECLARE FUNCTION MouseChoice% ()
DECLARE SUB MouseHide ()
DECLARE SUB MouseInit ()
DECLARE FUNCTION MouseSlct% (x AS INTEGER, y AS INTEGER, xchoice AS INTEGER, ychoice AS INTEGER, interval AS INTEGER)
DECLARE SUB MouseShow ()
DECLARE FUNCTION MousePX% ()
DECLARE FUNCTION MousePY% ()

DIM SHARED A(34) AS INTEGER
DIM SHARED mx%, my%

'Loading machine codes for working with the mouse
DEF SEG = VARSEG(A%(0))
FOR i% = 0 TO 63
READ d%
POKE VARPTR(A%(0)) + i%, d%
NEXT i%
DEF SEG
DATA 00,00
DATA 00,00
DATA 00,00
' Mashine codes : Assembler commands
DATA &HB8,00,00 : 'mov ax,000h
DATA &HCD,&H33 : 'int 33h
DATA &H3D,&HFF,&HFF : 'cmp ax,0FFFFh
DATA &H75,&H0D : 'jne @@notPresent
DATA &H0E : 'push cs
DATA &H07 : 'pop es
DATA &HBA,&H24,&H00 : 'mov dx,offset MouseHandler
DATA &HB9,&HFF,&HFF : 'mov cx,0FFFFh
DATA &HB8,&H0C,&H00 : 'mov ax,000Ch
DATA &HCD,&H33 : 'int 33h
: '@@NotPresent:
DATA &HCB : 'ret
DATA &HB8,00,00 : 'mov ax,0000h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret
DATA &H2E,&H89,&H0E,00,00 : 'mov [cs:mouseX],cx
DATA &H2E,&H89,&H16,02,00 : 'mov [cs:mouseY],dx
DATA &H2E,&H89,&H1E,04,00 : 'mov [cs:mouseButtons],bx
DATA &HCB : 'ret
DATA &HB8,01,00 : 'mov ax,0001h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret
DATA &HB8,02,00 : 'mov ax,0002h
DATA &HCD,&H33 : 'int 33h
DATA &HCB : 'ret

SCREEN 13

MouseInit

MouseShow

DO

Choice = MouseSlct(0, 0, 16, 10, 20)
IF MouseButtons% = 1 THEN
END
EXIT DO
END IF

LOOP

SUB Delay (Time AS SINGLE)

Waiter = TIMER

DO
IF TIMER > Waiter + Time THEN EXIT DO
LOOP

END SUB

DEFINT A-Z
FUNCTION MouseButtons%
MouseButtons% = A%(2)
END FUNCTION

FUNCTION MouseChoice%
mx% = (MousePX% / 2): my% = MousePY%
MouseChoice% = 1
END FUNCTION

SUB MouseHide
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + &H3A)
DEF SEG
END SUB

SUB MouseInit
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + 6)
DEF SEG
END SUB

FUNCTION MousePX%
MousePX% = A%(0)
END FUNCTION

FUNCTION MousePY%
MousePY% = A%(1)
END FUNCTION

SUB MouseReset
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(1)) + &H1E)
DEF SEG
END SUB

SUB MouseShow
DEF SEG = VARSEG(A%(0))
CALL ABSOLUTE(VARPTR(A%(0)) + &H34)
DEF SEG
END SUB

FUNCTION MouseSlct% (x AS INTEGER, y AS INTEGER, xchoice AS INTEGER, ychoice AS INTEGER, interval AS INTEGER)

Delay (.25)

MouseShow

DO
IF (MouseChoice% <> 0) THEN
IF (MouseButtons% = 1) THEN
IF (mx% > x AND my% > y) AND (mx% < x + xchoice * interval AND my% < y + ychoice * interval) THEN
MouseHide
MouseSlct% = INT((mx% - x) / interval) + INT((my% - y) / interval) * xchoice + 1
EXIT DO
END IF
ELSEIF (MouseButtons% = 2) THEN
MouseHide
MouseSlct% = 0
EXIT DO
END IF
END IF
LOOP

END FUNCTION

SUB Wait4Click

Delay (.25)

MouseShow

DO
IF (MouseChoice% <> 0) THEN
IF (MouseButtons% <> 0) THEN
MouseHide
EXIT DO
END IF
END IF
LOOP

END SUB