/* ------------------------------------------------ */
/* 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 "<A HREF="""
		FontColor Blue
		Type "mailto:"
		FontColor Red
		Type """ >"
		FontColor Black
		Type "Mail This Dude"
		FontColor Red
		Type "</A>"
		FontColor Black
		Type " "
		MoveToLine BeginLine BeginPosition+16
		FontColor Blue
		EXIT
		END

	FontColor Blue
	cut
	FontColor Red
	Type "<A HREF="""
	FontColor Blue
	Type "Mailto:"
	Paste
	FontColor Red
	Type """  >"
	Type "</A>"
	FontColor Black
	MoveToLine EndLine EndPosition+20
	FontColor Black
	Type " "
	EXIT