(defun play-region (min max)
  (interactive "r")
  (write-region min max "/dev/audio")
;  (message "Wrote %d bytes to /dev/audio" (- max min))
)

(defun play-buffer (buf)
  (interactive "bPlay buffer: ")
  (save-excursion
    (switch-to-buffer buf)
    (play-region (point-min) (point-max))
  )
)

(defun play-file (file)
  (interactive "fPlay audio file name: ")
  (save-window-excursion
    (find-file file)
    (play-region (point-min) (point-max))
    (bury-buffer)
  )
)

(defun vt52-key ()
  (interactive)
  (play-file "~hopkins/sounds/key")
)

(defun vt52-bell ()
  (interactive)
  (play-file "~hopkins/sounds/bell")
)

(shell)
(rename-buffer "csh")

(split-window-vertically)
(shell)
(rename-buffer "psh")
(goto-char (point-max))
(insert-string
 "psh -i\n"
)
(shell-send-input)

;(play-file "~hopkins/sounds/yeah")
(message "WELCOME TO EMACS!!!")
(goto-char (point-max))
(other-window 1)
(goto-char (point-max))