function [curr_gear]=read_from_gearbox(TCP_OBJECT)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

flushinput(TCP_OBJECT);
fprintf(TCP_OBJECT,'GG');
while(get(TCP_OBJECT,'BytesAvailable')==0)
    pause(0.01)
end
% Vai-se buscar a linha:
temp=fgetl(TCP_OBJECT)
% Verifica-se qual o caractere que a mensagem traz na posição de interesse:
[read_string]=sscanf(temp,'%*c%*c %*c%*c %*c %c ')
%No caso de o motor estar numa posição fixa:
num=str2double(read_string);
if ~isnan(num)
    if isnumeric(num)
        curr_gear=num;
    else
        curr_gear=8;
    end
else 
    curr_gear=8;
end