$regfile = "m1284pdef.dat"
$crystal = 9830400
$framesize = 500
$hwstack = 500
$swstack = 500


dim x as byte
dim y as byte
dim z as byte


declare function testone() as string
declare function testtwo() as string



  do

       x = testone()
       y = testtwo()



  loop


  '*************************************************
  function testone() as string

      if z =1 then
        'do nothing

      end if

  end function

 '****************************************************
  function testtwo() as string
      if z= 2 then
        'do nothing

      end if

  end function

$regfile = "m1284pdef.dat"
$crystal = 9830400
$framesize = 500
$hwstack = 500
$swstack = 500


dim x as byte
dim y as byte
dim z as byte


declare function testone() as string
declare function testtwo() as string



  do

       x = testone()
       y = testtwo()



  loop


  '*************************************************
  function testone() as string

      if z =1 then
        'do nothing

      endif       'THIS IS THE TYPO THAT CAUSED THE ISSUE

  end function

 '****************************************************
  function testtwo() as string
      if z= 2 then
        'do nothing

      end if

  end function

 

 '*******************************************************************************
$regfile = "m1284pdef.dat"                            
$crystal = 9830400                                          
$framesize = 800                                          
$hwstack = 550                                              '
$swstack = 550
$frameprotect = 1
config submode = old                                      
$include "config_mmcsd_hc.bas"                              
$include "config_AVR-DOS.BAS"
$PROG &HFF , &HC7 , &HD0 , &HFD
 '==============================================================================

Declare Function Cleanupstring(byval Sourcestring As String) As String
Declare Function Davis_wind_direction() As String
Declare Function Davis_wind_speed() As String
declare function find_bootloader() as string
Declare Function Get_rssi() As String
Declare Function Getmeterresponse(byval metercommandstr As String) As String
declare function mic_check() as string
Declare Function Mypi_battery_soc() As Single
Declare Function Noise_profile(byval Parameterstr As String) As String      
Declare Function pi_response(byval picommandstr As string) As string    '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Code explorer doesnt like this
declare Function quick_sd_card_check() As Byte
Declare Function Send_http_head(byval Serveraddr As String) As String
Declare function TCP_connect(byval Myserver As String * 50 , byval Myport As Integer) as byte
declare function verify_SLMtime(byval slmtime as string) as string
Declare Function Verify_time(byval Responsestr As String) As String
Declare function Waitfortelitresponses_sec(byval Respstr As String * 30 , byval Resptimeoutb As Byte) as byte
Declare Function Waituntil(byval Respstr1 As String , byval Respstr2 As String , byval Abortstr As String , byval Resptimeoutb As Byte) As String
Declare Function Whoru() As String
Declare Sub Append_dummynoise()
Declare Function Cleanupstring(byval Sourcestring As String) As String
Declare Function Davis_wind_direction() As String
Declare Function Davis_wind_speed() As String
declare function find_bootloader() as string
Declare Function Get_rssi() As String
Declare Function Getmeterresponse(byval metercommandstr As String) As String
declare function mic_check() as string
Declare Function Mypi_battery_soc() As Single
Declare Function Noise_profile(byval Parameterstr As String) As String
Declare Function pi_response(byval picommandstr As string) As string
declare Function quick_sd_card_check() As Byte
Declare Function Send_http_head(byval Serveraddr As String) As String
Declare function TCP_connect(byval Myserver As String * 50 , byval Myport As Integer) as byte
declare function verify_SLMtime(byval slmtime as string) as string
Declare Function Verify_time(byval Responsestr As String) As String
Declare function Waitfortelitresponses_sec(byval Respstr As String * 30 , byval Resptimeoutb As Byte) as byte
Declare Function Waituntil(byval Respstr1 As String , byval Respstr2 As String , byval Abortstr As String , byval Resptimeoutb As Byte) As String
Declare Function Whoru() As String
Declare Sub Append_dummynoise()

 '*****************************************************

Function pi_response(picommandstr As String) As String

      Local Q As Byte                                       'number of char received
      Local Tempstr7 As String * 100
      Local Td As Long

  #if Pi_fitted = 1
'(
      This function runs a command and returns the response to the caller

      *******  VALID PI COMMANDS   *********
      upload,1   pi free to send audio files to the server
      upload,0  inhibit uploads to server
      status?    get status. bloody slow response from pi
      shutdown  tell pi to shutdown in an orderly manner. takes 30s
      pitakeboth    take camera image + audio recording    
      ssh,0
      ssh,1
      ppp,0  
      ppp,1
      startrecord,xx   start a recording xx seconds long
      stoprecord
      bitrate,nn   nn = 8,12,16,24,
      register,phonenumber     in format  "%2b64275404773"
      Philips terminators:
      after all echos  $$ <CR>
      after all data ##   <CR>

      ')


      Tempstr7 = ""

      Td = Local_secl + 10                                  '10 secs

      If picommandstr <> "" Then
         Print #7 , picommandstr                            'send cmd to pi ser port


         Do

            Rxbyte = Inkey(#8)                              '#8 is pi sw uart ser port
            If Rxbyte <> 0 Then
               Tempstr7 = Tempstr7 + Chr(rxbyte)
            End If

         Loop Until rxbyte = 35 or Local_secl >= Td         ' 35 = #  expected terminator

         Delchars Tempstr7 , 32                              'remove spaces

         If Tempstr7 <> "" Then
            Print #1 , ">> Pi said:" ; Tempstr7
         Else
            Print #1 , ">> no response from pi"
            Tempstr7 = "no response from pi"
         End If


         pi_response = Tempstr7                              'return the response
      end if

  #endif

End Function


 '******************************************************