/*******************************************************************
/*
/*	JATIC オートダイアル用
/*
/*	1991. 6.24
/*
/*		By TARO	(JATIC ID : D23)
/*
/*******************************************************************

jatic_dial {

/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	DIAL     = "0427-23-9072A";
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	while ( _JAT_ID = "" )
	{	while ( _JAT_PASSWORD = "" )
		{	jatic_setup()
			if ( VAL ! 0 ) { return (-1) }
		}
	}
	ID       = _JAT_ID;
	PASSWORD = _JAT_PASSWORD;

	term_puts("ATZ\r")
	term_switch( 5,"OK\r")
	if ( VAL < 0 ) { return (-1)}

	tel_call()
	if ( VAL < 0 ) { return (-1)}

	term_switch( 30, "ＩＤを入力してください :")
	if ( VAL < 0 ) { return (-1)}
	wait(1)
	term_puts("\(ID)\r")

	term_switch( 30, "パスワードを入力してください :")
	if ( VAL < 0 ) { return (-1)}
	wait(1)
	term_puts("\(PASSWORD)\r")

	return	(0)
}

str_off {
	wind_size_set(x,y,32,32)
	wind_open()
	graph("palette",7,0,0,0)
}
str_on {
	graph("palette",7,176,176,192)
	wind_close()
	wind_init()
}


jatic_setup {
	ID       = _JAT_ID;
	PASSWORD = _JAT_PASSWORD;

	if ( ID = "" )
	{	ID = "GUEST";
		PASSWORD = "";
	}
	mosget("sw","x","y")
	menu_input("ID",9, x,y, C_CYAN, "JATIC のID を入力してください。:")
	if ( VAL < 0 ) {	return	(-1) }

	str_off()
	menu_input("PASSWORD",9, x,y, C_YELLOW, "JATIC のパスワードを入力してください。:" )
	RET = VAL;
	if ( RET < 0 ) { str_on();	return	(-1) }


	PASSWORD2 = "";
	menu_input("PASSWORD2",9, x,y, C_YELLOW, "念のためもういちどパスワードを入力してください。" )
	RET = VAL;
	str_on()
	if ( RET < 0 ) {	return	(-1) }

	if ( PASSWORD ! PASSWORD2 )
	{	wind_open()
		graph("symbol",65,56, 8,16, OPAQUE,C_RED,C_HWHITE, 1,0,0,1, "パスワードが違っています！！")
		wait(5)
		wind_close()
		return	(-1)
	}

	if ( RET < 0 ) {	return	(-1) }
	strlen(PASSWORD)
	LEN = VAL;
	menu_yes_no(x,y,C_CYAN,"JATIC の ID : \(ID)\x0Aパスワードは \(LEN) 文字指定されています。\x0A\x0A           よろしいですか？")
	if ( VAL > 0 )
	{	_JAT_ID       = ID;
		_JAT_PASSWORD = PASSWORD;
		return	(0)
	}
	return	(-1)
}

/*******************************************************************
/*	オートパイロット用 入力行チェックルーチン
/*******************************************************************
AUTO_line {
}