/* StringWithHex
  (c) ValeraVi
  http://www.ValeraVi.tk
  --------------------------------------
  This  macro  in the string mode parses 
  argument list for special combinations 
  $XX  and replaces them with 0xXX hex number
*/

var j;
main()
{
	var t;
	j=0;
	while( j < get_message_length() )
	{
		t = body(j);
		putx(t);
		j = j+1;
	};
	flush();
	return 0;
}

body()
{
	var t, k;
	t = get_message_at(j);

	if(t==0x24)
	{
		if( j+2 < get_message_length() )
		{
			k = get_message_at(j+1);
			k = k - 0x30;
			if(k > 0x09)
			{
				k = k - 0x07;
			};
			if(k > 0x0F)
			{
				k = k - 0x20;
			};
			t = k * 0x10;
			k = get_message_at(j+2);
			k = k - 0x30;
			if(k > 0x09)
			{
				k = k - 0x07;
			};
			if(k > 0x0F)
			{
				k = k - 0x20;
			};
			t = t + k;
			j = j + 0x02;
		};
	};
	return t
}