*DECK MAPWR                                                             000410
      PROC MAPWR;                                                       000420
*CALL COMMAPWR                                                          000430
