void	CommPak::CheckRxTmr()
{
	char buff[65]; // Last byte reserved for 0 terminator
	
	while (CommPort.ReadDataWaiting() > 16) {
		int bytes_read = CommPort.ReadData(buff, 64);
		buff[bytes_read] = 0;
		esText.Insert(esText.GetLength(), buff);		
	}
}

void ReadSerialData(int packet_size, DocEdit *edit) {
	char buff[65]; // Last byte reserved for 0 terminator
	
	for (;;) {
		while (CommPort.ReadDataWaiting() > 16) {
			int bytes_read = CommPort.ReadData(buff, 64);
			buff[bytes_read] = 0;
			{ 
				GUILock _; // This locks the GUI thread (until end of scope) 
						   // so that we can safely update the Ctrl
				edit->Insert(edit->GetLength(), buff);		
			}
		}
	}
}

CoWork().Do(THISBACK2(ReadSerialData(16, &esText));

void	CommPak::SetupComms()
{
int Cnt;
int Port,Baud;

	WithCommSetup<TopWindow>	CommSetup;

	// stop the timer before changing anything
	if (ExistsTimeCallback(idRxTimer))
	{
		KillTimeCallback(idRxTimer);
		PromptOK("Killed the timer");
	}

	// if the port is open, close it
	if (CommPort.IsOpened())	CommPort.Close();
	
	CtrlLayoutOKCancel(CommSetup, "Setup Comms");
	for (Cnt=1;Cnt < 9;Cnt++)
		CommSetup.dlPort.Add(Format("COM%d",Cnt));
	CommSetup.dlBaud.Add("1200");
	CommSetup.dlBaud.Add("2400");
	CommSetup.dlBaud.Add("4800");
	CommSetup.dlBaud.Add("9600");
	CommSetup.dlBaud.Add("19200");
	
	CommSetup.dlPort = "COM6";	// choose to display COM6
	CommSetup.dlBaud= "9600";	// and 9600 baud
	
	if (CommSetup.Execute() == IDOK)
	{
		Port = CommSetup.dlPort.GetIndex()+1;
		Baud = CommSetup.dlBaud.GetIndex();
		DUMP(Port);
		DUMP(Baud);
		
		// Now open the port at the baud rate
		if (!CommPort.Open(Port,Baud))
			PromptOK(Format("Cannot open COM%d",Port));
		else
		{
			PromptOK(Format("COM%d opened successfully",Port));
			SetTimeCallback(-100,THISBACK(CheckRxTmr), idRxTimer);
		}		
	}
}