(DEFUN C:UPDM ( / linlst)
  (SETQ menfil (strcat(ustr 1 "Menu file to update" "" nil)".mnu"))
  (SETQ fndmnu (findfile (STRCAT "U:/MENUS/" menfil)))
  (setq waitic "|" 
        ticsid 1
        pltcnt 0)
  (IF fndmnu
    (PROGN
      (SETQ opnfil (OPEN fndmnu "r"))
    (if
      (SETQ opofil (OPEN (STRCAT "U:/MENUS/U" menfil) "w"))
        (PROGN
          (PRINC (STRCAT "U:/MENUS/U" menfil " created. "))
          (WHILE
            (SETQ linerd (READ-LINE opnfil))
            (princ (strcat "\010" waitic))
            (cond
              ((and(eq waitic "|")(eq ticsid 1))(setq waitic "/"))
              ((eq waitic "/")(setq waitic "-" ticsid 2))
              ((eq waitic "-")(setq waitic "|"))
              ((and(eq waitic "|")(eq ticsid 2))(setq waitic "\\"))
              ((eq waitic "\\")(setq waitic "|" ticsid 1))
            )
            (IF
              (OR
                (EQ (substr linerd 3 11)
            "[Laser Plot"
                )
                (EQ (substr linerd 3 11)
            "[Laser Plot"
                )
                (EQ (substr linerd 3 11)
            "[Laser Plot"
                )
                (EQ (substr linerd 3 11)
            "[Laser Plot"
                )
                (EQ (substr linerd 3 9)
            "[JDL Plot"
                )
              )
              (IF
                (EQ (substr linerd 3 9)
            "[JDL Plot"
                )
                (WRITE-LINE "  [Batch plot...]^c^c(if c:bplot nil (load \"bplot\" \"File BPLOT.LSP not found! \")) (c:bplot);" opofil)
              )
              (progn
                (WRITE-LINE linerd opofil)
              )
            )
          )
          (CLOSE opnfil)
          (CLOSE opofil)
          (princ "\Done updating file. ")
        )
        (PRINC (STRCAT "Failed to create U:/MENUS/U" menfil))
      )
    )
  )
  (princ)
)