Error when inputting ASCII text from COM port

[mdijkens]

I will confess, I have never used a SUB or a FUNCTION (MBASIC & GW_BASIC mostly), so I guess I need to noodle out how to put this into one of them, and stick it somewhere... Oh well, the learning never stops.

Sorry, this came from a function I've created that also processed the bytes received.
You can delete that Static line

Use of function:

Code: (Select All)

serialin$ = checkSerial$()





Function checkSerial$()

  receivedBytes$ = ""

  Dim As String * 1 byte

  Do While Loc(1) <> 0

    Get #1, , byte

    receivedBytes$ = receivedBytes$ + byte

  Loop

  checkSerial$ = receivedBytes$

End Function