Código
FORJ77