X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_9_misc.4th;h=77776c853110d30f30cbe9965085445adee729c1;hb=698e6c176256cd3b3a4fa8a647feec57db3a8c14;hp=9078fc4d9a6cbed01713065203619a01e6ed2b47;hpb=90a9b8ad41a542c3ca7d150d4d1168cb8ec97b81;p=forth.jl.git

diff --git a/src/lib_9_misc.4th b/src/lib_9_misc.4th
index 9078fc4..77776c8 100644
--- 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 - ;