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

struct SerLibBase	*SerLibBase;
struct SerStatus ss;
struct SerLibData	*sld;
void *OpenLibrary();

char buf[2048];
ULONG len;
main()
{
	SerLibBase=(struct SerLibBase *)OpenLibrary((UBYTE *)"serlib.library",3L);
	sld=(struct SerLibData *)OpenSerial((UBYTE *)"serial.device",0L,2400L,8L,1L,(ULONG)(SERF_7WIRE|SERF_SHARED));
	if (!sld) printf("Couldn't open...");
	else {
		ChangeData(sld,2400L,8L,1L,(ULONG)(SERF_RAD_BOOGIE|SERF_7WIRE|SERF_SHARED));
		WriteSer(sld,"AT$\r",4L);
		Delay(20L);
		GetStatus(sld,&ss);
		printf("Bytes unread: %ld\nStatus: %lx\n",ss.ss_unread,ss.ss_status);
		Delay(20L);
		WriteSer(sld," ",1L);
		Delay(20L);
		GetStatus(sld,&ss);
		printf("Bytes unread: %ld\nStatus: %lx\n",ss.ss_unread,ss.ss_status);
loop:
		len=ReadSer(sld,buf,2040L);
		buf[len]='\0';
		printf("%s",buf);
		GetStatus(sld,&ss);
		if (ss.ss_unread>0) goto loop;
		CloseSerial(sld);
	}
	CloseLibrary(SerLibBase);
}