Horse Race Game - Casio FX-730P Owner's Manual

5-2 Horse Race Game
Place your bet by considering the odds on 4 horses in this horse race game. Start
with $20.00 and make a fortune by picking the dark horse.
• Program List
10 i;::EM Horse
P.~.ce
20 CLEAR : DIM A(3-:r4)
30 R=1:$="+.++"
4(l
pi;:: nff II< Horse F:a1::;e '>II
~
50 FOR .J=1 TO 5: SEEP : BEEP 1: r·lE:=ff
.j
7•3 PR HF II HOR'.3E II ~
80 FOR J=l TO 4: PRINT
T;
MI0$(J,1);:
l"!E>=:T .J
90 GOSUB 1000: GOSUB 1000
100 PRINT : BEEP
: 10 I r-iPUT
ti
HOl.•J
man)'
p
1 a:~,·ers
120 IF P>5 THEN 110
:.30 IF P<l THEN 110
If
p
=''
:;,40 PF:Ir-4T "ALL ?LA'/ER'.3 HAUE !20";
150 GOSUB 1000
:60 DIM
XC2,P),Y$(P)
i 70 FOR J=l TO F': :=<<2,.J)=20: r·E=<T .J
1:30 F:EM ini
t.i-~.l
ize
:·?0 G=0
200 FOR .J=l T1J 4
210 AC1,.J)=0:A(2,J)= RAN#:A(3,J)=1+ IN
TC10t(1.2-AC2,.J)))
22•3 \··JE::<T .J
230
P~:Ir·iT
:
P~'.I~~T 11 <~'.ACE";P;
..
> .. ;:
GOSU
8 1000
24~3
F:EM betJ memory
250 FOR J=l TO P
260 F·R
r
r~T : ;:.:;
i::
1 , .J) =0: '/$
i::
.J
>
= '' ''
27~3
IF
;:-;c,
.J)=0 THEt·4
45~3
2:30
P~'. I~~T
fl
PLA'/E~'. 11 ;
.J
~
"
HAS $";
:=-=: (
2,
.J);
2'?0 1:10SUB 1 •300
300 PR nff : PR nff "i:<:ATE
11
;
91