Microsoft Small Basic

Program Listing: BVV136

List Program

' Serial Port Monitor
status = LDCommPort.OpenPort("COM3",9600)
LDCommPort.SetEncoding("Ascii")
LDCommPort.DataReceived = OnDataReceived
While "True"
Program.Delay(200)
EndWhile

Sub OnDataReceived
TextWindow.Write(LDCommPort.RXAll())
EndSub