' Test WiFi Client. Connect to TCP/IP server, get data
' Rev 1.0.0 William M Leue, 1/10/2021

option default integer
option base 0

const DQUOTE = 34
const NETNAME$ = "xxxxxxx"
const PASSWORD$ = "yyyyyyyy"
const SIP$ = "192.168.1.8"
const SPORT = 5678
const ENTER = 13

dim COM_PORT$ = "COM1" ' replace with COM1 or COM2
dim COM_SPEED$ = "115200" ' replace with baud rate
dim CHAR_OUT$
dim CHARS_IN$
dim a = 0
dim cmd$ = ""

cls
open COM_PORT$+":"+COM_SPEED$+","+"256"+",get_serial_input" as #1
print "Terminal running, press ESC to exit."

' See if the WiFi controller responds
cmd$ = "AT"
print #1, cmd$
pause 300

' Try to Set WiFi mode
cmd$ = "AT+CWMODE=3"
print #1, cmd$
pause 300

' Try to connect to local Wifi network
cmd$ = "AT+CWJAP=" + chr$(DQUOTE) + NETNAME$ + chr$(DQUOTE)
cat cmd$, "," + chr$(DQUOTE) + PASSWORD$ + chr$(DQUOTE)
print #1, cmd$
pause 500

' Try to connect to local TCP/IP Server
cmd$ = "AT+CIPSTART=" + chr$(DQUOTE) + "TCP" + chr$(DQUOTE) + ","
cat cmd$, chr$(DQUOTE) + SIP$ + chr$(DQUOTE) + "," + str$(SPORT)
print #1, cmd$
end if
pause 10000

' Try to close TCP/IP Connection
cmd$ = "AT+CIPCLOSE"
print #1, cmd$
pause 300

close #1
end

' ISR to get incoming data from connection
sub get_serial_input
 CHARS_IN$ = input$(LOC(#1),#1)
 print CHARS_IN$;
 a = asc(CHARS_IN$)
 if a = ENTER then
   print ""
 end if
end sub

ATW"[SSI],[PASSWORD]" : Connects to the wireless access point with the given SSI, using the given password.

ATD"[HOSTNAME]:[PORT]" : This opens a streaming connection between the terminal and the given host/port. Use "+++" to disconnect and exit back to command mode.