/* ------------------------------------------------ */
/* Final Writer Arexx Macro - Add HTML anchor Code  */
/* This macro will Place anchor markers either side */
/* of text that is highlighted                      */
/* $VER: HTML.anchor   Ver 2.0 (19.9.95)            */
/* ------------------------------------------------ */
Options Results

Status LinePos


Parse VAR Result BeginLine BeginPosition EndLine EndPosition

IF 	( WORDS(Result) = 2 ) THEN DO
		FontColor Red
		Font "softsans"
		Type "<A HREF="""">"
		FontColor Black
		Type " blah"
		FontColor Red
		Type "</A>"
		FontColor Black
		Type " "
		MoveToLine BeginLine BeginPosition+9
		FontColor Blue
		Type "http://www."
		EXIT
		END

	MoveToLine BeginLine BeginPosition
	FontColor Red
        Type "<A HREF="""
	FontColor Blue
	Type "http://www."
	FontColor Red
        Type """>"          
        MoveToLine EndLine EndPosition+22
	FontColor Red
        Type "</A>"          
	FontColor Black
	Type " "
        MoveToLine BeginLine BeginPosition+20
	FontColor Blue