char ebcasc(str, count)
char *str;
unsigned count;
	{
	static char asc[256] = {0, 
	    1, 2, 3, '.', 9, '.', 0x7f, '.', '.', /* 0  */
	    '.', 0xb, 0xc, 0xd, 0xe, 0xf, 0x10, 0x11, 0x12, 0x13, /* 10 */
	    '.', '.', 8, '.', 0x18, 0x19, '.', '.', 28 , 29 , /* 20 */
	    30 , 31 , '.', '.', '.', '.', '.', 0xa, 23 , 27 , /* 30 */
	    '.', '.', '.', '.', '.', 5  , 0x6, 0x7, '.', '.', /* 40 */
	    22 , '.', '.', '.', '.', 4  , '.', '.', '.', '.', /* 50 */
	    20 , 21 , '.', 26 , ' ', '.', '.', '.', '.', '.', /* 60 */
	    '.', '.', '.', '.', '[', '.', '<', '(', '+', '!', /* 70 */
	    '&', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 80 */
	    ']', '$', '*', ')', ';', '^', '-', '/', '.', '.', /* 90 */
	    '.', '.', '.', '.', '.', '.', '|', ',', '%', '_', /* 100 */
	    '>', '?', '.', '.', '.', '.', '.', '.', '.', '.', /* 110 */
	    '.', '.', ':', '#', '@', '\'', '=', '"', '.', 'a', /* 120 */
	    'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', '.', '.', /* 130 */
	    '.', '.', '.', '.', '.', 'j', 'k', 'l', 'm', 'n', /* 140 */
	    'o', 'p', 'q', 'r', '.', '.', '.', '.', '.', '.', /* 150 */
	    '.', '~', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', /* 160 */
	    '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 170 */
	    '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', /* 180 */
	    '.', '.', '{', 'A', 'B', 'C', 'D', 'E', 'F', 'G', /* 190 */
	    'H', 'I', '.', '.', '.', '.', '.', '.', '}', 'J', /* 200 */
	    'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', '.', '.', /* 210 */
	    '.', '.', '.', '.', '\\', '.', 'S', 'T', 'U', 'V', /* 220 */
	    'W', 'X', 'Y', 'Z', '.', '.', '.', '.', '.', '.', /* 230 */
	    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', /* 240 */
	    '.', '.', '.', '.', '.', '.'};	/* 250 */
	while (count--)
		{
		*str = asc[*str];
		++str;
		}
	}

int ascebc(str, count)
char *str;
unsigned count;
	{
	static char ebc[128] = {0, 
	1,2,3,55,45,46,47,
	22,5,37,11,12,13,14,15,
	16,17,18,19,60,61,50,38,
	24,25,63,39,28,29,30,31,
	64,79,127,123,91,108,80,125,
	77,93,92,78,107,96,75,97,
	240,241,242,243,244,245,246,247,
	248,249,122,94,76,126,110,111,
	124,193,194,195,196,197,198,199,
	200,201,209,210,211,212,213,214,
	215,216,217,226,227,228,229,230,
	231,232,233,74,224,90,95,109,
	75,129,130,131,132,133,134,135,
	136,137,145,146,147,148,149,150,
	151,152,153,162,163,164,165,166,
	167,168,169,192,106,208,161,7
	    };
	while (count--)
		{
		*str = ebc[*str];
		++str;
		}
	}

.