# CADASTRO DE PROGRAMAS DE AMIGA, by Cristian Robert Gallas.
# 09/11/1994, Desenvolvido na versão 2.5.1, não roda em COLORS=2

a="";b="";c="";i=""
_INICIO
cls
under on
cup;centre CADASTRO DE PROGRAMAS DE AMIGA
under off
pos 25 6;echo "1 - Inclui        2 - Exclui"
pos 25 8;echo "3 - Consulta      4 - Ordena"
pos 25 10;echo "5 - Imprime       6 - Comando"
pos 30 16;insert Qual opção: ,,6,p1,i0,,p0,i2
attrib i
if i=6
  pos 15 16
  insert "COMMAND: ",,40,p1,i0,,p0,i2
  attrib i
  ${i}
  goto INICIO
fi
if i==""
   echo
   exit
fi
if i=1
   goto INCLUI
fi
if i=2
   goto EXCLUI
fi
if i=3
   goto CONSULTA
fi
if i=4
   goto ORDENA
fi
if i=5
   goto IMPRIMI
else
   goto INICIO
fi
_INCLUI
cls
under on
pos 0 2;centre "MODULO DE INCLUSÃO"
under off
pos 16 5;insert "Qual nome ....... : ",,29,p1,i0,,p0,i2
attrib i
if i==""
   goto INICIO
fi
pos 16 7;insert "Quantos discos .. : ",,6,p1,i0,,p0,i2
attrib a
if a==""
   goto INICIO
fi
pos 16 9;insert "Qual modo ....... : ",,6,p1,i0,,p0,i2
attrib c
if c==""
   goto INICIO
fi
len -o a;attrib b
b=b--" "
if b=1
   a=a++"        "
else
   a=a++"       "
fi
a=a++${c}

pos 0 13
border -c " Aguarde atualização... "
len -o i;attrib c
b=43;b=b-${c};c=${b};b=""
spc ${c};attrib b
c=${path}
echo "${i}${b}${a}" >> "${c}jog.lt"
goto INCLUI
_CONSULTA
cls;under on
pos 0 2
centre "MODULO DE CONSULTA";under off
pos 32 6;echo "1 - Individual"
pos 32 8;echo "2 - Todos"
pos 31 12;insert "Qual opção: ",,6,p1,i0,,p0,i2
attrib i
if i=1
   goto INDIVIDUAL
fi
if i=2
   goto TODOS
else
   goto INICIO
fi
_INDIVIDUAL
pos 20 12;insert "Consultar ... : ",,29,p1,i0,,p0,i2
attrib i
if i==""
   goto INICIO
else
cls
echo "_________ PROGRAMA __________           __ DISCOS __ MODO __"
echo
a=${path}
   grep ${a}jog.lt ${i}
   echo
   echo -a "Pressione [QUALQUER TECLA] ..."
   wait key
   goto INICIO
fi
_TODOS
cls
echo "_________ PROGRAMA __________           __ DISCOS __ MODO __"
echo
a=${path}
pg ${a}jog.lt
echo
echo -a "Pressione [QUALQUER TECLA] ..."
wait key
goto INICIO
_EXCLUI
pos 20 16;insert "Excluir ... : ",,29,p1,i0,,p0,i2
attrib i
if i==""
   goto INICIO
else
a=${path}
   grep -a -o ${a}jog.lt ${i}
   attrib i
fi
cup;cline
a=${path}
pos 12 18;lgrep -o ${a}jog.lt,${i};attrib i
pos 12 18;echo ${i}
pos 12 16;insert "____ Confirma exclusão [ 1 ] Sim, [ 2 ] Não ____ ",,4,p1,i0,,p0,i2
attrib a
if a=2
   goto INICIO
fi
if a=1
a=${path}
   cut line ${a}jog.lt,${i}
   pos 12 18
   echo "Exclusão com sucesso                  "
   sleep 100
   goto INICIO
else
   goto INICIO
fi
_IMPRIMI
a=${path}
pos 56 16;paper 1;echo "    "
paper 0
pos 21 16
lp ${a}jog.lt,60,6
goto INICIO
_ORDENA
pos 30 16;cline
border -c " Ordenando... "
a=${path}
sort ${a}jog.lt >> ram:jog.lt0
rm ${a}jog.lt;mv ram:jog.lt0 ${a}jog.lt
goto INICIO