*COMDECK WRDPAIR
COMMON WRDPAIR; 
      BEGIN 
      ITEM CT I=CT8ASCII;    # ASCII CHARACTER TYPE                    #
      ITEM PAIR B;           # FIRST WORD OF AN ASCII WD PAIR,IF FALSE #
      ARRAY ASKICHAR; 
        BEGIN 
        ITEM ACHAR      U(0,0,8);      # 8 BIT ASCII CHARACTER.        #
        ITEM ACHARPB    U(0,0,1);      # PARITY BIT.                   #
        END 
  
      END 
