forth-stuff/codetest.forth

13 lines
194 B
Plaintext
Raw Normal View History

2021-05-29 03:50:58 +00:00
: EGGSIZE
DUP 18 < IF 1 . ELSE
DUP 21 < IF 2 . ELSE
DUP 24 < IF 3 . ELSE
DUP 27 < IF 4 . ELSE
DUP 30 < IF 5 . ELSE
-1 .
THEN THEN THEN THEN THEN DROP ;
23 EGGSIZE
29 EGGSIZE
40 EGGSIZE