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

	prima:=0:
	read("testaisbn.txt"):
	read("constroiisbn.txt"):
	repeat
		input("Prima 1 para testar o ISBN-10; 2 para calcular o digito de controlo; 3 sair " , prima):
		if prima=1 then	
			input("Indique o ISBN da forma [a,b,c,...] ",isbn):
			testaisbn(isbn)
		end_if:
		if prima=2 then 
			input("Indique o ISBN da forma [a,b,c,...] ",isbn):
			constroiisbn(isbn)
		end_if /*menu das opcoes */
	until prima=3 end_repeat: