4 if ( flag -- ) (immideate)
\r
5 "if 1.. else 2.. then" or
\r
6 "if 1.. then" construction. Conditional execution.
\r
7 Performs "1.." if "flag" was true,
\r
8 elseway performs "2.." if exist. Execution continues after
\r
10 ex: 1 if ." nonzero" else ." zero" then
\r
12 >= ( n1 n2 -- result ) true if (n1 = n2) or (n1 > n2)
\r
13 ex: 5 3 >= if ." first number is greater or equal" then
\r
15 <= ( n1 n2 -- result ) true if (n1 = n2) or (n1 < n2)
\r
16 = ( n1 n2 -- result ) true if n1 = n2
\r
18 do ( count -- ) (immideate)
\r
19 "do .. loop" construction. Performs ".." "count" times.
\r
20 In every step "count" is decareased until it is 0.
\r
21 ex: : test 5 do i .d loop ;
\r
24 doexit ( -- ) exit from "do .. loop"
\r
26 for ( count top -- ) (immideate)
\r
27 "for .. loop" construction. Performs ".." (top - count) times.
\r
28 In every step "count" is incareased until it reaches "top" .
\r
29 ex: : test 4 10 for i .d loop ;
\r
32 forexit ( -- ) exit from "for .. loop"
\r
34 until ( -- ) (immideate)
\r
35 "until .. loop" construction. Performs ".." until flag become
\r
36 true. False by default. Top of return stack holds flag.
\r
38 done ( -- ) exit from "until .. loop"
\r