;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	e-mail hfrancis@pinehurst.net
;;;	All rights reserved.
;;;
;;;	Copyright: 
;;;	   Edited: 
(defun c:midi ()
  (if middir nil
    (setq middir (dos_dir "c:/midis/*.mid"))
  )
  (STARTAPP"C:/WINNT/SYSTEM32/MPLAY32.EXE" (strcat "c:/midis/"(car middir)))
  (if(>(length middir)1)
    (setq middir (cdr middir))
    (setq middir nil)
  )
)