--este programa lee un caracter del teclado
--y escribe su codigo ascii en pantalla
--se debe teclear <<esc>> para terminar

package ascii is
	tecla:character;
begin
	loop
		write('t');
		write(':');
		write(' ');
		read(tecla);
		write('(');
		write(tecla'val);
		write(')');
		writeln;
	exit when tecla'val = 27;
	end loop;
end;