*DECK MAPKEY                                                            000350
      PROC MAPKEY;                                                      000360
*CALL COMAPKEY                                                          000370
