fetch-plus-plus:forth_usual — ordinary primitive
FORTH
@++ ( addr -- addr' x )(
)
Fetch the value _x_ from _addr_, and increment the address by one cell.
: @++ ( addr -- addr' x ) DUP CELL+ SWAP @ ;