(DEFUN c:s8mnu ( / ins8 inhua outs8 butlst)
  (setq mstr_path "V:\\UTIL\\MENUS\\SDSK")
  (setq p0_path "V:\\UTIL\\MENUS\\CDM")
  (SETQ butname (ustr 1 "Button Menu Filename" butname nil))
  (if (/=(strcase(substr butname (-(strlen butname)3)))".MNS")
    (setq butname (strcat butname ".MNS"))
  )
  (princ "\nAA AB AD AE AP CG CR DE DS DT EL ER HD HV LA PA PI PL PP SV")
  (SETQ mnu_spec (ukword 1 "AA AB AD AE AP CG CR DE DS DT EL ER HD HV LA PA PI PL PP SV" " Softdesk Menu Name: " mnu_spec))
  (SETQ ins8f (FINDFILE (STRCAT mstr_path "\\" mnu_spec ".MNS")))
  (SETQ inhuaf (FINDFILE (STRCAT p0_path "\\CUST_P0.MNS")))
  (SETQ butf (FINDFILE (STRCAT p0_path "\\" butname)))
  (progn
    (SETQ buts (OPEN butf "r"))
    (while (setq butr (read-line buts))
      (if butlst
        (setq butlst (append butlst (list butr)))
        (setq butlst (list butr))
      )
    )
    (close buts)
  )
  (if zih_strlst nil
    (progn
      (SETQ inhua (OPEN inhuaf "r"))
      (while (setq zih_r (read-line inhua))
        (if zih_strlst
          (setq zih_strlst (append zih_strlst (list zih_r)))
          (setq zih_strlst (list zih_r))
        )
      )
;      (princ inhua)
      (close inhua)
    )
  )
  (if (eq butname "WILSONS.MNS")
    (SETQ outs8f (STRCAT "V:\\UTIL\\MENUS\\WILSON\\" mnu_spec ".MNS"))
    (SETQ outs8f (STRCAT "V:\\UTIL\\MENUS\\COOPER\\" mnu_spec ".MNS"))
  )
  (SETQ ins8 (OPEN ins8f "r"))
  (SETQ outs8 (OPEN outs8f "w")) 
  (IF (AND ins8 mnu_spec outs8 butlst zih_strlst) 
    (WHILE (SETQ is7_rl (READ-LINE ins8))
      (IF (EQ is7_rl "***BUTTONS1")
        (progn
          (while (not(eq is7_rl "***AUX1"))
            (setq is7_rl (read-line ins8))
          )
          (foreach n butlst (PROGN(write-line n outs8)(PRINC n)(PRINC "\n")))
          (write-line is7_rl outs8)
        )
        (IF (EQ is7_rl "***POP0")
          (progn
            (write-line is7_rl outs8)
            (write-line (read-line ins8) outs8)
            (write-line (read-line ins8) outs8)
            (write-line "[Custom Tools]$p0=POPTOOLS $p0=*" outs8)
          )
          (if (eq is7_rl "***POP1")
            (progn
              (foreach n zih_strlst (write-line n outs8))
              (WRITE-LINE is7_rl outs8)
            )
            (WRITE-LINE is7_rl outs8)
          )
        )
      )
    )
    (PRINC "\nNot all input files were found! ")
  ) ;_ end of IF
  (CLOSE ins8)
  (CLOSE outs8)
  (PRINC)
) ;_ end of DEFUN
(defun c:closeall ()
  (IF
    ins8
    (CLOSE ins8)
  )
  (IF
    inhua
    (CLOSE inhua)
  )
  (IF
    outs8
    (CLOSE outs8)
  )
  (PRINC)
)
;|«ViLL© FORMAT OPTIONS...» (72 2 40 2 T "end of " 60 9 2 1 0 T T nil T)
 ***Don't add text below the comment!***|;