logautoclosemode 1
filename = 'C:\Users\marceloferreira\Desktop\Experiment\'
beep 2
messagebox 'Mark GPS position of Tx !' 'Attention!!!'

inputbox 'Environment identifier!' 'Place name:'
strconcat filename inputstr
gettimetimeval "−−%d_%m_%Y−−%H_%M_%S"
strconcat filename timeval
logopen filename 0 0
do
  inputbox 'Position identifier!' 'GPS marker:'
  logwrite 'GPS marker:'
  logwrite inputstr

  logpause
  sendln ' Testing before beginning '
  :Testing
  beep 1
  sendln 'radiotest rx 0x8000 1 255'
  waitln 'Rx completed '

  sendln 'radiotest stat'
  waitln 'Radio Test Statistics:'
  sendln
  waitln
  sendln
  waitln 'radiotest rx 0x0400 1 255'
  'Rx completed'

  'radiotest stat'
  'Radio Test Statistics:'
  sendln
  waitln
  sendln
  waitln 'radiotest rx 0x0020 1 255'
  'Rx completed'

  'radiotest stat'
  'Radio Test Statistics:'
  sendln 'radiotest rx 0x0001 1 255'
  waitln 'Rx completed'
  sendln 'radiotest stat'
  waitln 'Radio Test Statistics:'
  beep 3
  yesnobox 'Do you want to test again?' 'Testing ...'
  if result then
    goto Testing
  endif

  logstart

  for i 1 3
    beep 1
    sendln 'radiotest rx 0x0001 15 255'
    waitln 'Rx completed '
    sendln 'radiotest stat '
    waitln 'Radio Test Statistics:'
    sendln
    waitln
    sendln
    waitln 'radiotest rx 0x0020 15 255'
    'Rx completed '
    ' radiotest stat '
    ' Radio Test Statistics:'
    sendln
    waitln
    sendln
    waitln 'radiotest rx 0x0400 15 255'
    'Rx completed '
    'radiotest stat'
    'Radio Test Statistics:'
    sendln
    waitln
    sendln
    waitln 'radiotest rx 0x8000 15 255'
    'Rx completed'
    'radiotest stat'
    'Radio Test Statistics:'
  next
  beep 3
  yesnobox 'Do another measurement?' 'External PA Mote − !'
loop while result
end