Can someone make a flow diagram of this octave code?

code in text:

c = input("Ingresa cualquier caracter: ",'s'); vocal=['a','e','i','o','u']; consonante=['b','c','d','f','g','h','j','k','l','m','n','o','p','q','r','s','t','v','w','x','y','z']; digito=['1','2','3','4','5','6','7','8','9','0']; estatus=0; for i=1:length(vocal) if(c==vocal(i)) disp("Este caracter es una vocal"); estatus=1; end end for i=1:length(consonante) if(c==consonante(i)) disp("Este caracter es una consonante"); estatus=1; end end for i=1:length(digito) if(c==digito(i)) disp("Este caracter es un digito"); estatus=1; end end if(estatus==0) disp("Simbolo indefinido"); end

Image of the code if it makes it easier!

s'); 17 I! 19 1 c = input ("Ingresa cualquier caracter: 2 vocal-[al e','1','0', 'u']; 3 consonante=['b d 4 digito-['11 21 4 15 5 estatus=0; 6 for i=1: length(vocal) 7 if (c==vocal(i)) 8 disp("Este caracter es una vocal"); 9 estatus=1; 10 Fend 11 -end 12 for i=1:length(consonante) 13 Jif (c==consonante(i)) 14 disp ("Este caracter es una consonante"); 15 estatus=1; 16 Fend 17 end 18 for i=1:length(digito) 19 Dif (c==digito (i)) 20 disp ("Este caracter es un digito"); 21 estatus=1; 22 fend 23 end 24 Qif (estatus==0) 25 disp ("Simbolo indefinido"); 26 -end