U0 Job(CDoc *doc)
{
  I64 i;
  for (i=0;i<2;i++)
    DocPrint(doc,"$$FG,%d$$CPU%d",Gs->num&15,Gs->num);
}

U0 MPPrintDemo()
{
  I64 i;
  for (i=0;i<500;i++)
    JobQue(&Job,DocPut,i%mp_cnt);
  Sleep(500);
  "$$FG$$\n";
}

MPPrintDemo;
