Click above to get retro games delivered to your door ever month!

  UPDATE...IFCHAR                                           Pseudo-Function
 Purpose..: Update an item only if another is a code block
-------------------------------------------------------------------------------
 Syntax...: UPDATE <bBl1> IFBLOCK <bBl2> [ TO <bBl3> ]

 Arguments: <bBl1>    = a variable to be updated.

            <bBl2>    = an item which is checked to ensure
                        it is a code block. Then it is
                        assigned to <bBl1>. If not, then
                        <bBl1> is set to NIL.

            [<bBl3>]  = if used, then it, rather than <bBl2>,
                        is assigned to <bBl1>.

 Remark...: The command is a #translate function.

               #command UPDATE <v1> IFBLOCK <v2> ;
                        => ;
                  iif( valtype( <v2> ) == "B", <v1> := <v2>, NIL )

               #command UPDATE <v1> IFBLOCK <v2> TO <v3> ;
                        => ;
                  iif( valtype( <v2> ) == "B", <v1> := <v3>, NIL )

            You must have a #include "FW_AIDS.CH" statement in your
            source code file to use the command.

 Source...: FW_AIDS.CH
-------------------------------------------------------------------------------
 Example..: To show the command, the block is to
            be updated if bBloce is a code block.
            ...
            UPDATE  bBlock IFBLOCK bBloce TO { || IsItABlock() }