\ 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 ) ;

IMG-DUMPED

DUMP-IMAGE FORTH.COM

BYE