Casio FX-730P - Page 103

660 f·4E>=:T ._T
~.70 F=0
680 FOR J=l TO P
6 '3(J "1=0: IF : :-:; i:: l ' .n =[t THEr·1 73>3
700 IF YS<J)=AS THEN M=X<l,J)*H
710 PRINT : BEEP
720 P~'.If·4T
11
PLA
1
Y
1
EF'.
11
;J; II ~PPIZE $ .. ;M;
730 X<2,J)=X<2,J)+M: GOSUB 1000
F+l
(:i0:3U8 1000
7f.>3 r·iE:=·::T .J
770 f='RH-ff : BEEP : IF F=P THEr·1 :;::30
780 t=·P I i'ff II F'.EPLA'·.-' [ •.,.• /t·C -::.i• ;
7'?0 AS= ~2/S: IF AS=" " T-HEr·i 7'?0
800 IF AS="\'" THEr·1 R=R+1: GOTO i:30
:310 IF AS="W THEr·1 :;::3~3
:320 GOTO 7'?0
:330 PPI~4T : F'~'.If'-4T
11
(:iAME Cit.)E~'.
11
:340 Ef-fD
10~30 F:EM t. i mer s1...1b
1010 FOR ~: : =1 TO 150: t1E::<T t<
1020 F:ETUR~i
5-2 Horse Race Game
93