_________________________________________________________________________

           Title: Roulette
          Author: TrePimpy@aol.com
      Written by: Sent to me via e-mail.
     Description: Simple Roulette game.
 
_________________________________________________________________________

Command translation:

-->              Single arrow (located on the keyboard)
==>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
_________________________________________________________________________

 Program:


"
"ROULETTE"
Fix 0
"YOU CAN BET ON A NUMBER FROM 00-36"_
"OR YOU CAN BET ON A COLOR"_
Lbl 0
10000-->N
Lbl 1
N<=0==>Goto 7
"YOU HAVE":N_
"1--> NUMBER"
"2--> COLOR"
?-->A
Lbl 2
"BET"?-->P
P>N==>Goto 2
A=1==>Goto 3
A=2==>Goto 4
Lbl 3
"PICK A NUMBER 0-36"
"37 for 00"
?-->B
B<0==>Goto 3
B>37==>Goto 3
"YOU PICKED":B_
"LET IT SPIN"
Int (38Ran#)-->C
"BALL LANDED ON":C_
B=C==>Goto 6
B<>C==>Goto 5
Goto 1
Lbl 4
"PICK A COLOR"
"1-->RED"
"2-->BLACK"
?-->C
C=1==>"YOU PICKED RED"_
C+2==>"YOU PICKED BLACK"_
"LET IT SPIN"
Int (3Ran#)-->D
D<1==>1-->D
D>2==>2-->D
D=1==>"RED"
D=2==>"BLACK"
C=D==>Goto 6
C<>D==>Goto 5
Goto 1
Lbl 5
"YOU LOSE"_
N-P-->N
Goto 1
Lbl 6
"YOU WIN"_
N+P--N
Goto 1
Lbl 7
"GAME OVER"_
"PLAY AGAIN?"
"1-->YES"
"2-->NO"
?-->W
W=1==>Goto 0

_________________________________________________________________________