RosettaCodeData/Task/Variable-size-Get/Forth/variable-size-get-1.fth

3 lines
91 B
Forth

: .CELLSIZE ( -- ) CR 1 CELLS . ." Bytes" ;
VARIABLE X ( creates a variable 1 cell wide)