/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	pp_AvoidRefresh

	pp_UpdateUndo

	pp_GetApen
	clr=result

	texte=""

	pp_ClosestColor 0 0 0
	black=result

	pp_TextEffect 0 1
	pp_TextMake texte
	pp_TextDraw x y	
	
	pp_SetApen black
	pp_TextEffect 2 1
	pp_TextMake texte

	pp_EffectOn
	pp_Airbrush 90 5
	pp_TextDraw x-2 y-2
	pp_EffectOff

	pp_SetApen clr

	pp_TextDraw x y



	pp_PermitRefresh