*COMDECK NP$NWN1
      COMMON NP$NWN1; 
      BEGIN                  # COMMON FOR CHARACTER CTR TO WORD CTR    #
      ARRAY NW[1:4];
        BEGIN 
        ITEM NW$ROUND      I(0,24,18)=[0,14,8,18];# ROUND OFF INDEX    #
        ITEM NW$FACT       I(0,42,18)=[2,15,10,20]; 
        END 
      END 
