/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	pp_AvoidRefresh

	pp_UpdateUndo

	pp_GetApen
	Aclr=result

	pp_GetBpen
	Bclr=result

	pp_ClosestColor 0 0 0
	black=result
	pp_SetApen black

	texte=""

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

	pp_TextEffect 0 5
	pp_SetApen Bclr
	pp_TextMake texte
	pp_TextDraw x y

	pp_TextEffect 2 1
	pp_SetApen Aclr
	pp_TextMake texte
	pp_TextDraw x-1 y-1

	pp_PermitRefresh