*DECK HASHDL1                                                           000470
          IDENT  HASHDL1                                                000480
          COMMENT  HASH ROUTINE FOR AREA-NAMES
HASHDL1   TITLE    HASHDL1 - HASH ROUTINE FOR AREA-NAMES
*CALL HASHDL                                                            000490
