program Tutorial6;
var
	image_color: IncBin("images/moose_color.bin", "$5000");
	image_data: IncBin("images/moose_data.bin", "$6000");

begin

	setmulticolormode();
	setbitmapmode();
	poke(VIC_DATA_LOC, 0,$18);
	setbank(VIC_BANK1);
	copyimagecolordata(image_color,1);
	SCREEN_FG_COL:=BLACK;
	Loop();

end.
