Horsebet
=====================
Credits:
Idea: Thomas Breivik
Programming: Sigurd Schaathun
-----------------------------
___________________________________________________________
It's made on a Casio FX-9700GE.
This is a ASCII-file with some odd signs as the special commandoes at
the calculator:
Explenation of signs:
HORSEBET
S=then
 =into
=disp.

Enter the following modules. The last line before a module begins is,
"123456789012345678901"
___________________________________________________________

123456789012345687901
Int 20Ran#+1 A
Int 20Ran#+1 B
Int 20Ran#+1 C
Int 20Ran#+1 D
Lbl 1
"********************
**  H O R S E B E T
*********************
*"
"Todays stable hints:
"
"Track 1:"
A
"Track 2:"
B
"Track 3:"
C
"Track 4:"
D
"Which horse"? N
Int N>4SGoto 1
Int N<1SGoto 1
Lbl 2
"Your account"
S
"How much do you bet"
? T
Int S<TS"To high"
Int S<TSGoto 2
Int T<1S"To low"
Int T<1SGoto 2
Int ARan#+1 A
Int BRan#+1 B
Int CRan#+1 C
Int DRan#+1 D
Int N=1SInt A>BSInt A
>CSInt A>DSGoto 4
Int N=2SInt B>ASInt B
>CSInt B>DSGoto 4
Int N=3SInt C>BSInt C
>BSInt C>DSGoto 4
Int N=4SInt B>ASInt B
>CSInt B>DSGoto 4
Goto 5
Lbl 4
"The winner horse:"
N
"You win"
S+T S
"Your Account"
S
Goto 6
Lbl 5
"LOOSER"
Goto 6
Lbl 6