More simple Forth-Standard words

[TG9541]

FS	implementation
>BODY	: >BODY ( xt -- a-addr ) 3 + ;
ALIGN	no op
ALIGNED	no op
C"	`' $" ALIAS C"
CELL+	' 2+ ALIAS CELL+ ( c-addr1 -- c-addr2 )
CELLS	' 2* ALIAS CELLS ( n1 -- n2 )
CHAR+	' 1+ ALIAS CHAR+ ( c-addr1 -- c-addr2 )
CHAR	: CHAR ( "char" -- c ) BL WORD CHAR+ C@ ;
CHARS	no op
[CHAR]	: [CHAR] ( "name"<spaces -- ) CHAR POSTPONE LITERAL ; IMMEDIATE
COMPILE,	' CALL, ALIAS COMPILE, ( xt -- )
ENVIRONMENT?	: ENVIRONMENT? ( c-addr u -- false ) 2DROP 0 ;
FALSE	' 0 ALIAS FALSE ( -- false )
INVERT	' NOT ALIAS INVERT ( x1 -- x2 )
J	like I (won't work with FOR ... NEXT)
RSHIFT	like LSHIFT ( n1 u -- n2 )
STATE	kludge using STATE? and a variable stateflag
TO	limited to writable dictionary, like VALUE
TRUE	' -1 ALIAS TRUE ( -- true )