;;;     ACMAP.MNL
;;;     Copyright (C) 1997 by Autodesk, Inc.
;;;
;;;		Created 4/14/98 by Troy Louden
;;;
;;;     Permission to use, copy, modify, and distribute this software
;;;     for any purpose and without fee is hereby granted, provided
;;;     that the above copyright notice appears in all copies and 
;;;     that both that copyright notice and the limited warranty and 
;;;     restricted rights notice below appear in all supporting 
;;;     documentation.
;;;
;;;     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.  
;;;     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF 
;;;     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 	 `	
;;;     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE 
;;;     UNINTERRUPTED OR ERROR FREE.
;;;
;;;     Use, duplication, or disclosure by the U.S. Government is subject to 
;;;     restrictions set forth in FAR 52.227-19 (Commercial Computer 
;;;     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 
;;;     (Rights in Technical Data and Computer Software), as applicable. 
;;;
;;;     This file is loaded automatically following the menu AC_BONUS.  



; Place the map pulldown to the left of the last pulldown already loaded

(defun PlaceMapMenu (/ CNT)
  (setq CNT 1)
;;remove Autocad Help menu
  (menucmd "Gacad.help=-")
;;now Add our two menu groups to the end
  (while (< CNT 24)
    (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
      (setq CNT (1+ CNT))
      (progn
        (menucmd (strcat "p" (itoa CNT) "=+ACMAP.pop1"))
		(setq CNT (1+ CNT))
		(menucmd (strcat "p" (itoa CNT) "=+ACMAP.pop2"))
        (setq CNT 25)
      )
    )
  )
  (princ)
)

(PlaceMapMenu)