Casio FX-795P User Manual

|
i
i
4
126
CHAPTER
6
Program
Library
FoR
Kk=1
TO
4
@
PRINT
CORKMES
MIDSCK.
198AC3/
KI
a
NEXT
349
GOSUB
1a08:
BEEF
428
448
458
458
478
438
498
bel)
519
528
Sse
338
PRINT
coRas"Ptsds"s"s
Ag=
KEVS:
IF
Age""
THEN
388
TE
ag<"e"
THEN
358
fH
IF
Ag>"4"
THEN
369
He
UALCAgI:
IF
H=@
THEN
456
Ag=
MIDSON,
La
theC
ISAS
BEEP
:
PRINT
|
PRINT
"PLAYERS
Js"
"SASF
INPUT
"
MONE’
",
861,72
Le
woz,
J2é8e4,73
THEN
416
HEB,
DIEREZ
TBD
HEXT J
PRINT
PRINT
"
¢
START!
2"3
FOR
K=t
TO
1@!
SEEP
=
NEST
KE
PRINT
REM
main
loop
IF
G=2
THEN
689
FOR
J=1
TO
4
TF
Gat
THEN
56a
PRINT
CSRACL,
Joe"
"5
IF
BANC
a.
S482,
F1H
OT
THEN
Fi
Ct,
Jyehet,
J7+1
IF
Ae,
DIEZ
THEN
G=G+1
PRINT
CSRAC1.]33
MIDSCT,
193
HEXT 7
SOTO 388
REM
goal
PRINT
CSrGs
"GOAL!"
FoR
Jai
TO
7:
BEEF
=
BEEP
1:
NEXT
J
BOSUB
1888
FoR
J=1
TO
4
IF
ACL,
J3=25
THEN
HeACS,
JaFAS=
MID
$C7,
19
6-2 Horse Race Game
66a NEXT J
6G F=
688 FOR J=
S98 S=ge 723e8 THEN Fig
7a8 IF Weo Jos THEM MEMO d. Jo4H
3 BEEP
"PLAYER'S Je" 4PRIZE $05 Ms
SHC, 724+h3 GOSUB Lay
Pag PRINT + BEEP : IF X¢2,73=8 THEN F=
F+i
TSG PRINT "PLAYER": J:" HAS $"sKCR, Tees
GOSUB 1aBe —
r65a MEST J
PP PRIHT 3 BEEP } IF F=P THEN O38
rSQ PRINT OREPLAY Ch ae
TOG Ap= KEW: IF Ags" THEN ro
S0Q IF Ags"¥" THEM R=F+i: GOTO ise
BiG IF Ag="N" THEN 338
226 GOTO 735
S38 PRINT : PRINT "GAME QUER"
4a END .
18a8 REM timer sub
iBig FOR K=1 TO 15a: NEXT EK
1428 RETURN
oO od do
127

Casio FX-795P Specifications

General

Brand	Casio
Model	FX-795P
Category	Desktop
Language	English