RosettaCodeData/Task/Dynamic-variable-names/Forth/dynamic-variable-names.fth

4 lines
88 B
Forth

s" VARIABLE " pad swap move
." Variable name: " pad 9 + 80 accept
pad swap 9 + evaluate