/* $VER: 1.0, ©1998 Dietmar Eilert */

options results                             /* enable return codes     */

if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */

    address 'GOLDED.1'

'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */

if (RC ~= 0) then

    exit

options failat 6                            /* ignore warnings         */

signal on syntax                            /* ensure clean exit       */

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

'INSERT LINE'
'TEXT STAY T="; error handling"'
'DOWN'
'CR'

'INSERT LINE'
'TEXT STAY T="(onerror"'
'DOWN'
'CR'

'INSERT LINE'
'TEXT STAY T="    (if (> @ioerr 0)"'
'DOWN'
'CR'

'INSERT LINE'
'TEXT STAY T="        ("'
'DOWN'

'INSERT LINE'
'TEXT STAY T="            (message"'
'DOWN'
'CR'

'INSERT LINE'
'TEXT STAY T="                (*"An error has occurred during installation. Please check the log file to understand the error.*")"'
'DOWN'

'INSERT LINE'
'TEXT STAY T="            )"'
'DOWN'

'INSERT LINE'
'TEXT STAY T="        )"'
'DOWN'

'INSERT LINE'
'TEXT STAY T="    )"'
'DOWN'
'CR'

'INSERT LINE'
'TEXT STAY T="    (exit (quiet))"'
'DOWN'

'INSERT LINE'
'TEXT STAY T=")"'
'DOWN'
'CR'

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

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

exit

SYNTAX:

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

'UNLOCK'

exit