: CHAR WORD DROP C@ ;

: TAB 9 EMIT ;
: LF 10 EMIT ;
: SPACE 32 EMIT ;

: BANNER "JumpForth version " .S VERSION . ", by Jesse McDonald" .S LF ;

: [ FALSE STATE ! ; IMMEDIATE
: ] TRUE STATE ! ; IMMEDIATE

: POSTPONE WORD FINDERR , ; IMMEDIATE

: COMPILE, , ;

: ['] [ ' LIT , ' LIT , ] , ' , ; IMMEDIATE

: LITERAL ['] LIT , , ; IMMEDIATE

: IF ['] 0BRANCH , HERE 0 , ; IMMEDIATE
: THEN HERE OVER - SWAP ! ; IMMEDIATE
: ELSE POSTPONE THEN ['] BRANCH , HERE 0 , ; IMMEDIATE

: BEGIN HERE ; IMMEDIATE
: AGAIN ['] BRANCH , HERE - , ; IMMEDIATE

CREATE VAR 123 , DOES> @ ;
: VAR! [ ' VAR >BODY ] LITERAL ! ;

BANNER