(defun el ()
(setq t5 (getreal "\nEnter Contour Elevation..."))
(setq str1 (getreal "\nEnter Increement Value..."))
(princ)
)
(defun c:cont (/ str1 t5)
(prompt "\nCommand : Assigning Contour Levels")
(setvar "cmdecho" 0)
(el)
(setvar "osmode" 512)
(setq str2 nul)
(while (/= str2 "/")
 (setq str2 (getstring "\nReturn for String Selection or / for eXit :\n"))
 (if (= str2 "/")
  (progn
  (princ "End of Selection..\n")(PRIN1)
  )
   (progn
   (setq t1 (getpoint "\nSelect Contour String..\n"))
  ; (setq t2 (cadr t1))
   (setq t4 (- t5 (caddr t1)))
   (setq t6 (list 0.0 0.0 t4))
   (setq t7 (list 0 0 0))
   (setq t5 (+ t5 str1))
   (setq t8 (strcat "Next Elevation...." (rtos t5 2 2)))   
   (command "move" t1 "" t7 t6)(prin1)
   (command "change" t1 "" "p" "c" "m" "")(prin1)
   (princ t8)(prin1)
 ) )                                                        ; end of if
)                                                           ; end of while
(setvar "osmode" 0)(prin1)
)                                                           ; end of program