*COMDECK PARAMS 
          CONTROL  NOLIST;   #PARAMS# 
  
          COMMON PARAMS;
              BEGIN 
              ARRAY [0:7] S(1); 
                  ITEM  PARAMSWORD   C(0,0,10); 
              END 
  
          CONTROL  LIST;     #PARAMS# 
