RosettaCodeData/Task/Enumerations/Forth/enumerations-1.fth

5 lines
57 B
Forth

0 CONSTANT apple
1 CONSTANT banana
2 CONSTANT cherry
...