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

5 lines
141 B
Forth

: CONSTANTS ( n -- ) 0 DO I CONSTANT LOOP ;
\ resistor digit colors
10 CONSTANTS black brown red orange yellow green blue violet gray white