'ESP-01S Test
option explicit          'forces you to declare variables. Good programming practice!
dim dat$                      'declare dat$
SETPIN gp0, gp1, com1         'allocate pins for COM1
OPEN "com1:115200 as #5"      'open COM1 for access at 11500 baud to buffer number 5
PRINT#5, "AT"+chr$(13)+chr$(10)   'send "AT"+CR+LF to the ESP-01S
pause 100                     'give it time to respond
dat$=INPUT$(loc(#5),#5)       'receive characters from buffer 5 up to last character
PRINT dat$                    'display what we've received
CLOSE #5                      'close the receive buffer


You should see:
AT


busy p...

OK

>

' ESP01 Test Program

'Option EXPLICIT

SetPin GP25,DOUT
SetPin gp17,gp16,com1
'SetPin GP2,dout ' ESP01 Reset

Const qu$=Chr$(34)
Const SSID$=qu$ + "YourSSID" + qu$
Const PWD$=qu$ + "YourPassword" + qu$
Const HOSTNAME$=qu$ + "Picomite" + qu$
IP$=""
Const TREQ$="+CIPSNTPTIME"
Const SNTP1$=qu$ + "0.pool.ntp.org" + qu$
Const SNTP2$=qu$ + "time.google.com" + qu$


' Full Reset ESP01
'Pin(GP2)=0
'Pause 100
'Pin(GP2)=1

Open "com1:115200" As #1
ans$=ESP01("AT")
ans$=ESP01("AT+CWMODE=3")
ans$=ESP01("AT+CWHOSTNAME="+HOSTNAME$)
ans$=ESP01("AT+CWJAP="+SSID$+","+PWD$)
ans$=ESP01("AT+CIPSTA?")
ans$=ESP01("AT+CIPSNTPCFG=1,-5," + SNTP1$ + "," + SNTP2$)
For x=1 To 5
 Pause 1000 ' wait for NTP
 ans$=ESP01("AT"+TREQ$+"?")
 If ans$="OK" Then Exit For
Next x
ans$=ESP01("AT+CWQAP")
Close #1

Print HOSTNAME$
Print IP$
Print Time$
Print "... Done ..."

Function ESP01(cmd$) As string
 Print cmd$
 Print #1,cmd$
 ans$=ESPInput(10000)

 Do
   ans$=ESPInput(20000)
   Print ans$

   If Left$(ans$,11)="+CIPSTA:ip:" Then
     IP$=Right$(ans$,Len(ans$)-11)
   EndIf

   If Left$(ans$,12)=TREQ$ Then
     If Mid$(ans$,25,8)="00:00:00" Then
       ans$=ESPInput(10000) ' Clear OK msg
       ans$="ERROR"
       Print ans$
     Else
       Time$=Mid$(ans$,25,8)
       Date$=GetDate(ans$)
     EndIf
   EndIf
 Loop Until (ans$="OK" Or ans$="ERROR")

 ESP01 = ans$
End Function

Function ESPInput(timeout%) As string
 Local ret$,c$
 Timer =0
 Do
   c$=Input$(1,1)
   If c$<>Chr$(&HA) Then
     If c$=Chr$(&HD) Then Exit
     ret$=ret$ + c$
   EndIf
 Loop Until Timer>timeout%
 If Timer>timeout% Then
   Print "Time Out"
   ret$=""
 EndIf

 ESPInput=ret$
End Function

Function GetDate(ans$) As string
 Local j%

 j%=(Instr("JanFebMarAprMayJunJulAugSepOctNovDec",Mid$(ans$,18,3))-1)/3+1
 GetDate=Mid$(ans$,22,2)+"/"+Str$(j%)+"/"+Mid$(ans$,34,4)
End Function