loForm = Createobject('Form')

with loForm as Form
	.addobject('myComm', 'ComReader')
	.Show(1)
endwith

DEFINE CLASS ComReader AS OLEControl 
	OLECLASS = 'MSCOMMLib.MSComm.1'
	poComReader = NULL
	pclastreading = ''
	FUNCTION mInitialize
		susp
		*This.poComReader = CREATEOBJECT('MSCOMMLib.MSComm')
		WITH This
			.Rthreshold = 1
			.CommPort = 8
			.Settings = "9600,N,8,1"
			.InputLen = 20
			.PortOpen = .T.
		ENDWITH
	ENDFUNC	
	Procedure OnComm
		lcInput = CHRTRAN(This.Input, CHR(13),  '')
		lcInput = CHRTRAN(lcInput, CHR(10),  '')
		lcInput = CHRTRAN(lcInput, '*',  '')
		*!* Check if it's the same scan then ignore
		IF This.pcLastReading == lcInput
			RETURN ''
		ENDIF	
		This.pcLastReading = lcInput
		RETURN lcInput
	ENDPROC
	FUNCTION Destroy
		if This.PortOpen
			This.PortOpen = .F.
		endif
	ENDFUNC	
ENDDEFINE