'-------------------------------------------------------------------------------
' Seetron BPK 261 with Serial panel Demo for BX24 MCU
' BX24demo modified to show how easy it is to output to an LCD
' First Program tried on BX24 by me
' I used by Parallax Board of Education, BX24 and Seetron LCD for this example
' I output the serial data through P0 (pin 5 on the BX24).  Provided Vdd and Vss to panel as well
' Worked without a hitch
' 
' Jim McMurry
' jmcmurry@mediatonic.com
' 
'-------------------------------------------------------------------------------
Dim OutBuffer(1 To 30) As Byte
Dim InBuffer(1 To 15) As Byte
'-------------------------------------------------------------------------------
Sub Main()

    	Dim Toggle As Boolean
    	Toggle = True
    	Call OpenQueue(OutBuffer, 30)
    	Call OpenQueue(InBuffer, 15)
	Call DefineCom3(6, 5, bx1011_1000)
	Call OpenCom(3,9600,InBuffer, OutBuffer)
    Call Delay(0.5)
    Do
        Call PutQueueStr(OutBuffer, " Hello")
        If (Toggle) Then
            Call PutQueueStr(OutBuffer, " BX-24 ")
        End If
        Toggle = Not Toggle
        Call Delay(0.5)
	  Call PutQueueStr(OutBuffer, Chr(254))
	  Call PutQueueStr(OutBuffer, Chr(1))
    Loop

End Sub