LEX    'CALCLEX'
* (c) Copyright PPC Paris 1986
        ID     #E1
        MSG    0
        POLL   PH
        ENDTXT

pKYDF   EQU    #1B
SYSFLG  EQU    #2F6D9
kcLFT   EQU    #8       Touche [<]
kcBKSP  EQU    #7       Touche [f] [BACK]
k#BKSP  EQU    #67      Code issu de la
         *              lecture-clavier

PH      LC(2)  pKYDF
        ?B=C   B
        GOYES  inter
rtn     RTNSXM
inter   D0=(5) (SYSFLG)+11
        A=DAT0 A
        A=A+A  A        Carry=1 si mode CALC
        GONC   rtn      Retour sinon
        A=R0            A[A]=Key-Code
        C=0    W
        LC(1)  kcLFT
        ?A#C   A        Est-ce [<]
        GOYES  rtn      Non: retour
        C=C-1  B        C[A]=Code de [f] [BACK]
        P=     5
        LC(2)  k#BKSP   C[9-5]=Code physique
        R0=C            Ni vu, ni connu, on change
        RTNSXM          Fin...
        END