Popis

Append the run-time semantics given below to the current definition. Resolve the destination of all unresolved occurrences of LEAVE between the location given by do-sys and the next location for a transfer of control, to execute the words following the LOOP. Run-time: ( -- ) ( R: loop-sys1 -- | loop-sys2 ) An ambiguous condition exists if the loop control parameters are unavailable. Add one to the loop index. If the loop index is then equal to the loop limit, discard the loop parameters and continue execution immediately following the loop. Otherwise continue execution at the beginning of the loop.

See: DO, I.

Příklad použití

# $Id: dict-plus-store.ses,v 1.2 2003/12/28 18:21:58 radek Exp $
Gforth 0.6.2, Copyright (C) 1995-2003 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
VARIABLE v  ok
8 v !  ok
4 v +!  ok
v @ . 12  ok
BYE 

Kód slova v Qurtus Forthu