/* ************************************* */
/*          M E N U  das opcoes          */
/*****************************************/

	prima:=0:
	read("testaean.txt"):
	read("constroiean.txt"): /* leitura dos sub-procedimentos */
	repeat
		input("Prima 1 para testar o EAN-13; 2 para calcular o digito de controlo; 3 sair :" , prima):
		if prima=1 then	
			input("Indique o EAN da forma [a,b,c,...] ",ean): /*entrada do ean pelo utilizador */
			testaean(ean)
		end_if:
		if prima=2 then 
			input("Indique o EAN da forma [a,b,c,...] ",ean): /*entrada do ean pelo utilizador */
			constroiean(ean)
		end_if /*menu das opcoes */
	until prima=3 end_repeat: