RosettaCodeData/Task/Variable-size-Set/Forth/variable-size-set.fth

create cvar 0 c, \ char size variable

variable var \ cell size variable

2variable 2var \ 2 cells size variable

fvariable fvar \ float size variable