(DEFUN l:\util\lsp:TS ()
  (SETVAR "CMDECHO" 0)
  (SETQ
    OLD (SSGET)
    TYP (STRCASE (GETSTRING "\nChange
      text A)ngle, H)eight, W)idth, or
      S)tyle, O)bliquing: "))
    CO -1
    T2 "T"
  )
  (COND
    ((= "H" TYP)
      (SETQ
        X 40
        HT (GETREAL "\nNew height: ")
      )
    )
    ((= "A" TYP)
      (SETQ
        X 50
        HT (* PI (/ (GETREAL "\nNew
          angle: ") 180.0))
      )
    )
    ((= "O" TYP)
      (SETQ
        X 51
        HT (* PI ( / (GETREAL "\nNew
            obliquing angle: ") 180.0))
      )
    )
    ((= "W" TYP)
      (SETQ
        X 41
        HT (GETREAL "\nNew width: ")
      )
    )
    ((= "S" TYP)
      (SETQ
        X 7
        HT (GETSTRING "\nNew style: ")
      )
    )
  )
  (WHILE (BOUNDP 'T2)
    (PROGN
    (SETQ
      CO (1+ CO)
      TEMP (ENTGET (SSNAME OLD CO))
      OLDHT (ASSOC X TEMP)
      NEWHT (CONS X HT)
      NEWTEXT (SUBST NEWHT OLDHT TEMP)
      T2 (SSNAME OLD (1+ CO)))
      (ENTMOD NEWTEXT)))
      (SETQ TEMP "FINISHED"))