2WRW    #MACRO         CLEARPE  
 2X?G          STO   2  JWSP2
 2XR6          FPCACA   2,FX2
 2Y=Q          CLEAR    2,2,,2,HLOCKN
 2YQB          LDX   2  JWSP2
 2^=2    #NORMAL