DO IF INKEY$ = CHR$(27) THEN SYSTEM 15 '-- Appel des SUBS de click si on clique sur la souris inregs.ax = 3 CALL INTERRUPT(&H33, inregs, outregs) xmouse = outregs.cx: ymouse = outregs.dx IF outregs.bx = 1 THEN PRINT "click" 10 LOOP