preciso converter visualg para java alguem sabe algum conversor oline

char
jogada:in

numeros:vetor[1..13,1..6] string
bloco:vetor[1..13,1..6] string
CONT:in
jogador1,jogador2:string
turno:in
CONTINUA:logico
jogo:vetor[1..3,1..3] in
CONT_JOGO:in
resultado:in
msg:string
sair:string

procedimento mostra_tela_inicial()
inicio
limpatela
escreval("|================================================================================|")
escreval("|MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM|")
escreval("|MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM|")
escreval("|MMMMMMMM MMMMM MM MMMMMMMMM M MMM MMMMMMMM MMMMM MMMMMMM MMMMMMM|")
escreval("|MMMMMMM MMMMM MMmM MMMMMMM MM MMMMMMMMM MMMMMMMM MMMMM MMMMMM MMMMMM|")
escreval("|MMM MMM MMMMM MMM MMMMMMMMM MMMMMMMM MMMMM MMMMM MMMMM|")
escreval("|MMMMM MMMMM MMMMMMMMM MMM MMMM MMM MMMMMMMM MMMM MMM MMMM|")
escreval("|M MMMMMMM M NMMMM MMMMMMMMM MMMMMMMM MMMMM MMM MMM|")
escreval("|MM MMMMMM MMMMMMMMMMMM MMMMMM MMMMMMMMM MMMMMMMM MMMMM MM MMMMMMM MM|")
escreval("|M MMMMMM MMMMMMMMMMMMMM MMMMMMM MMM MM MMMMM M MMMMMMMMM M|")
escreval("|MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM|")
escreval("|MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM|")
escreval("|================================================================================|")
escreval("")
escreval("")
fimprocedimento

procedimento monta_jogo()
inicio
limpatela
escreval(" s++++++++++++++++++++++++++++++++++++++++++++++++++s ")
escreval(" m ' ' m ")
escreval(" m",bloco[1,1] ,"y",bloco[2,1] ,"y",bloco[3,1] ,"m ",bloco[10,1])
escreval(" m",bloco[1,2] ,"y",bloco[2,2] ,"y",bloco[3,2] ,"m ",bloco[10,2])
escreval(" m",bloco[1,3] ,"y",bloco[2,3] ,"y",bloco[3,3] ,"m ",bloco[10,3])
escreval(" m",bloco[1,4] ,"y",bloco[2,4] ,"y",bloco[3,4] ,"m ",bloco[10,4]," ",jogador1)
escreval(" m",bloco[1,5] ,"y",bloco[2,5] ,"y",bloco[3,5] ,"m ",bloco[10,5])
escreval(" m",bloco[1,6] ,"y",bloco[2,6] ,"y",bloco[3,6] ,"m ",bloco[10,6])
escreval(" m .::::::::::::::h::::::::::::::::h::::::::::::::. m ")
escreval(" m",bloco[4,1] ,"y",bloco[5,1] ,"y",bloco[6,1] ,"m ",bloco[11,1])
escreval(" m",bloco[4,2] ,"y",bloco[5,2] ,"y",bloco[6,2] ,"m ",bloco[11,2])
escreval(" m",bloco[4,3] ,"y",bloco[5,3] ,"y",bloco[6,3] ,"m ",bloco[11,3])
escreval(" m",bloco[4,4] ,"y",bloco[5,4] ,"y",bloco[6,4] ,"m ",bloco[11,4]," ",jogador2)
escreval(" m",bloco[4,5] ,"y",bloco[5,5] ,"y",bloco[6,5] ,"m ",bloco[11,5])
escreval(" m",bloco[4,6] ,"y",bloco[5,6] ,"y",bloco[6,6] ,"m ",bloco[11,6])
escreval(" m .::::::::::::::h::::::::::::::::h::::::::::::::. m ")
escreval(" m",bloco[7,1] ,"y",bloco[8,1] ,"y",bloco[9,1] ,"m ",bloco[12,1])
escreval(" m",bloco[7,2] ,"y",bloco[8,2] ,"y",bloco[9,2] ,"m ",bloco[12,2])
escreval(" m",bloco[7,3] ,"y",bloco[8,3] ,"y",bloco[9,3] ,"m ",bloco[12,3])
escreval(" m",bloco[7,4] ,"y",bloco[8,4] ,"y",bloco[9,4] ,"m ",bloco[12,4])
escreval(" m",bloco[7,5] ,"y",bloco[8,5] ,"y",bloco[9,5] ,"m ",bloco[12,5])
escreval(" m",bloco[7,6] ,"y",bloco[8,6] ,"y",bloco[9,6] ,"m ",bloco[12,6])
escreval(" m . . m ")
escreval(" s++++++++++++++++++++++++++++++++++++++++++++++++++s ")
fimprocedimento
procedimento seta_nome_jogada(nome_jogador:caractere)

inicio
se (resultado = 1) entao
numeros[12,1] <- " ........ "
numeros[12,2] <- " ........ "
numeros[12,3] <- " ...... O VENCEDOR É"
numeros[12,4] <- " .. "+jogador1
numeros[12,5] <- " .. "
numeros[12,6] <- " .... "
seta_bloco(12,12)
fimse

se (resultado = 2) entao
numeros[12,1] <- " ........ "
numeros[12,2] <- " ........ "
numeros[12,3] <- " ...... O VENCEDOR É"
numeros[12,4] <- " .. "+jogador2
numeros[12,5] <- " .. "
numeros[12,6] <- " .... "
seta_bloco(12,12)
fimse

se (resultado = 3) entao
numeros[12,1] <- " ?? ?? ";
numeros[12,2] <- " ?????????????? DEU";
numeros[12,3] <- " ?? ?? ";
numeros[12,4] <- " ?? ?? ";
numeros[12,5] <- " ?????????????? VELHA!";
numeros[12,6] <- " ?? ?? ";
seta_bloco(12,12)
fimse

se (resultado = 0) entao
numeros[12,1] <- "";
numeros[12,2] <- "--------------------------";
numeros[12,3] <- "Agora é a sua vez de jogar ";
numeros[12,4] <- nome_jogador;
numeros[12,5] <- "--------------------------";
numeros[12,6] <- "";
seta_bloco(12,12)
fimse
fimprocedimento

funcao cpu_joga():inteiro
var
linha2,coluna2,i:inteiro
retorno:inteiro
setado:logico
inicio
//SE FOR A PRIMEIRA JOGADA DA CPU
se (CONT_JOGO = 2) entao
se (jogo[2,2] = 0) entao
retorno <- 5
senao
aleatorio on
aleatorio 1,9
//Só passa se for diferente de 5, que é o selecionado pelo jogaror 1
repita
leia(retorno)
ate (retorno <> 5)
aleatorio off
fimse
senao
//SE FOR QUALQUER OUTRA JOGADA DA CPU
se (setado <> verdadeiro) entao
para linha2 de 1 ate 3 faca
se (jogo[linha2,1] = 0) e (jogo[linha2,2] = 2) e (jogo[linha2,3] = 0) entao
se (linha2 = 1) entao
retorno <- 1
fimse
se (linha2 = 2) entao
retorno <- 4
fimse
se (linha2 = 3) entao
retorno <- 7
fimse
setado <- verdadeiro
interrompa
fimse
fimpara
fimse
se (setado <> verdadeiro) entao
para linha2 de 1 ate 3 faca
se (jogo[linha2,1] = 0) e (jogo[linha2,2] = 1) e (jogo[linha2,3] = 0) entao
se (linha2 = 1) entao
retorno <- 1
fimse
se (linha2 = 2) entao
retorno <- 4
fimse
se (linha2 = 3) entao
retorno <- 7
fimse
setado <- verdadeiro
interrompa
fimse
fimpara
fimse

se ( setado <> verdadeiro) entao
para linha2 de 1 ate 3 faca
se (jogo[linha2,1] = 2) e (jogo[linha2,2] = 0) e (jogo[linha2,3] = 0) entao
se (linha2 = 1) entao
retorno <- 3
fimse
se (linha2 = 2) entao
retorno <- 6
fimse
se (linha2 = 3) entao
retorno <- 9
fimse
setado <- verdadeiro
interrompa
fimse
fimpara
fimse
se ( setado <> verdadeiro) entao
para linha2 de 1 ate 3 faca
se (jogo[linha2,1] = 1) e (jogo[linha2,2] = 0) e (jogo[linha2,3] = 0) entao
se (linha2 = 1) entao
retorno <- 2
fimse
se (linha2 = 2) entao
retorno <- 5
fimse
se (linha2 = 3) entao