Code:

DEF VAR a AS LOGICAL FORM "x/t".
DEF VAR b AS LOGICAL.

REPEAT:
UPDATE a.
ASSIGN b = a.
DISP b.
END.


/*********************************************/

result??

a b
- ---
t no
x yes
t yes
x

Progress OE 10