Anonymous user
m (→FOREACH) |
m (→FOREACH) |
||
Line 1,280:
<lang forth>: FOREACH ( array size XT --)
>R \ save execution token on return stack
CELLS BOUNDS \
BEGIN
2DUP > \ test addresses
|