port = &h70

Sub startup
'open I2c and start the display
I2C open 200, 100
I2C write port, 0, 3, &H21, &HA0, &H83
End Sub

Sub shutdown
'close i2c
I2C close
End Sub

'Print "start"
'startup
'clear
'00000001 = bottom
'00001000 = top
'01000000 = center
'00010000 = rt
'00100000 = rb
'00000100 = lt
'00000010 = lb

dim digits(16)
digits(0)=&B10111111
digits(1)=&B00110000
digits(2)=&B01011011
digits(3)=&B01111001
digits(4)=&B01110100
digits(5)=&B01101101
digits(6)=&B01101111
digits(7)=&B00111000
digits(8)=&B01111111
digits(9)=&B01111100
digits(10)=&B01111110
digits(11)=&B01100111
digits(12)=&B01000011
digits(13)=&B01110011
digits(14)=&B11001111
digits(15)=&B01001110

Sub printValue(val)
' print a 4 digit number
digit1 = val \ 1000
digit2 = val Mod 1000 \ 100
digit3 = val Mod 100 \ 10
digit4 = val Mod 10

a = digits(digit4)
b = digits(digit3)
c = digits(digit2)
d = digits(digit1)

I2C write port, 1, 9, &H00, a, 0, b, 0, 0, 0, c,0
I2C write port, 1, 9, &H08, d,0,0,0,0,0,0,0
I2C write port, 0, 1, &H81
End Sub

Sub sendAndReceive(cmd$, result$)
' send command to esp8266 and wait for the result
Print cmd$
Print #1, cmd$
prevChrs = 0
chrs = 0
Do
Pause 400
Print ".";
prevChrs = chrs
chrs = Loc(#1)
Loop While chrs<>prevChrs Or chrs=0
Print
result$=Input$(chrs,#1)
Print result$
End Sub

Sub receive(result$)
' get data (if any) from the esp8266
If Loc(#1) <> 0 Then
prevChrs = 0
chrs = 0
Do
Pause 400
prevChrs = chrs
chrs = Loc(#1)
Loop While chrs<>prevChrs Or chrs=0

result$=Input$(chrs,#1)
Print result$
EndIf
End Sub


ssid$="C.I.A."
pw$="yourpasswordhere"
q$=Chr$(34)

startup
Open "com1:9600" As #1
sendAndReceive("ATE0", answer$)
sendAndReceive("AT", answer$)

join$="AT+CWJAP="+q$+ssid$+q$+","+q$+pw$+q$
sendAndReceive(join$, answer$)

sendAndReceive("AT+CIFSR", answer$)
sendAndReceive("AT+CIPMUX=1", answer$)
sendAndReceive("AT+CIPSERVER=1,9000")
sendAndReceive("AT+CIPSTO=120", answer$)
sendAndReceive("AT+CIFSR", answer$)

' main loop. look for messages from wifi, parse and display
do
answer$ = ""
receive(answer$)
sizePos = instr(1, answer$, "+IPD,0,")
If sizePos <> 0 Then
answer$=Mid$(answer$, sizePos+7)
If answer$ <> "" Then
colonPos = instr(1, answer$, ":")
msgLen=Val(Mid$(answer$,1,colonPos-1))
msg$=Mid$(answer$,colonPos+1,msgLen)
print msg$
printValue(Val(msg$))
EndIf
EndIf
loop while msg$<>"0000"

print "Closing"
close #1
shutdown

0,CONNECT

+IPD,0,3:1240,CLOSED

AT version:0.21.0.0
SDK version:0.9.5