
(progn

  ;;
  ;; COOL! translations
  ;;

  (keyboard-translate 35 92)   ;; hash -> backslash
  (keyboard-translate 126 124) ;; tilde -> vertical bar
  (keyboard-translate 34 64) ;; doubled-quote -> ampersand
  (keyboard-translate 64 34) ;; ampersand -> doubled-quote
  (keyboard-translate 163 35) ;; poundsign -> hash
  (keyboard-translate 172 126) ;; notsign -> tilde

  )

(defun print-ascii-table ()
  (interactive)
  (progn
    (setq i 0)
    (while (< i 256)
      (insert (format "(%c %d)" i i))
      (incf i))))

;;;
;;; TODO: set environment vars
;;;
;;; PATH = c:\cygwin\bin;%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem
;;;
;;; HOME = c:\davins\
;;;

(provide 'cbhs)
