Эмуляция планировщика процессов с использованием волокон. Алгоритм "случайный выбор"

using namespace std;
 
char bufRus[256];
 
char* Rus(const char* text)
{
      CharToOem(text, bufRus);
      return bufRus;
}
static LPVOID  fiberEnd;
static LPVOID  fiberCtl;
static LPVOID  fiber[ FIBERS ];
static void shedule( BOOL fDontEnd )
{
  int     n, current;
  if ( !fDontEnd ) {  /* волокно надо завершить */
    fiberEnd = GetCurrentFiber();
    SwitchToFiber(fiberCtl ); 
  }
  /* выбираем следующее волокно для выполнения */
  for ( n = 0; n < FIBERS; n++ ) {
    if ( fiber[n] && fiber[n] != GetCurrentFiber() ) break;
  }
  if ( n >= FIBERS ) return;  /* нет других готовых волокон*/
SwitchToFiber( fiber[rand()%3] );
}
VOID CALLBACK Proc( PVOID lpParameter, int id  )
{  
  int  i;
  for ( i = 0; i < 100; i++ ) {
    cout <<Rus("Волокно ")<<id<<endl;  
    Sleep( 1000 );
    shedule( TRUE );  /* выполнение продолжается */
  }
  shedule( FALSE ); /* волокно завершается */
}
VOID CALLBACK FiberProc( PVOID lpParameter )
{  
  Proc(lpParameter,1);
}
VOID CALLBACK FiberProc2( PVOID lpParameter )
{  
     Proc(lpParameter,2);
}
VOID CALLBACK FiberProc3( PVOID lpParameter )
{  
     Proc(lpParameter,3);
}
int main()
{
  int  i;
  fiberCtl = ConvertThreadToFiber( NULL );
  fiberEnd = NULL;
    fiber[0] = CreateFiber( 10000, FiberProc, NULL );
    fiber[1] = CreateFiber( 10000, FiberProc2, NULL );
    fiber[2] = CreateFiber( 10000, FiberProc3, NULL );
    for ( i = 0; i < FIBERS;) {
    SwitchToFiber( fiber[rand()%FIBERS] );
    if ( fiberEnd ) {
      DeleteFiber(fiberEnd );
      for ( i = 0; i < FIBERS; i++ ) {
        if ( fiber[i] == fiberEnd ) fiber[i] = NULL;
      }
      fiberEnd = NULL;
    }
    for ( i = 0; i < FIBERS; i++ ) if ( fiber[i] ) break;
  }
  ConvertFiberToThread();
  return 0;
}

using namespace std;