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

menu:=proc()

local prima;

begin
	prima:=0:
	read("testaisbn.txt"):
	read("constroiisbn.txt"): /* leitura dos sub-procedimentos */
	repeat
		input("Prima 1 para testar o ISBN-10; 2 para calcular o digito de controlo; 3 sair " , prima):
		if prima=1 then	
			testaisbn()
		end_if:
		if prima=2 then 
			constroiisbn()
		end_if /*menu das opcoes */
	until prima=3 end_repeat:
end_proc: