LEX    'CONTRLEX'
        ID     #71
        MSG    0
        POLL   0
HDFLT   EQU    #1B31B
FNRTN2  EQU    #0F219

        ENTRY  CTR
        CHAR   #F
        KEY    'CONTRAST'
        TOKEN  12
        ENDTXT
        NIBHEX 00
CTR     CD0EX
        R0=C
        D0=(5) #2E3FE
        A=0    A
        A=DAT0 1
        GOSBVL HDFLT
        AR0EX
        C=R0
        GOVLNG FNRTN2
        END