(defun c:zwert (/ file zeile)
  (setq file (getfiled "Verzeichnisliste" "" "" 2))
  (if file
    (progn
      (setq file (open file "r"))
      (while (setq zeile (read-line file))


(setq LISTE (read(strcat "(" (vl-string-left-trim "0"zeile) ")")))

  (if
  	(or
    		(= (nth 3 LISTE) 140)
    		(= (nth 3 LISTE) 150)
  	) ;or

    (progn
     	(setq zw (nth 6 LISTE))
	(setq ztw (strcat (rtos zw 2 2)))
    ) ;progn  
    (print "\n Keine Höhenbeschriftung" )
  
) ;if
   
	(command "Text"
   		(list
     		 (nth 4 LISTE)
      		 (nth 5 LISTE)
      		 (nth 6 LISTE)
                ) "" "" ztw)
 


      (close file)
      )
    (alert "Keine Datei gewählt!")
    )
  )

       ) ;cond