diff --git a/CORE.F b/CORE.F
index 67607a1..a965968 100644
--- a/CORE.F
+++ b/CORE.F
@@ -1,6 +1,6 @@
 \ Core words for DOS FORTH
 
-: / /MOD SWAP DROP ;
-: A 10 ;
+: NIP SWAP DROP ;
 
-A . BYE
+DUMP-IMAGE FORTH.COM
+BYE