#include "serlibbase.h"
#include "serlib.h"

struct SerLibBase	*SerLibBase;
struct SerStatus ss;
struct SerLibData	*sld;

char buf[2048];
ULONG len;
main()
{
	SerLibBase=(struct SerLibBase *)OpenLibrary("serlib.library",3L);
	sld=OpenSerial("serial.device",0,2400,8,1,(ULONG)(SERF_RAD_BOOGIE|SERF_7WIRE|SERF_SHARED));
	if (!sld) printf("Couldn't open...");
	else {
		ChangeData(sld,2400,8,1,(ULONG)(SERF_RAD_BOOGIE|SERF_7WIRE|SERF_SHARED));
		printf("`.' to exit...\n> ");
		scanf("%s",buf);
		while (buf[0]!='.') {
			strcat(buf,"\r\n");
			if (CheckCD(sld))
				printf("Got a carrier!\n");
			printf("Current unread: %ld\n",SerBuffer(sld));
			SendSer(sld,buf,strlen(buf));
			WaitSer(sld,0L);
			Delay(20);
loop:
			len=SerBuffer(sld);
			if (len>1040) len=1040;
			RecvSer(sld,buf,len);
			WaitSer(sld,0L);
			buf[len]='\0';
			printf("%s",buf);
			GetStatus(sld,&ss);
			if (ss.ss_unread>0) goto loop;
			printf("> ");
			scanf("%s\n",buf);
		}
		CloseSerial(sld);
	}
	CloseLibrary(SerLibBase);
}