idno=7
	exist "drgb"+idno+"":sstrsize=strsize
	kz=sstrsize/4
	dim drgb,kz
		bload "drgb"+idno+"",drgb

	flg=1
	repeat kz
	w=kz-1-cnt
	if drgb.w==191+255*256+255*65536:drgb.w=0:kkz++:else:flg=0
	if flg==0:break
	loop
	
	bsave "drgb"+idno+"",drgb
	mes kkz
	mes kz
	wait 200
	end