$COMPILE EXE

SHARED MausX%, MausY%, MausKlick%, MausDoppel%, MausButton%, MausFlag%
SHARED MausRightButton%
SHARED MausZeit???
SHARED MausStart???

SHARED A$

CLS
MausInit
MausEin

DO
    Keypressed
    LOCATE ,1: PRINT "Key: "; A$; "  ";
               PRINT " X:"; MausX%; " Y%:";MausY%;
               PRINT "  Left:"; MausButton%;
               PRINT "  Click:"; Mausklick%;
               PRINT "  Double:"; Mausdoppel%;
               PRINT "  Right:"; MausRightButton%; "       ";
LOOP WHILE A$ <> CHR$(27)

PRINT
PRINT "program aborted, end ..."
BEEP
END

SUB MausInit public
        MausFlag% = 0
        ! mov ax, &h0000
        ! int &h33
        ! cmp ax, &hFFFF
        ! jnz MausInitEnde
        MausFlag% = 1
        MausInitEnde:
END SUB

SUB MausEin public
        IF MausFlag% = 1 THEN
            ! mov ax, &h0001
            ! int &h33
            MausX% = 0
            MausY% = 0
            Mausklick% = 0
            Mausdoppel% = 0
        END IF
END SUB

SUB MausAus public
        IF MausFlag% = 1 THEN
            ! mov ax, &h0002
            ! int &h33
        END IF
END SUB

SUB Mausabfrage public
        IF MausFlag% = 1 THEN
            Mausklick%  = 0
            MausButton% = 0
            IF Mausdoppel% > 1 THEN MausDoppel% = 0
            ! mov ax, &h0003
            ! int &h33
            ! shr cx, 1
            ! shr cx, 1
            ! shr cx, 1
            ! inc cx
            ! shr dx, 1
            ! shr dx, 1
            ! shr dx, 1
            ! inc dx
            ! mov MausX%, cx
            ! mov MausY%, dx
            ! test bx, &b0000000000000001
            ! jz MausButtonNotPressed
            MausButton% = 1
            MausButtonNotPressed:

            ' linke Kn”pfe ermitteln
            ! mov ax, &h0006
            ! mov bx, &h0
            ! int &h33
            ! mov MausKlick%, bx
            ! mov MausDoppel% ,bx

            ' rechte Kn”pfe ermitteln
            ! mov ax, &h0006
            ! mov bx, &h1
            ! int &h33
            ! mov MausRightButton%, bx

            CALL MausUhr                             'vergangende Zeit holen

            MausEnde??? = MausZeit???
            IF MausEnde??? < MausStart??? THEN
                MausDoppel%  = 0
                MausStart??? = 0
            END IF
            IF MausDoppel% = 1 AND MausEnde??? =< MausStart??? + 25 THEN
                MausDoppel% = 2
            END IF
            IF MausDoppel% = 1 THEN
                CALL MausUhr
                MausStart??? = MausZeit???
            END IF
        END IF
END SUB

SUB MausUhr public
        IF MausFlag% = 1 THEN
            ! mov ah, &h2c
            ! int &h21
            ! mov MausSekunde?, dh
            ! mov MausMilli?, dl
            ! mov MausMinute?, cl
            Mauszeit??? = (MausMinute?*6000) + (MausSekunde?*100) + MausMilli?
        END IF
END SUB

SUB KeyPressed public
        IF MausFlag% = 1 THEN
            CALL MausAbfrage
            A$ = "": MausButton% = 0
            DO UNTIL MausButton% = 1 OR LEN(A$) > 0 OR MausKlick% > 0 OR MausRightButton% > 0
                CALL MausAbfrage
                A$ = UCASE$(INKEY$)
            WEND
        ELSE
            A$ = ""
            DO UNTIL LEN(A$) > 0
                A$ = UCASE$(INKEY$)
            WEND
        END IF
END SUB