/*  -*- MaTX -*-
 *
 *  【名前】
 *     mat_demo() - 行列計算ツールボックスのデモンストレーション
 *
 *  【形式】
 *      mat_demo()
 *
 *  【機能説明】
 *      デモンストレーションのメニューを表示する。
 *
 */

Func void mat_demo()
{
	Integer n;
	List demos;

	demos = {"行列計算ツールボックス",
			 "終  了"};

	n = 1;
	while (1) {
		n = menu(demos,n);
		switch (n) {
		  default:
			break;
		}
		n++;
	}
}