/*
**  $VER: startup.ged 0.001 (29 Mar 1996)
**
**  © 1996 Stefan Berendes
**
**  PROGRAMNAME:    startup.ged
**
**  FUNCTION:       additional startup for GoldED
**
**  $HISTORY:
**
**  29 Mar 1996 : 000.001 : initial release
**
**  NOTES:          this is my private startup file. I don't expect you
**                  to like my config names, so change them if you want.
*/  

OPTIONS RESULTS                             /* enable return codes     */

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

OPTIONS FAILAT 22
RC = 1
DO UNTIL RC = 0
    'LOCK CURRENT'
    END

OPTIONS FAILAT 6                            /* ignore warnings         */
SIGNAL ON SYNTAX                            /* ensure clean exit       */


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

IF Exists("env:GoldED") = 0 THEN DO
    ADDRESS COMMAND "makedir env:GoldED"
    ADDRESS COMMAND "copy quiet golded:presets/Stefan#? env:GoldED/"
END

'QUERY ANYTEXT'
IF RESULT = TRUE THEN DO
    'QUERY PATH'
    'DIR NEW '|| RESULT
    'RX MACRO="GoldED:ARexx/ReConfig.ged env:GoldED/Stefan"'
    END

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

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

SYNTAX:

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