/* (c) Copyright 1987 Michael Goetz																				*/
/*																				*/
/*				File:		  	encryp										*/
/*				Returns:	  	byte											*/
/*				Parameters:	char word - plain text					*/
/*								char ptr - key								*/
/*																				*/


#include "advm.h"


char encryp(word,ptr)
char word;
char ptr;

{
	return ((word+ptr) ^ 0x75);
}