*COMDECK CRDCOM 
          CONTROL NOLIST;    #CRDCOM# 
COMMON CRDCOM       #FOR CARD IMAGES#                  ;
BEGIN 
ARRAY[1];      ;         #TWO DUMMY WORDS#
ARRAY CWORD[CMPAR9];          #CARD IMAGE#        ITEM CWORDV,
     WCHAR0 U(0,    0    ,6)  , 
     WCHAR1 U(0,    6    ,6)  , 
     WCHAR2 U(0,    12   ,6)  , 
     WCHAR3 U(0,    18   ,6)  , 
     WCHAR4 U(0,    24   ,6)  , 
     WCHAR5 U(0,    30   ,6)  , 
     WCHAR6 U(0,    36   ,6)  , 
     WCHAR7 U(0,    42   ,6)  , 
     WCHAR8 U(0,    48   ,6)  , 
     WCHAR9 U(0,    54   ,6)  ; 
END 
          CONTROL LIST;      #CRDCOM# 
