;	window内aviファイル再生サンプル
	;
	gsel 0,-1

	dialog "avi",16,"aviﾌｧｲﾙ"
	if stat=0 : goto *dlcan
	fname=refstr

	screen 0,640,480,0
	cls 4
	objmode 1
	objsize 160,32
	pos 0,0
	button "PLAY",*gogo
	pos 160,0
	button "END",*dlcan
	pos 0,32
	sndload fname,1
	stop
*gogo
	snd 1
	stop

*dlcan
	end