Add core words
diff --git a/CORE.F b/CORE.F
index a965968..74aff9d 100644
--- a/CORE.F
+++ b/CORE.F
@@ -1,6 +1,32 @@
\ Core words for DOS FORTH
: NIP SWAP DROP ;
+: / /MOD NIP ;
+: MOD /MOD DROP ;
+
+: LITERAL IMMEDIATE ' LIT , , ;
+: [COMPILE] IMMEDIATE WORD FIND >CFA , ;
+: RECURSE IMMEDIATE LATEST , >CFA , ;
+
+\ Control structures
+
+\ cond IF <*b0> true ELSE false THEN rest
+: IF ( -- *then ) IMMEDIATE ' 0BRANCH , HERE @ 0 , ;
+
+: THEN ( *then -- *then ) IMMEDIATE
+ DUP HERE @ SWAP ( *then *then *here )
+ SWAP - ( *then *here-*then )
+ SWAP ! ;
+
+: ELSE ( *then -- *here ) IMMEDIATE
+ ' BRANCH ,
+ HERE @ ( *then *ph )
+ 0 ,
+ SWAP ( *ph *then )
+ DUP ( *ph *then *then )
+ HERE @ ( *ph *then *then *here )
+ SWAP - ( *ph *then diff )
+ SWAP ! ( *ph ) ;
DUMP-IMAGE FORTH.COM
BYE