//	ボタンの数を６個に増やす

//	やっている事は先のプログラムと同じです
//	HSP2.61HSP3.0動作確認

//	これらの変数の中身をobjprmに代入する
btstr_1=""
btstr_2=""
btstr_3=""
btstr_4=""
btstr_5=""
btstr_6=""

//	ボタンが押された時にこれらの変数をselected_btnextに代入して
//	メインルーチンにジャンプする
btnext_1=""
btnext_2=""
btnext_3=""
btnext_4=""
btnext_5=""
btnext_6=""

//	ボタンによって選択される選択肢のID
selected_btnext="a"

//	ここからメインルーチン
*bt_selected_gomain

switch selected_btnext
//	こんなかんじならボタン内の文字の変更と文章の記述
//case "xxxx"
//	btstr_1="NEXT"
//	btnext_1="xxxxx"
//	gosub *one_bt
//	pos 150,0
//	mes {"文章叙述"}
//	swbreak


case "a"
	btstr_1="A"
	btnext_1="aa"
	btstr_2="B"
	btnext_2="ab"
	btstr_3="C"
	btnext_3="ac"
	btstr_4="D"
	btnext_4="ad"
	btstr_5="E"
	btnext_5="ae"
	btstr_6="F"
	btnext_6="af"
	gosub *six_bt
	pos 150,0
	mes "ボタンを押してください"
	swbreak
case "aa"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはAを押しましたね"
	swbreak
case "ab"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはBを押しましたね"
	swbreak
case "ac"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはCを押しましたね"
	swbreak
case "ad"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはDを押しましたね"
	swbreak
case "ae"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはEを押しましたね"
	swbreak
case "af"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "あなたはFを押しましたね"
	swbreak
swend
stop

//	ボタンを一つ表示してbtstrの中身をボタンに代入する
*one_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
return

//	ボタンを二つ表示してbtstrの中身をボタンに代入する
*two_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
return

//	ボタンを三つ表示してbtstrの中身をボタンに代入する
*three_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
	button btstr_3,*selected3
return

//	ボタンを四つ表示してbtstrの中身をボタンに代入する
*four_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
	button btstr_3,*selected3
	button btstr_4,*selected4
return

//	ボタンを五つ表示してbtstrの中身をボタンに代入する
*five_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
	button btstr_3,*selected3
	button btstr_4,*selected4
	button btstr_5,*selected5
return

//	ボタンを六つ表示してbtstrの中身をボタンに代入する
*six_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
	button btstr_3,*selected3
	button btstr_4,*selected4
	button btstr_5,*selected5
	button btstr_6,*selected6
return

//	ID0のボタンが押された時にselected_btnextにbtnext_1の中身を代入して
//	メインルーチンにジャンプ
*selected1
	selected_btnext=btnext_1
	goto *bt_selected_gomain

//	ID1のボタンが押された時にselected_btnextにbtnext_2の中身を代入して
//	メインルーチンにジャンプ
*selected2
	selected_btnext=btnext_2
	goto *bt_selected_gomain

//	ID2のボタンが押された時にselected_btnextにbtnext_3の中身を代入して
//	メインルーチンにジャンプ
*selected3
	selected_btnext=btnext_3
	goto *bt_selected_gomain

//	ID3のボタンが押された時にselected_btnextにbtnext_4の中身を代入して
//	メインルーチンにジャンプ
*selected4
	selected_btnext=btnext_4
	goto *bt_selected_gomain

//	ID4のボタンが押された時にselected_btnextにbtnext_5の中身を代入して
//	メインルーチンにジャンプ
*selected5
	selected_btnext=btnext_5
	goto *bt_selected_gomain

//	ID5のボタンが押された時にselected_btnextにbtnext_6の中身を代入して
//	メインルーチンにジャンプ
*selected6
	selected_btnext=btnext_6
	goto *bt_selected_gomain