Option Explicit
dim Com3Out(1 to 40) as byte
dim Com3In as byte
	const BackLite as byte = 20
	const ClearLCD as byte = 12
	const Cursor as byte = 17
	
Public Sub InitDisplay()
	call defineCom3(0,5,&h88)
	call openqueue(Com3Out,40)
	call opencom(3,9600,Com3In,Com3Out)
	call sleep(500)						'wait for display to initialize
	call PutQueueStr(Com3Out,chr(BackLite) & Chr(0))
	call PutQueueStr(Com3Out,chr(ClearLCD))
End Sub

public sub ClearDisplay()
	call PutQueueStr(Com3Out,chr(ClearLCD))
End Sub

public sub Display(ByVal Message as string)
 	call PutQueueStr(Com3Out,Message)
end sub

public sub BacklightOn()
	call PutQueueStr(Com3Out,chr(BackLite) & Chr(255))
end sub

public sub BacklightOff()
	call PutQueueStr(Com3Out,chr(BackLite) & Chr(0))
end sub

public sub SetCursor(byval x as byte,byval y as byte)
	call PutQueueStr(Com3Out,chr(Cursor)&chr(x)&chr(y))
end sub