* DO ( end start -- ) ... LOOP pushes $end and $start onto the return-stack ( >R ) and starts a control-loop that ends with LOOP or +LOOP and may get a break-out with LEAVE . The loop-variable can be accessed with I
DO
( end start -- )
... LOOP
>R
LOOP
+LOOP
LEAVE
I
FORTH/ANS core (dpANS.6.1.1240) compiling primitive