inval2 = 0
                *** Check for mouse click and mouse pointer inside window
                DO WHILE SECONDS() < timelimit
                        inval2 = INKEY('HM')
                        *** double mouse click
                        IF inval2 = 151 AND col != -1 AND row != -1
                                CLEAR
                                @ 7,11 SAY 'Double click at '
                                ?? 'Row ' + ALLTRIM(STR(row)) + ', Column ' ;
                                + ALLTRIM(STR(col)) + ' of this window'
                                EXIT
                        ENDIF
                ENDDO
                *** Single mouse click and mouse pointer inside window ***
                IF inval2 = 0 AND col != -1 AND row != -1
                        CLEAR
                        @ 7,11 SAY 'Single click at '
                        ?? 'Row ' + ALLTRIM(STR(row)) + ', Column ' ;
                        + ALLTRIM(STR(col)) + ' of this window'
                ENDIF
                *** Mouse pointer outside of window ***
                IF col = -1 OR row = -1
                        CLEAR
                        @ 7,17 SAY 'Mouse clicked outside of this window'
                        LOOP
                ENDIF
        ENDIF
        *** Keyboard character pressed ***
        IF inval1 # 151 AND BETWEEN(inval1, 0, 256) && Good CHR() value
                CLEAR
                @ 7,18 SAY 'Character typed:'
                ?? ' ' + CHR(inval1) + ', ASCII code ' + ALLTRIM(STR(inval1))
        ENDIF
ENDDO   End of Main loop
*** Restore original environment ***
SET TALK ON
SET ESCAPE ON
CLEAR WINDOWS
*** end of program ***

-----------------------------------

See Also:  CHR(), _DBLCLICK, ON KEY, READKEY(), SET CURSOR, SET
TYPEAHEAD, SYS(2002) Turn cursor on/off

-----------------------------------