Casio FX-795P - 6-2 Horse Race Game; Program List

CHAPTER
6
Program
Library
6-2
Horse
Race
Game
a
ng
|
Line
Nos.
180
—220...
Assigns
ranking
to
data
sorted
according
to
sequence
Place
your
bet
by
considering
the
odds
on
4
horses
in
this
horse
race
game.
Start
of
scores.
:
:
with
$20.00
and
make
a
fortune
by
picking
the
dark
horse.
Correspondence
of
array
variables
will
be
as
shown
below
in
relation
to
a
person
of
ranking
A
®
Program
List
:
:
i
Examinees’
Nos.
Scores
Ranking
16
PEM
Horse
Face
D(1,A)—
D(2,A)<7>D(3,A)
_
SE
CLEAR
©
DIM
ACS,4>
3A
RSLs"
sees"
|
iS
48 PRINT "<{ Horse Face >"3 i
Pi
Line
Nos.
300
—
360...
Displays
sorted
data
in
the
order
of
ranking,
exam-
4
inee’s
No.
and
score.
a
FOR
J=i1
TO
5:
BEEP
:
BEEP
i:
MEMT
I
|
Execution
example:
6a
PRINT
i
7a
PRINT
"HORSE"?
7
Operation
Display
BH
FOR
J=1
TO
48.
PRINT
33
MIDS¢
I,
toss
i
-
=
MEST
J
|
HUMES
Humber
of
data?
GOSUB
1988:
GOSUB
igae
i
a
_
PRINT
:
BEEP
|
TheNiT
on
cmpe
Es
sorting
TP
B35
THEN
Ta
phavens
NP
;
|
1
Ho
188
+
55
IF
P&L
THEN
118
'
oo
3
He
Lae
+
8
PRINT
"ALL
PLAVERS
HAUIE
s2a"s
7
=
——
GOSUE
Lowe
|
ea]
3
He
Las
+
8H
f
DIM
Moe,
Po,
VECRS
eS}
ad
do
1S
+
68
4
FOR
J=1
TO
Psxea,
J;
MENT
J:
|
———
—
REM
initialize
|
[ex
4
do
1B
+
BH
a=G
i
w
4
Ho
if4
+
68
FOR
J=1
TQ
4
£
J=SHIACZ,
Tis
aes
=
a
7
No
i8t
+
48
Tamia
I>
eS
ea]
5
He
TOT
+
FG
S20
MEAT
J
i
|
a
quUER
236
PRINT
?
PRINT
“<RACE"iRs"3"35
.G05U
_
a
5
1699
.
249 REM bet memory
258 FOR J=1 TOP
266 PRINT f4¢i, Tosa Yeco=" i
2°8 IF 4i2,J9=8 THEN 458
288
PRINT
"PLAYER":
33"
HAS
#":e2,
Jos
:
299
GOSUB
1988
:
|
388
PRINT
:
PRINT
"RATE
":
©
Since
the
sorted
data
remain
in
array
D(1,
1)~
D
(3,
C),
they
can
be
used
in
a
different
program.
124
125