license
zero ( --0)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	0 CONSTANT zero
 	 
one ( --1)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	1 CONSTANT one
	 
two ( --2)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	2 CONSTANT two
	 
three ( --3)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	3 CONSTANT three
	 
four ( --4)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	4 CONSTANT four  
	 
eight ( --8)

Traditionally forths have redefined common used numbers as words, this system provides the words

   
	8 CONSTANT eight  
	 
4dup

Duplicate the top four stack items.

 
	: 4dup  ( a b c d -- a b c d )
		2OVER 2OVER 
	;
	 
jump

Third stack item copied to the top.

 
	.S .( jump)
	: jump ( a b c -- a b c a )  
		two PICK 
	;
	 
char!

Can't write size independent character code without this word.

   
	: char! ( addr -- character )
		C!
	;  inline \ renamed zero over head
	 
char@

Can't write size independent character code without this word.

   
	: char@ ( addr -- character )
		C@
	; inline
	 

You use CHAR top get from characters to bytes, you use byte>char get from bytes to char

 
	: bytes>chars ( n -- n2)
	; inline