*COMDECK FIXCOM 
  # #     CONTROL  NOLIST;   #FIXCOM# 
  
          COMMON  FIXCOM; 
          ARRAY  [0:M$FIXED] S(1);
              ITEM  FIXEDCELL    I(0, 0, 60); 
  
  # #     CONTROL  LIST;     #FIXCOM# 
