*DECK EDICT                                                             000780
          IDENT  EDICT                                                  000790
*CALL COMEDICT                                                          000800
