/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	Border=2

	pp_AvoidRefresh

	pp_DialogInit 150 55 "*BiColor*" 1
		pp_Integer 0 60 5 50 16 "Border" 1 Border
	pp_Dialog
	rc=result
	if rc=0 then
		do
			pp_PermitRefresh
			EXIT
		end	

	pp_UpdateUndo	
		
	pp_GetDialog 0
	Border=result

	pp_UpdateUndo

	pp_GetApen
	Aclr=result

	pp_GetBpen
	Bclr=result

	texte=""

	pp_SetApen Bclr
	pp_TextEffect 0 2
	pp_TextMake texte
	pp_TextDraw x y

	pp_SetApen Aclr
	pp_TextEffect 2 Border
	pp_TextMake texte
	pp_TextDraw x y

	pp_PermitRefresh