cls
	objmode 1
	a="Test message..\nwaiting..."
	mesbox a,400,48,2
	input b
	button "GO",*gogo
	stop

*gogo
	objprm 0,"変更されました。[Changed]"
	stop