if (loc(#2)<>0) and (GotCR=0) then
c=asc(input$(1,#2))
select case c
case >31 ' anything after a space we want. everything else is discarded
buf$=buf$+chr$(c)
case 13 ' end of a line
GotCR=1
end select
endif

IF LOC(#2) > 0 THEN SERIAL2 'If data in Com1 then GOSUB Serial2
END IF

IF LOC(#2) > 0 THEN SERIAL2 'If data in Com1 then GOSUB Serial2
D$=""
END IF

OPTION AUTORUN ON 'Autorun upon power up (after first run)
option explicit
Dim Esp$ = "" 'Serial 2 ESP8266 input string
Dim EspCmd% = 0 'Serial 2 ESP8266 line received flag
Dim Count% = 0 'Counter to put stuff on screen
Open "COM2:9600, 1024", EspIsr As #2 'Open port for ESP8266
' *** Start of Main Program ***
Do
' *** Check Serial Ports for Data ***
If EspCmd% = 1 Then 'Complete ESP line received
Print 'Start new line after printing waiting ****
Count% = 0 'Reset count to start waiting message again
Print Esp$ 'Print line to check it
'Add processing for line received here
Esp$ = "" 'Clear line ready for next one to come in
EspCmd% = 0 'Clear line received flag so we can get next line
Else
'Just print something to show we are running
If Count% = 0 Then Print "Waiting: " ;
Count% = 1
Print "*" ; 'Print * to keep it short on same line
Pause 250 'Might cause issues with serial port buffering
End If
Loop
' *** COM 2 Input ***
Sub EspIsr ' serial port 2 ESP8266 interrupt handler
Local T$ length 10
If EspCmd = 0 Then 'Dont get more if previous line not handled
T$ = Input$(1,#2) 'Get data into temp buffer
Print "ESP char: " T$ " Received" 'Just to check for other unwanted chars
Select Case T$
Case Chr$(13)
EspCmd% = 1 'Set flag to say we have finished this line
Else
Esp$ = Esp$ + T$ 'Add new char to ESP input string
End Select
End If
End Sub
End