RosettaCodeData/Task/Enumerations/Forth/enumerations-7.fth
2023-07-01 13:44:08 -04:00

4 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