/* $VER: 1.0, ©1993 Klaus Wissmann. NoReflow */

OPTIONS RESULTS                             /* enable return codes     */

if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
    address 'GOLDED.1'

'LOCK CURRENT'                              /* lock GUI, gain access   */
OPTIONS FAILAT 6                            /* ignore warnings         */
SIGNAL ON SYNTAX                            /* ensure clean exit       */


/* ------------------------ INSERT YOUR CODE HERE: ------------------- */

QUERY USER1 var erg

if erg="FALSE" then
do
    SET USER 1 VALUE TRUE
    shell
    'Setenv REFLOW "False"'
    shell
end
else
do
    SET USER 1 VALUE FALSE
    shell
    'Unsetenv REFLOW'
    shell
end

/* ---------------------------- END OF YOUR CODE --------------------- */

'UNLOCK' /* VERY important: unlock GUI */
EXIT

SYNTAX:

SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
EXIT