/*
**  $VER: Guide-Underline 0.04 (24 Sep 1996)  **
**
**        © 1996 Claus Dilly
**
**  PROGRAMNAME:
**      Guide-ULine
**
**  FUNCTION:
**      Wandelt ein markiertes Wort so um, das es im Guide im
**      STIL Underline angezeigt wird
**
**  $HISTORY:
**
**  24 Sep 1996 :    0.04 : bugfix
**  23 Sep 1996 :    0.03 : rewritten for GoldED V4.x
**  05 Nov 1995 :    0.02 : neue Funktion
**                          es wird nun der INSERT-Mode abgefragt
**  05 Nov 1995 :    0.01 : initial release
*/
OPTIONS RESULTS                             /* enable return codes     */
arg doComment                               /* set to TRUE for header  */
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: ------------------- */

QUERY DOC;DBASE=RESULT
IF ~Open(Datei,DBASE,"R") THEN DO
   CALL ENDE
END
ELSE DO
  res=WORD(UPPER(readln(Datei)),1)
  IF res~="@DATABASE" THEN DO
     'REQUEST PROBLEM "   Der geladene Text hat|nicht das AmigaGuide-Format"'
     CALL CLOSE(Datei)
     CALL ENDE
  END
  CALL CLOSE(Datei)
END

'QUERY INSERT'
INSERTMODE=RESULT
IF (result = 'FALSE') THEN DO
   'SET INSERT TOGGLE'
END
'QUERY MARKED'
IF (result = 'FALSE') THEN DO
   'REQUEST PROBLEM "Sie müssen zuerst einen Text markieren"'
END
ELSE DO
   'QUERY WRAP';WRAPPER=RESULT
   IF (RESULT = 'FALSE') THEN SET WRAP TRUE
   'GOTO BFIRST'
   'TEXT T="@{u}"'
   'GOTO BLAST'
   'RIGHT'
   'TEXT T="@{uu}"'
   'MARK HIDE'
   'SET WRAP WRAPPER'
END
/* ---------------------------- END OF YOUR CODE --------------------- */

ENDE:
SET INSERT INSERTMODE
'UNLOCK' /* VERY important: unlock GUI */
EXIT

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