(defun C:create-download-txt( / file_list list-abc list-bs list-dat list_a put-file)
  
  (load_global_variable)
  (setq list-abc (list "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x"))
  (if(setq put-file (getfiled "Выбор файла станций и дат" (getvar "DWGPREFIX")  "txt" 0))
    (progn
      (setq file_list(file_read_to_list put-file))
      (setq list-bs (convert-string-to-list-be-delimiter (car file_list) "\t"))
      (setq list-dat (convert-string-to-list-be-delimiter (cadr file_list) "\t"))
      (foreach x list-bs
	(foreach y list-dat
	  (foreach z list-abc
	    (setq list_a
		   (append list_a
			   (list
			     
			     (strcat "http://eft-cors.ru/rinex/" x "/" x y z ".16o.zip")
			     )))
	    )
	  )
	)
      
      (file_write_list_to_file (strcat put-file ".txt") list_a)
      )
    )
  (princ)
  )