#define T_MAN 	0
#define T_BALL	1

U0 Models()
{
	I64  i;
	Bool old_form = LBts(&(DocPut)->flags, DOCf_FORM);

	DocClear;
	"Make a CSprite model.  Then, cut-and-Paste it.\n\n";
	"$$LM,4$$";
	"\n\n$$BT,\"Man\",LE=T_MAN$$\n\n";
	"\n\n$$BT,\"Ball\",LE=T_BALL$$\n\n";
	"$$LM,0$$";
	i = DocMenu(DocPut);
	LBEqual(&(DocPut)->flags, DOCf_FORM, old_form);
	DocBottom;
	switch (i)
	{
		case T_MAN:
			ManGen;
			break;

		case T_BALL:
			BallGen;
			break;
	}
}