(setq fil "c:\\customlisp\\CustomLisp.Dat")
(princ)
;;; Begin Loading of Custom Lisp Files
;;; get file count in customlisp.dat
(setq x (open fil "r") ct 0)
	(while (read-line x)
	  (setq ct (1+ ct))
	)
(close x)
(setq y (open fil "r") rt 0)
(setq ccinfo "... Contact CAD Coordinator #4855")
(while (< rt ct)
  (setq filenom (read-line y))
     (if (/= (vl-file-systime filenom) nil)
  	(load (findfile filenom) (strcat "\n" filenom " not found " ccinfo))
  	(prompt (strcat "\n" filenom " not found " ccinfo))
     )
  (setq rt (1+ rt))
)
(close y)
(princ)