diff --git a/fth-mode.el b/fth-mode.el
new file mode 100644
index 0000000..6ad47d5
--- /dev/null
+++ b/fth-mode.el
@@ -0,0 +1,30 @@
+(defvar fth-mode-hook nil)
+
+(defvar fth-mode-map
+  (make-keymap)
+  "fth-mode keymap.")
+
+;;;#autoload
+(add-to-list 'auto-mode-alist '("\\.f" . fth-mode))
+
+(defconst fth-font-lock-keywords-1
+  (list (regexp-opt (cons '("if" ":" ";" "then" "loop" "do" "?do" "while" "until" "begin") 'font-lock-builtin-face)))
+  "Highlighting for fth-mode.")
+
+(defvar fth-mode-syntax-table
+  (let (st (make-syntax-table))
+    (modify-syntax-entry ?_ "w" st)
+    (modify-syntax-entry ?- "w" st)))
+
+(defun fth-mode ()
+  "Major mode for editing Forth code."
+  (interactive)
+  (kill-all-local-variables)
+  (set-syntax-table fth-mode-syntax-table)
+  (use-local-map fth-mode-map)
+  (set (make-local-variable 'font-lock-defaults) '(fth-font-lock-keywords-1))
+  (setq major-mode 'fth-mode)
+  (setq mode-name "4th")
+  (run-hooks 'fth-mode-hook))
+
+(provide 'fth-mode)