/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	pp_AvoidRefresh

	pp_UpdateUndo

	pp_GetApen
	Aclr=result

	pp_ClosestColor 0 0 0
	C0=result

	texte=""

	pp_SetApen Aclr
	pp_TextEffect 0 1
	pp_TextMake texte
	pp_TextDraw x y

	pp_TextEffect 1 4
	pp_TextMake texte
	pp_TextDraw x y	

	pp_TextEffect 1 1
	pp_SetApen C0
	pp_TextMake texte
	pp_EffectOn
	pp_Airbrush 90 5
	pp_TextDraw x y
	pp_EffectOff

	pp_SetApen Aclr
	pp_TextEffect 2 4
	pp_TextMake texte
	pp_TextDraw x y	
	


	pp_PermitRefresh