++
* ++ ( addr -- )

Increment the value at _addr_.
 : ++  ( addr -- )  1 SWAP +! ;

FORTH/BASE forth_usual ordinary primitive