;SEZNAM HLADIN, PRUTY/TRAMY
(setq  k 0 hlad nil i 0 t 1)
(tblnext "LAYER" k)
(while (/= k nil)
       (setq k (cdr(assoc 2(tblnext "LAYER"))))
       (if (and(/= k nil)(/= k "PRUTY")(/= k "TRAMY")(/= k "CISLAU")
           (/= k "CISLAP"))
           (setq hladiny (append hladiny
           (list k ))))
       (setq t nil))

(if (= typ "S")(progn
    
     (while (< i(length hladiny))
           (setq typs nil)
      (setq typs (strcase(substr (setq hla(nth i hladiny)) (strlen hla) 1)))
      (while (and (/= typs "P") (/= typs "T"))
        (prompt (strcat " \n Obsahuje hladina " (setq hla (nth i hladiny))
                                  " (P)ruty nebo (T)rámy ?"))
        (setq typs (strcase (getstring)))
      )
     (setq hlad (append hlad (list (list hla typs))))
     (setq i (1+ i))
      )
               )
(progn
     (setq i 0)
      (while (< i (length hladiny))
                (setq hlad(append hlad (list(list (nth i hladiny) typ)))
                      i (1+ i))
       )

) )