LEX    'HIGHLEX'
* (c) Copyright PPC Paris 1986
        ID     #5C
        MSG    0
        POLL   0
        ENTRY  HIGH
        CHAR   15
        KEY    'HIGH$'
        TOKEN  100
        ENDTXT

POP1S   EQU    #0BD38
EXPR    EQU    #0F23C

        NIBHEX 411
HIGH    CD1EX
        RSTK=C
        D1=C
        GOSBVL POP1S
        B=0    M
        B=A    A
        BSRB
        LCHEX  80
HIGH10  B=B-1  A
        GOC    HIGH20
        A=DAT1 B
        A=A!C  B
        DAT1=A B 
        D1=D1+ 2
        GONC   HIGH10

HIGH20  C=RSTK
        D1=C
        GOVLNG EXPR

        END