diff --git a/Makefile b/Makefile
index 7edcd12c..bce87f3a 100644
--- a/Makefile
+++ b/Makefile
@@ -26,7 +26,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       draw wl taa tj6 budd sharem ucode rvb kldcp math as imsrc gls demo \
       macsym lmcons dmcg hack hibou agb gt40 rug maeda ms kle aap common \
       fonts zork 11logo kmp info aplogo bkph bbn pdp11 chsncp sca music1 \
-      moon teach ken lmio1 llogo chsgtv clib sys3 lmio
+      moon teach ken lmio1 llogo chsgtv clib sys3 lmio turnip
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \
diff --git a/src/kmp/kmp.teco b/src/kmp/kmp.teco
new file mode 100644
index 00000000..4d82f3b7
--- /dev/null
+++ b/src/kmp/kmp.teco
@@ -0,0 +1,36 @@
+! -*- Teco -*- init file for KMP !
+
+-1 fs ^I Disable 
+et FILE > 
+
+fsxjname-(f6NT)"e oDone'
+
+fsxjname-(f6DUMPT)"e
+  fj j :s:"l ftUse JCL 164000.fsexit'
+  1fs fnam syntax
+  0,.k [1 hfx1 et KMP; DSK: FOO START  et 1  ]1
+  e? "n ftFile not found? 164000.fsexit'
+  "# fsdfile[1 fsrgetty"n@'ftReading file "1"...!''! ]1 '
+  er  @y hfx*fs^REnterw :i..L fsrgetty"n@'ftDumping... ew  @ej TS 
 
+  fsdfile[1 fsrgetty"n@'ftDumped to "1"!''!
+  164000.fsexit'
+
+fsxjname-(f6DUMPE)"e
+  fj j :s:"l ftUse JCL 164000.fsexit'
+  1fs fnam syntax
+  0,.k [1 hfx1 et KMP; DSK: FOO START  et 1  ]1
+  e? "n ftFile not found? 164000.fsexit'
+  "# fsdfile[1 fsrgetty"n@'ftReading file "1"...!''! ]1 '
+  er  @y fsrgetty"n@' ftAttempting to macro buffer... :m(hfx*)'
+
+@:iJ|
+  fsversion:\  [1
+  fsuname  :f6 [2
+  fsjname  :f6 [3
+  fsdfile      [4
+  :i..JTECO.1 (2 3) Default= 4   |
+qJ fsmode macro
+1fs mode change
+:i* mJ  fs ^R Display oDone'
+ 
+!Done! 0u..H 
diff --git a/src/turnip/view.1 b/src/turnip/view.1
new file mode 100644
index 00000000..e225e643
Binary files /dev/null and b/src/turnip/view.1 differ
diff --git a/src/turnip/view.start b/src/turnip/view.start
new file mode 120000
index 00000000..880f06db
--- /dev/null
+++ b/src/turnip/view.start
@@ -0,0 +1 @@
+turnip/view.comprs
\ No newline at end of file