/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	pp_AvoidRefresh

	pp_UpdateUndo

	texte=""

	pp_GetApen
	Aclr=result

	pp_ClosestColorD Aclr 80
	C0=result

	pp_SetApen C0
	pp_TextEffect 1 1
	pp_textMake texte
	pp_TextDraw x y

	pp_SetApen Aclr
	pp_TextEffect 0 1
	pp_TextMake texte
	pp_TextDraw x y

	pp_TextEffect 2 2
	pp_textMake texte
	pp_TextDraw x+1 y+1


	pp_PermitRefresh