/* ------------------------------------------------ */
/* Final Writer Arexx Macro - Add HTML image Code   */
/* This macro will Place image 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
		Type "<IMG SRC="
		FontColor Blue
		Type ".gif"""
		FontColor Red
		Type " ALT=""A Picture"" >"
		FontColor Black
		Type " "
		MoveToLine BeginLine BeginPosition+9
		FontColor Blue
		Type """http://www."
		EXIT
		END

	FontColor Blue
	MoveToLine BeginLine BeginPosition
	FontColor Red
        Type "<IMG SRC="""
	FontColor Blue
	Type "http://www."
        Font "times_bold"
	MoveToLine BeginLine EndPosition+22
	FontColor Red
        Type """   ALT ="" A Picture"" >" 
	FontColor Black
	Type " "
	MoveToLine BeginLine BeginPosition+21
	FontColor Blue