(defun C:DHLINE (/ CHOOSE TRUE PT1 PT2 LINTYP )
  (setvar "cmdecho" 0)
  (setq CHOOSE T
        TRUE nil
  )
  (menucmd "S=X")
  (menucmd "S=CHLT")
  (while CHOOSE
    (setq LINTYP (getstring "\nEnter line type: "))
    (if (/= LINTYP "?")
      (setq CHOOSE nil)
      (setq TRUE T)
    )
  )
  (while TRUE
    (command "LINETYPE" "?" "")
    (command)
    (setq LINTYP (getstring "\nEnter line type: "))
    (if (/= LINTYP "?")
      (progn
        (setq TRUE nil)
        (graphscr)
      )
    )
  )
  (command "LINETYPE" "S" LINTYP "")
  (menucmd "S=X")
  (menucmd "S=LINE")
  (setq TRUE T
        PT1 (getpoint "\nEnter First Point:")
  )
  (while TRUE
    (setq PT2 (getpoint PT1 "\nEnter Next Point:"))
    (if PT2
      (progn
        (command "LINE" PT1 PT2 "")
        (setq PT1 PT2)
      )
      (setq TRUE nil)
    )
  )
  (command "LINETYPE" "S" "CONTINUOUS" "")
  (repeat 4
    (menucmd "S=")
  )
  (princ)
)