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