sub strrev(target as string)
  dim char as ubyte
  dim as long iEnd = len(target)-1
  for i as integer = 0 to iEnd\2
    char = target[i]
    target[i] = target[iEnd]
    target[iEnd] = char
    iEnd -= 1
  next
end sub

' OR ... '

sub strrev(target as string)
  dim char as ubyte
  dim as long iEnd = len(target)-1
  for i as integer = 0 to iEnd\2
    swap target[i],target[iEnd]
    iEnd -= 1
  next
end sub