Function randomite(start=0,ende=1)
bis = (ende+1) - start
a = 7^5
c = 1020
zahl = ((a * RndSeed() + c) Mod bis) + (start)
SeedRnd zahl
Return zahl
End Function

   lcd_puts("Einstellen...");
   int w=0;
   for(w=0;w<4;w++) {
      lcd_gotoxy(0,1);
      char zu[2];
      itoa(w,zu,10);
      lcd_puts(zu);
      lcd_puts("/3");
      int zufall = (rand()%20+(w/rand()%w^(w*(analog(1)-10)/(analog(1)+5)^w)));
      srand(zufall);
      delay_ms(zufall);
   }

struct Random
{
   static const int MAX_RAND = 0x7fff;

   Random()
      : seed_( 0 )
   {}

   Random( int seed )
      : seed_( seed )
   {}

   int GetNumber() const
   {
      return seed_ = 69069 * seed_ + 1, ( seed_ & MAX_RAND );
   }

   int GetNumber( int max ) const
   {
      return ( max == 0 ) ? 0 : GetNumber() % max;
   }

   int GetNumber( int min, int max ) const
   {
      return ( ( min | max ) == 0 || min > max ) ? 0 : min + GetNumber( max-min+1 );
   }

private:
   mutable int seed_;
};

Global Function_CRand_choose=1,Function_CRand_seed=1

Function CRand(from,to_)
   If Function_CRand_choose=0 Function_CRand_choose=1
   If Function_CRand_seed=0 Function_CRand_seed=1
   area=to_-from

   seed=Function_CRand_seed
   seed=Sqr(seed)+(Sin(Function_CRand_choose^7)+1)*area
   
   num=seed
      
   old=num Mod area
   
   New_= old +from
   
   Function_CRand_choose=Function_CRand_choose+1
   Return New_
End Function

Function SeedCRand(seed)
   Function_CRand_seed=seed
   Function_CRand_choose=1
End Function