/************************************************************************/
/*                                                                      */
/*         Code generated by FED-CASE V1.2  Code Generator              */
/*                  © Joosen Software Development                       */
/*                  All rights reserved 1993-1995                       */
/*                                                                      */
/************************************************************************/


/************************************************************************/
/*                                                                      */
/*                          Start of Includes                           */
/*                                                                      */
/************************************************************************/

#include <stdio.h>
#include <stdlib.h>

/************************************************************************/
/*                                                                      */
/*                           End of Includes                            */
/*                                                                      */
/************************************************************************/

/************************************************************************/
/*                                                                      */
/*                    Start of source prototype file                    */
/*                                                                      */
/************************************************************************/

#include <proto/proto_roulette.h>

/************************************************************************/
/*                                                                      */
/*                     End of source prototype file                     */
/*                                                                      */
/************************************************************************/


/************************************************************************/
/* Procedure  : void main()                                             */
/* Function   :                                                         */
/* Designer   : C.Joosen & R.Heijmans                                   */
/* Date       : Fri Mar 10 21:14:32 1995                                */
/*                                                                      */
/* Modificat  :                                                         */
/* Handler    :                                                         */
/* Modific.   :                                                         */
/*                                                                      */
/************************************************************************/

void main()
{
int LI_inzet;
int LI_dag;
int LI_result;
int LI_gamble;
int LI_profit;
int LI_in;

    LI_in = 50 ;
    LI_profit = 0;
    do
    {
        LI_in *= 2;
        LI_gamble = 36 * rand( ) + 1;                      /* rand:  */
        LI_result = 37 * rand( );
        if ( LI_gamble - LI_result == 0 )
        {
            LI_profit += 36 * LI_in;
        }
        else                                               /* if(LI_gamble-LI_result == 0) */
        {
            LI_profit -= LI_in;
        }                                                  /* end of else 'if(LI_gamble-LI_result == 0)' */
    } while( LI_profit < 0 );
    printf( "maximum in today %d : %4d\n", LI_dag, LI_inzet );  /* printf:  */
}                                                          /* end of V_main */