#
# @(#)getch	3.1 (SVVS) 12/1/86
#
# keypad: getch
#
abstract("keypad: getch");
start

	# test the function keys	
	testing("testing numbered function keys 1-64");
	start
	for (j = 1; j < 64; j ++)
	{
		keypad(stdscr, TRUE);
		seq = fkeyseq(KEY_F(j));
		if (seq != "")
		{
			keyboard("%s", seq);
			key = getch();
			if (key == "")
				error("getch returned nothing");
			refresh();
			expect();
		}
	}
	finis
finis
