Emacs Lisp

;;;	elisp.el	(C) under GPL at 1999, AtH//HPG@hMoscow
;;
;; Type: "M-x load-file elisp.l"  to load this program,
;;       "C-x C-a"                to run it.
;; 
(defun ASCII_Table () "Insert ASCII Table in text.
Type \\[ASCII_Table] to insert a good ASCII Table in active buffer." 
  (interactive)  (newline)  (insert "   0 1 2 3 4 5 6 7 8 9 a b c d e f")
  (let ((i 2))
    (while (< i 8) (newline)  (insert (number-to-string i) "0")
      (let ((j 0)) (while (< j 16) (insert " " (+ (* i 16) j))
                                   (setq j (+ j 1))
                   )
      )
      (setq i (+ i 1))
    )
  )
)

(global-set-key "\C-x\C-a" 'ASCII_Table)

: hscool@netclub.ru