\begin{verbatim}
;; emacs.rc -- initialization file for gnu-emacs
;;

(setq default-major-mode 'text-mode)      ; default major mode set to text mode
(setq ctl-arrow "dummy")                  ; set to non-nil for 8 bit characters
(setq meta-flag 't)                       ; Allow <alternate> to work as <meta>
(load "/dev/D/gnu/e-lisp/term/atari.el")  ; define function keys (user path dependent)
(load "/dev/D/gnu/e-lisp/st/dos-mode.el") ; load mess-dos-mode (user path dependent)

;; define utility functions
;;
(defun toggle-dos-mode ()    ; This is used in the binding of DOS mode to F10
     (interactive)
     (setq dos-mode (not dos-mode))
     (set-buffer-modified-p (buffer-modified-p)))
(defun display-mem ()
  (interactive)
  (message "Memory usage: %d bytes free, %d bytes used (%d%%)"
         data-bytes-free data-bytes-used
            (/ (* data-bytes-used)
              (/ (+ data-bytes-used data-bytes-free) 100))))

;; Do keyboard binadings, Must be done after term/atari is loaded
;;
(define-key function-keymap  "\C-a" 'display-mem)     ; F1  key 
(define-key function-keymap  "\C-b" 'goto-line)       ; F2  key
(define-key function-keymap  "\C-c" 'what-line)       ; F3  key
(define-key function-keymap  "\C-j" 'toggle-dos-mode) ; F10 key
(define-key function-keymap  "I"    'overwrite-mode)  ; Insert key
\end{verbatim}