LEX    'KBEEP'  Key BEEP . Pourquoi pas  ?
        ID     #71
        MSG    0
        POLL   POLHND   C'est ce qui fait l'intÅrÁt de ce LEX
        ENDTXT          Aucun mot clef

pKYDF   EQU    #1B      Poll "KeY DeFinition"
BP+C    EQU    #0EB40   Routine SystÉme pour biper
Freq    EQU    #3E8     FrÅquence (1000 Hz)
Duree   EQU    #20      DurÅe. Vous pouvez essayer la valeur que vous voulez.

POLHND  LC(2)  pKYDF    C(B)=No du Poll qu'on tente d'intercepter
        ?B=C   B        Si c'est celui lÈ,
        GOYES  POLL       on le prend,
        RTNSXM            sinon, on ne fait rien.

POLL    C=D    A        Tout le travail du programme
        R3=C              est de sauver les bons
        SETHEX            registres, et de les
        P=     0          remettre aprÉs.
        LC(5)  Freq
        D=C    A
        LC(3)  Duree
        GOSBVL BP+C     Beep de durÅe C(A), de frequence D(A).
        C=R3            On remet les bonnes
        D=C    A          choses È leur place,
        RTNSXM          et on revient.

        END             Voila, c'est fini !