screen 0,240,480
	cls 1

	objsize 160,24
	pos 40,40
	objmode 1+16,1
	button "BYE",*ok
	;
	pos ,csry+8
	objmode 2+16+32,1
	font "Modern",14
	chkbox "Check Box",a
	;
	pos ,csry+8
	bb="OBJECT TEST"
	font "Lucida Console",14,1
	input bb
	;
	pos ,csry+8
	sysfont 11
	ed="MesBox Test..."
	mesbox ed,160,100,0
	;
	pos ,csry+8
	ly=0
	lb="List Box\nTest1\nTest2"
	listbox ly,100,lb
	;
	pos ,csry+8
	;
	cy=0
	cb="Combo Box\nTest1\nTest2"
	combox cy,100,cb
	;
	stop
*ok
	end