LEX 'REVLEX'
        ID  #52
        MSG 0
        POLL 0
*
REV$    EQU #1B38E
EXPR    EQU #0F23C
*
        ENTRY REVRS
        CHAR #F
        KEY 'REV$'
        TOKEN 12
        ENDTXT
*
        NIBHEX 411
*
REVRS   GOSBVL REV$
        GOVLNG EXPR
        END