Roulette for TI-80
by Manuel Pelletier
released: October 1st,1997
e-mail: manuelpelletier@hotmail.com

you can copy this game to all your friends. The program take about 540 bytes 
of RAM memory.

How to play: Your money is displayed in the right corner of the screen. 
enter your bet, choose a number and a color, and let the wheel
spin !Good luck!

Program:roulette                   

:LBL 1:CLRHOME
:100->S                            note:-> is the STO sign
:DISP "ROULETTE"," "
:DISP "1.PLAY","2.RULES"," "
:INPUT "CHOICE:",C
:IF C=1:GOTO A
:IF C=2:GOTO B
:LBL B
:CLRHOME
:DISP "RULES:"," "
:DISP "NUMBER:x9"
:DISP "COLOR:x2"
:DISP "BOTH:x12"
:PAUSE:GOTO 1
:LBL A:CLRHOME
:DISP S
:DISP " "
:INPUT "BET:",B
:INPUT "NUMBER (1,9)",N
:DISP "COLORS (B,R)
:INPUT "ANSWER (0,1)",C
:CLRHOME
:RANDINT(1,9)->A
:RANDINT(0,1)->B
:DISP " ","THE WHEEL'S","SPINNING..."
:PAUSE :CLRHOME
:IF N=A:1->P
:IF C=B:1->Q
:IF P=1:THEN
:M*9->G:END
:IF Q=1:THEN
:(M*2)+G->G:END
:DISP "RESULTS"
:DISP " "
:DISP "NUMBER:"
:DISP A 
:DISP "COLOR:"
:IF B=0:DISP "           BLACK"            (note:11 spaces left blank)
:IF B=1:DISP "             RED"
:PAUSE:CLRHOME
:DISP "WINS/LOSSES:"
:DISP G
:G+S->S 
:DISP "TOTAL:"
:DISP S
:IF S<=0:THEN                             note:<= is te less or equal than
:DISP " "
:DISP "YOU ARE BROKE !"
:STOP:END
:PAUSE:GOTO A


Roulette pour la TI-80 
par Manuel Pelletier
Sorti:1er Octobre 1997
e-mail: manuelpelletier@hotmail.com

Voici la version française (Je suis quebecois) de mon jeu de roulette. Vous
pouvez le copier à tous vos amis. Il prend environ 540 octets de mémoire RAM.

Comment jouer: Votre argent est affiché dans le coin droit de l'ecran. misez,
choisissez un chiffre et une couleur et laissez la roue tourner! Et bonne 
chance!

Program:roulette

:LBL 1:CLRHOME
:100->S                            note:-> est le signe STO
:DISP "ROULETTE"," "
:DISP "1.JOUER","2.REGLES"," "
:INPUT "CHOIX:",C
:IF C=1:GOTO A
:IF C=2:GOTO B
:LBL B
:CLRHOME
:DISP "REGLES:"," "
:DISP "CHIFFRE:x9"
:DISP "COULEUR:x2"
:DISP "LES DEUX:x12"
:PAUSE:GOTO 1
:LBL A:CLRHOME
:DISP S
:DISP " "
:INPUT "MISE:",B
:INPUT "CHIFFRE (1,9)",N
:DISP "COULEUR (B,R)
:INPUT "REPONDEZ (0,1)",C
:CLRHOME
:RANDINT(1,9)->A
:RANDINT(0,1)->B
:DISP " ","LA ROULETTE","TOURNE..."
:PAUSE :CLRHOME
:IF N=A:1->P
:IF C=B:1->Q
:IF P=1:THEN
:M*9->G:END
:IF Q=1:THEN
:(M*2)+G->G:END
:DISP "RESULTAS"
:DISP " "
:DISP "CHIFFRE:"
:DISP A 
:DISP "COULEUR:"
:IF B=0:DISP "           NOIRE"            (note:11 espaces blancs)
:IF B=1:DISP "           ROUGE"
:PAUSE:CLRHOME
:DISP "GAINS/PERTES:"
:DISP G
:G+S->S 
:DISP "TOTAL:"
:DISP S
:IF S<=0:THEN                             note:<= signifie plus petit ou égal
:DISP " "
:DISP "VOUS ETES RUINES"
:STOP:END
:PAUSE:GOTO A