Dim buff%(4096/8)
Dim CRLF$ = Chr$(13) + Chr$(10)
Dim b$ = "GET /v1/result?appid=myappid&i=How+far+is+Los+Angeles+from+New+York%3f HTTP/1.1"
Inc b$,CRLF$+ "Host: api.wolframalpha.com" + CRLF$+ "User-Agent: WebMite" + CRLF$
Inc b$, "Accept: text/plain" + CRLF$+ "Connection: close" + CRLF$ + CRLF$
Print b$
WEB OPEN TLS CLIENT "api.wolframalpha.com", 443
WEB TCP CLIENT REQUEST b$, buff%(), 20000
Pause 1000
LongString print buff%()
WEB CLOSE TCP CLIENT

' Wolfram Alpha "short answer" client for WebMite.
' Prompts for an English-language question, sends it to the v1/result
' endpoint over TLS, prints whatever the server returns as the answer body.
'
' Requires:
'   - WebMite firmware with TLS enabled (RP2350)
'   - WiFi already configured and connected
'   - Your own Wolfram AppID  replace APPID$ below
option web messages off
Const APPID$ = "myid"
Const HOST$  = "api.wolframalpha.com"
Const CRLF$  = Chr$(13) + Chr$(10)

Dim buff%(8192/8)
Dim question$

Print "Wolfram Alpha client  blank line to quit"
Print

Do
 Line Input "Ask: ", question$
 If question$ = "" Then Exit Do
 Print Ask$(question$)
 Print
Loop

End

' --------------------------------------------------------------------------
' Ask$    send one question, return the answer body (or an error string)
' --------------------------------------------------------------------------
Function Ask$(q$)
 Local req$, Integer hdr_end

 req$ = "GET /v1/result?appid=" + APPID$ + "&i=" + UrlEncode$(q$) + " HTTP/1.1" + CRLF$
 Cat req$, "Host: " + HOST$ + CRLF$
 Cat req$, "User-Agent: WebMite" + CRLF$
 Cat req$, "Accept: text/plain" + CRLF$
 Cat req$, "Connection: close" + CRLF$ + CRLF$

 LongString clear buff%()

 On Error Skip 1
 WEB OPEN TLS CLIENT HOST$, 443, 15000
 If MM.Errno <> 0 Then
   Ask$ = "[connection failed: " + MM.ErrMsg$ + "]"
   Exit Function
 EndIf

 WEB TCP CLIENT REQUEST req$, buff%(), 15000
 Pause 1000
 WEB CLOSE TCP CLIENT
 ' Split headers from body at the blank line (CRLF CRLF).
 hdr_end = LInStr(buff%(), CRLF$ + CRLF$)
 If hdr_end = 0 Then
   Ask$ = "[malformed response]"
   Exit Function
 EndIf

 Ask$ = LGetStr$(buff%(), hdr_end + 4, LLen(buff%()) - hdr_end - 3)
End Function

' --------------------------------------------------------------------------
' UrlEncode$    percent-encode a string for use in a URL query value
' --------------------------------------------------------------------------
Function UrlEncode$(s$)
 Local Integer i, c
 Local out$
 For i = 1 To Len(s$)
   c = Asc(Mid$(s$, i, 1))
   Select Case c
     Case 48 To 57, 65 To 90, 97 To 122      ' 0-9  A-Z  a-z
       Cat out$, Chr$(c)
     Case 45, 46, 95, 126                    ' - . _ ~
       Cat out$, Chr$(c)
     Case 32                                 ' space -> '+'
       Cat out$, "+"
     Case Else                               ' everything else -> %XX
       Cat out$, "%" + RIGHT$("0" + HEX$(c), 2)
   End Select
 Next i
 UrlEncode$=out$
End Function