Functionally complete implementation.

[forth.jl.git] / src / lib_9_misc.4th

diff --git a/src/lib_9_misc.4th b/src/lib_9_misc.4th
index 9078fc4..77776c8 100644 (file)
--- a/src/lib_9_misc.4th
+++ b/src/lib_9_misc.4th
@@ -24,5 +24,9 @@
         then
 ;
 
+( Stractch pad. )
+: PAD           ( -- addr )
+        HERE 340 + ;
+
 : UNUSED  ( -- cells )
         MEMSIZE HERE - ;