%setAT	{
	var Type[10];
	SNDMSG({erande_f.snd});
	footnote({モデムのタイプを選択して下さい});
	Type:=@select({どういうタイプのモデムですか？},
		Wtime4,{im({1200n})},
		{ １２００　                  ＭＮＰなし },{im({1200n})},
		{ ２４００　                  ＭＮＰなし },{im({2400n})},
		{ ２４００(端末速度2400)　    ＭＮＰあり },{im({2400m})},
		{ ２４００(端末速度4800)　    ＭＮＰあり },{im({4800m})},
		{ 2400以上(端末速度9600以上)　ＭＮＰあり },{im({9600m})},
		{ 2400以上(端末速度19200以上) ＭＮＰあり },{im({19200m})}
		);
	SNDMSG({nyuryo_f.snd});
	footnote({ＡＴコマンドを設定して下さい});
	%a @input({ATコマンドを設定して下さい  例｢ATX3\N2\V1\Q3\J0｣},,
			{AT}|@head(MODEM,{/}));
	case	(a<>{},
		{Yes},
		{
		case	(@getchar(a,1,2),
			{AT},
			{
			case	(a=@head(a,{\}),
				{Yes},
				{MODEM:=@getchar(a,3,999)|{/}|
					@getchar(a,3,999)|{/AT直接指定_}|Type;},				,{MODEM:=@getchar(a,3,999)|{/}|
					{/AT直接指定_}|Type;}
				);
			});
		},
		{No},{setAT}
		);
	};

%FUJITSU{
	SNDMSG({erande_f.snd});
	footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{TOWNS内蔵1200},{MODEM:={X3//TOWNS内蔵1200_1200n}},
	{TOWNS内蔵2400},{MODEM:={X3/\N2\V1\Q3\J0%C1/TOWNS内蔵2400_9600m}},
	{DESKPOWER-C内蔵14400},{MODEM:={X3/\N3\Q3\J0\V2/DP-C内蔵14400_9600m}},
	{富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
	{富士通 PM2400F},{MODEM:={X3/\N2\Q3\J0%C1/PM2400F_9600m}},
	{富士通 PM2400FII},{MODEM:={X3/\N6\Q3\J0\V2%C1/PM2400FII_9600m}},
	{富士通 OAMD-301},{MODEM:={X3&D2/\N2\Q3\J0\V2/OAMD-301_9600m}},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%AIWA	{
	SNDMSG({erande_f.snd});
	footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
	{AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
	{AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
	{AIWA PV-A24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C1/PV-A24B5_9600m}},
	{AIWA PV-A24MNP5},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24MNP5_9600m}},
	{AIWA PV-A24V42},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24V42_9600m}},
	{AIWA PV-A24V5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C1/PV-A24V5_9600m}},
	{AIWA PV-M24},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24_9600m}},
	{AIWA PV-M24M5},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24M5_9600m}},
	{AIWA PV-M24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C1/PV-M24B5_9600m}},
	{AIWA PV-A96V5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C1/PV-A96V5_19200m}},
	{AIWA PV-AF144V5},{MODEM:={X4&D2/\N2\Q3\J0\V2%C1/PV-AF144V5_19200m}},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%OMRON	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{OMRON MD1200},{MODEM:={X3//MD1200_1200n}},
	{OMRON MD12FS},{MODEM:={X3//MD12FS_1200n}},
	{OMRON MD2400F},{MODEM:={X3/\N2\V1\Q2\J0/MD2400F_2400m}},
	{OMRON MD24FB5V},{MODEM:={X3/\N2\Q2\J0\V2%C1/MD24FB5V_9600m}},
	{OMRON MD24FP4},{MODEM:={X3/\N2\Q2\J0/MD24FP4_2400m}},
	{OMRON MD24FP4II},{MODEM:={X3&P2/\N2\Q2\J0/MD24FP4II_9600m}},
	{OMRON MD24FP5V},{MODEM:={X3/\N2\Q2\J0\V2%C1/MD24FP5V_9600m}},
	{OMRON MD24FS4},{MODEM:={X3/\N2\Q2\J0/MD24FS4_2400m}},
	{OMRON MD24FS5},{MODEM:={X3/\N2\Q2\J0/MD24FS5_2400m}},
	{OMRON MD24FS7},{MODEM:={X3/\N2\Q2\J0/MD24FS7_2400m}},
	{OMRON MD246FL10V},{MODEM:={X3/\N2\Q2%C1\J0/MD24FL10V_9600m}},
	{OMRON MD24XL10V},{MODEM:={X3/\N2\Q2%C1\J0/MD24XL10V_9600m}},
	{OMRON MD24XT10V},{MODEM:={X3/\N2\Q2%C1\J0/MD24XT10V_9600m}},
	{OMRON MD96FB5V},{MODEM:={X3/\N2\Q2%C1\D0\J0/MD96FB5V_19200m}},
	{OMRON MD96FL10V},{MODEM:={X3/\N2\Q2%C1\J0/MD96FL10V_19200m}},
	{OMRON MD96XL10V},{MODEM:={X3/\N2\Q2%C1\J0/MD96XL10V_19200m}},
	{OMRON MD96XT10V},{MODEM:={X3/\N2\Q2%C1\J0/MD96XT10V_19200m}},
	{OMRON MD144XT10V},{MODEM:={X3/\N2\Q2%C1\J0/MD144XT10V_19200m}},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%EPSON	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
	{EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
	{EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C1/SR-240V_9600m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%NEC	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{NEC COMSTAR 2424},{MODEM:={X3/\N2\Q2/COMSTAR 2424_2400m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%SONY	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
	{},{},
	{ATコマンド直設定 },
	{setAT},{変更しない},{}
	)};

%MICROCORE{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{MICROCORE MC24PA5},{MODEM:={X3/\N2\Q2\J0\X1%C1/MC24PA5_9600m}},
	{MICROCORE MC14400FX},{MODEM:={X3/\N2\Q2\J0\X1%C1/MC14400FX_19200m}},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%PROSIDE{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{PROSIDE PS-1414VQE},
		{MODEM:={X3L1&D2/N1W1&K3&P3\A3\N2%C1/PS1414VQE_19200m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%NISSEI	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{NISSEI FM9624},{MODEM:={X3/\N2\Q3%C1/FM9624_9600m}},
	{NISSEI FM1414},{MODEM:={X3/\N2&K3%C3/FM1414_19200m}},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%SUNTAC	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{SUNTAC MS144AVF},{MODEM:={X3/\N2\V2\Q2\J0\X0%C1/MS144AVF_19200m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%DYNALINK{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{DYNALINK 1414VE},
		{MODEM:={X3&D2/N1W1&K3&P2\A3\N2S95=46/DYNALINK1414VE_19200m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%BOCA	{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{BOCA RESEARCH M144JE},{MODEM:={X3/&K3&P3\J0\A3\N2/M144JE_19200m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%PANASONIC{
	SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
	select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
	Wtime4,{},
	{PANASONIC TO-703B},{MODEM:={X3&D2/\N3\Q3\V2%C1/TO-703B_19200m}},
	{},{},
	{ATコマンド直設定 },{setAT},
	{変更しない},{}
	)};

%setMDM	{
	%modem	{
		case	(MODEM,
			{},{im({未設定})},
			,{head(@tail(MODEM,{/}),{_})}
			);
		};

	SNDMSG({erande_f.snd});
	footnote({モデムのメーカーを選んで下さい});
	select({モデムのメーカーを選んで下さい},
	Wtime4,{},
	{  ＦＵＪＩＴＳＵ  },{FUJITSU},	{     ＡＩＷＡ     },{AIWA},
	{    ＯＭＲＯＮ    },{OMRON},	{    ＥＰＳＯＮ    },{EPSON},
	{      ＮＥＣ      },{NEC},	{     ＳＯＮＹ     },{SONY},
	{   マイクロコア   },{MICROCORE},{    プロサイド    },{PROSIDE},
	{     日成電機     },{NISSEI},	{   ＳＵＮＴＡＣ   },{SUNTAC},
	{ ＤＹＮＡＬＩＮＫ },{DYNALINK},{  BOCA RESEARCH   },{BOCA},
	{ＰＡＮＡＳＯＮＩＣ},{PANASONIC},{},{},
	{ ATコマンド直設定 },{setAT}
	)};

setMDM;