#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=DocMenuDo(DocPut);
  LBEqu(&(DocPut)->flags,DOCf_FORM,old_form);
  DocBottom;
  switch (i) {
    case T_MAN:
      ManGen;
      break;
    case T_BALL:
      BallGen;
      break;
  }
}