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