Considerable rewriting of MAPS/bc-draw-map.pl but still not working