(DEFUN c:wilmnu ( / mnu_spec zzz_input_s7 zzz_input_hua zzz_output_s7)
  (SETQ mstr_path (GETSTRING "\Enter path to Softdesk Menus: "))
  (SETQ custom_p0_path (GETSTRING "\Enter path to custom POP0 menu: "))
  (princ "\nAD CG CR DE DS DT ER HD LA PP SV")
  (SETQ mnu_spec (ustr 1 "Softdesk Menu Name?" "CR" nil))
;  (princ mnu_spec)
;  (princ "\n")
  (SETQ zzz_input_s7f (FINDFILE (STRCAT mstr_path mnu_spec ".MNU")))
;  (princ zzz_input_s7f)
;  (princ "\n")
  (SETQ zzz_input_s7 (OPEN zzz_input_s7f "r"))
;  (princ zzz_input_s7)
  (SETQ zzz_input_huaf (FINDFILE (STRCAT custom_p0_path "CUST_P0.MNU")))
;  (princ zzz_input_huaf)
;  (princ "\n")
  (SETQ zzz_input_hua (OPEN zzz_input_huaf "r"))
;  (princ zzz_input_hua)
  (SETQ zzz_output_s7f (STRCAT "V:\\UTIL\\MENUS\\WILSON\\" mnu_spec ".MNU"))
;  (princ zzz_output_s7f)
;  (princ "\n")
  (SETQ zzz_output_s7 (OPEN zzz_output_s7f "w")) 
;  (princ zzz_output_s7)
  (IF (AND zzz_input_s7 zzz_input_hua mnu_spec zzz_output_s7) 
      (PROGN
	(WHILE (SETQ is7_rl (READ-LINE zzz_input_s7))
	  (IF (EQ is7_rl "***POP1") 
              (PROGN
	        (WHILE (SETQ ihua_rl (READ-LINE zzz_input_hua))
		  (WRITE-LINE ihua_rl zzz_output_s7)
	        ) ;_ end of WHILE
                (WRITE-LINE is7_rl zzz_output_s7)
              );_ end of PROGN
              (WRITE-LINE is7_rl zzz_output_s7)
	  ) ;_ end of IF
	) ;_ end of WHILE
      ) ;_ end of PROGN
      (PROGN
        (PRINC "\nNot all input files were found! ")
	(PRINC "\nzzz_input_s7 = ")(PRINC zzz_input_s7)
	(PRINC "\nzzz_input_hua = ")(PRINC zzz_input_hua)
	(PRINC "\nmnu_spec = ")(PRINC mnu_spec)
	(PRINC "\nzzz_output_s7 = ")(PRINC zzz_output_s7)
      )
  ) ;_ end of IF
  (CLOSE zzz_input_s7)
  (CLOSE zzz_input_hua)
  (CLOSE zzz_output_s7)
  (PRINC)
) ;_ end of DEFUN
;|«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!***|;