HSPTV!掲示板

質問させていただきます。
inputを二つ配置して、listboxの項目をクリックで二つのinputに文字列を反映したいので
すが、なぜか二つ目のobjprmが実行されません・・・・・ orz

#define ctype HIWORD(%1) (%1 >> 16 & $FFFF)

sdim mbuf
sdim listbox_text

	mbuf="あいうえお\nかきくけこ\nさしすせそ\n"

	input aa
	input aa

	oncmd goto *command, $111

	objsize 460

	objmode 2 : font"",14 : listbox mlist,160,mbuf

	MListbox = objinfo (stat, 2)

	stop

*command
	if lparam = MListbox {

	   if HIWORD(wparam) = 1 {

	   sendmsg MListbox, $189, mlist, varptr(listbox_text)							
					
             objprm 0,listbox_text
	    objprm 1,listbox_text  //ここが実行されないんです・・・
																	
		}
	}

　　　stop

大変申し訳ないんですが、３時間かけて解決できません。
誰か助けてください！！！

すみません・・・ごめんなさい・・・
分かりました。
oncmd　が原因でした。
oncmd　が割り込み状態がonになっていたため二つ目のobjpramが実行されないことが
分かりました。
objprmを実行する前の [ oncmd 0 ]と割り込みをストップしなくては駄目だ〜〜と言う
ことですね。
それから　#define ctype HIWORD(%1) (%1 >> 16 & $FFFF)　と、
if HIWORD(wparam) = 1 は不要でした。
自己解決すみません。

oncmd命令はちゃんとサブルーチンジャンプ（gosub〜return）させてください。