1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
|
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
|
-
+
-
+
-
-
+
|
in the program, but they will interfere if the same loop is reentrant on the
same object or other objects of the same class), and then resetting the Done
flag of all objects at the given (x,y) coordinates. If upflag is false, then
it starts at the top, and if true, starts at the bottom. At the beginning of
the <body>, the found object is on the stack; you can then use or store it.
Once "next" is reached, it finds the next object and goes back.
if <truepart> [el <cond> if <truepart> ...] [else <falsepart>] then ( bool -- )
if <truepart> [else <falsepart>] then ( bool -- )
Takes a boolean value from the stack. If true, then <truepart> is executed;
otherwise it tries the other parts; "el" means to execute <cond> and take
otherwise it tries the other parts; "else" means always do this if none of
another boolean, and continue; "else" means always do this if none of the
previous parts match.
|