*COMDECK,HPACOM4                                                         HPACOM4
                                                                         HPACOM4
      COMMON /ICY/ FCY(54,72), INP(8), IST(8),
     .KC(16),LIMFCY,POS(8,4),TLIM(10,4),
     .ADD,DELETE,CHANGE,INSERT,LIST,END4, 
     .IDENT,HARDWRE,SOFTWRE,CALLMDE,COMMAND,DATA
  
      LOGICAL ADD,DELETE,CHANGE,INSERT,LIST,END4
      LOGICAL IDENT,HARDWRE,SOFTWRE,CALLMDE,COMMAND,DATA
*         *************************************************** 
