buffer 2,640,480,0
	picload "test.bmp" ;test.bmpはなんでもOK
	picXsize=winx : picYsize=winy ;サイズ設定

	mref DataBuf,66 ;画像バッファを変数に割り当て

	screen 0,picXsize,picYsize,0

	LineSize=picXsize*3+3&0xfffffffc ;1ラインの大きさ＜ビットマップ画面への直接書き込み＞参照

	ofset=0
	repeat picYsize
		await 0
		title ""+cnt+"/"+picYsize
		repeat picXsize
			peek r,DataBuf,cnt*3+ofset ;+0 ;読む
			peek g,DataBuf,cnt*3+ofset +1
			peek b,DataBuf,cnt*3+ofset +2
			 ;
			poke DataBuf,cnt*3+ofset    , r>>1 ;半分にして書く
			poke DataBuf,cnt*3+ofset +1 , g>>1
			poke DataBuf,cnt*3+ofset +2 , b>>1
		loop
		ofset+=LineSize ; 1ライン分移動
	loop


	;表にコピー
	pos 0,0
	gcopy 2,0,0,640,480
	title "終了"
stop