!++

!++

!>

!+

!++

* !++ ( addr x -- addr' )

Store the value _x_ into _addr_, and increment the address
by one cell.

 : !++  ( addr x -- addr' )  OVER !  CELL+ ;

forth_usual ordinary primitive