Código
AFOR90