(defun c:splitmnu ( / edfil pfx)
  (setq edfil (getfiled "Split DCA Menu File" "u:/dca/civil/menuorg/" "mnu" 4))
  (setq pfx (substr edfil 22 2)
        mnuf (open edfil "r")
        mnub (open (strcat pfx "_B.MNU") "w")
        rdlin (read-line mnuf)
  );setq
  (while
    (not(eq "***POP0" rdlin))
    (progn
      (write-line rdlin mnub)
      (setq rdlin (read-line mnuf))
    )
  );while
  (close mnub)
  (setq mnup0 (open (strcat pfx "_P0.MNU") "w"))
  (while
    (not(eq "***POP1" rdlin))
    (progn
      (write-line rdlin mnup0)
      (setq rdlin (read-line mnuf))
    )
  );while
  (close mnup0)
  (setq mnup (open (strcat pfx "_P.MNU") "w"))
  (while
    (not(eq "***SCREEN" rdlin))
    (progn
      (write-line rdlin mnup)
      (setq rdlin (read-line mnuf))
    )
  );while
  (close mnup)
  (setq mnus (open (strcat pfx "_S.MNU") "w"))
  (while
    (not(eq "***Comment" (substr rdlin 1 10)))
    (progn
      (write-line rdlin mnus)
      (setq prvln rdlin
            rdlin (read-line mnuf))
    )
  );while
  (if (eq (substr rdlin 1 10) "***Comment")
    (princ (strcat"\n" rdlin " after SCREEN"))
  );if
  (close mnus)
  (setq mnut1 (open (strcat pfx "_T1.MNU") "w"))
  (write-line rdlin mnut1)
  (setq rdlin (read-line mnuf))
  (while
    (not(eq "***Comment" (substr rdlin 1 10)))
    (progn
      (write-line rdlin mnut1)
      (setq prvln rdlin
            rdlin (read-line mnuf))
    )
  );while
      (if (eq (substr rdlin 1 10) "***Comment")
        (princ (strcat"\n" rdlin " after T1"))
      );if
  (close mnut1)
  (setq mnut2 (open (strcat pfx "_T2.MNU") "w"))
  (write-line rdlin mnut2)
  (setq rdlin (read-line mnuf))
  (while
    (not(eq "***Comment" (substr rdlin 1 10)))
    (progn
      (write-line rdlin mnut2)
      (setq prvln rdlin
            rdlin (read-line mnuf))
    )
  );while
      (if (eq (substr rdlin 1 10) "***Comment")
        (princ (strcat"\n" rdlin " after T2"))
      );if
  (close mnut2)
  (setq mnut3 (open (strcat pfx "_T3.MNU") "w"))
  (write-line rdlin mnut3)
  (setq rdlin (read-line mnuf))
  (while
    (not(eq "***Comment" (substr rdlin 1 10)))
    (progn
      (write-line rdlin mnut3)
      (setq prvln rdlin
            rdlin (read-line mnuf))
    )
  );while
      (if (eq (substr rdlin 1 10) "***Comment")
        (princ (strcat"\n" rdlin " after T3"))
      );if
  (close mnut3)
  (setq mnut4 (open (strcat pfx "_T4.MNU") "w"))
  (write-line rdlin mnut4)
  (setq rdlin (read-line mnuf))
  (while
    rdlin
    (progn
      (write-line rdlin mnut4)
      (setq rdlin (read-line mnuf))
    )
  );while
  (close mnut4)
  (close mnuf)
);defun