diff --git a/6502/Atari8bit/3.81.4/savesys.fth b/6502/Atari8bit/3.81.4/savesys.fth
new file mode 100644
index 0000000..62a1c22
--- /dev/null
+++ b/6502/Atari8bit/3.81.4/savesys.fth
@@ -0,0 +1,18 @@
+: SAVESYSTEM
+  $FFFF      $600 !
+  ORIGIN 8 - $602 !
+  HERE       $604 !
+  FILE" W/O OPEN-FILE DROP 
+  DUP $600 6 ROT 
+  WRITE-FILE ( save header ) DROP
+  DUP ORIGIN 8 - HERE 
+      ORIGIN 8 - - 1+ ROT 
+  WRITE-FILE DROP
+  $02E0      $602 !
+  $02E1      $604 !
+  ORIGIN 8 - $606 !
+  DUP $602 6 ROT 
+  WRITE-FILE DROP 
+  CLOSE-FILE DROP ;
+
+' SAVESYSTEM ALIAS SAVE-SYSTEM