char
getesc()
{
 return buffer[1];
}

unsigned long
get_event()
{
 WaitPort(myWindowPtr->UserPort);
	myMsg=(struct IntuiMessage*)GetMsg(myWindowPtr->UserPort);
	class=myMsg->Class;
	code=myMsg->Code;
	qual=myMsg->Qualifier;
	intui_adr=myMsg->IAddress;
	id=((struct Gadget *)intui_adr)->GadgetID;
	mx=myMsg->MouseX;
	my=myMsg->MouseY;
	ReplyMsg(myMsg);
	return class;
}

unsigned char
getkey()
{
 static struct InputEvent myEvent;
	long ln;

	myEvent.ie_NextEvent=0;
	myEvent.ie_Class=IECLASS_RAWKEY;
	myEvent.ie_Code=code;
	myEvent.ie_Qualifier=qual;
	ln=RawKeyConvert(&myEvent,buffer,10l,0l);
	if(!ln)return 0;
	return *buffer;
}