Casio FX-730P Owner's Manual page 102

92
CHAPTER 5 Program Library
310 FOR K=l TO 4
320 PRINT CSRK*5; MIDS(K,1);A(3,K);
330 r·lE>=:T
i<
340 130SUB 1000: BEEP
360 AS= KE'/S: IF AS=" " THEr·l 360
37>3 IF AS< "0" THEi'l 360
3:30 IF A!>"4" THHl 360
3'30 r·l= 1..JAL (AS) : IF ~·l=0 THEr·l 450
400 AS= MIDS(N,1):'/$(J)=AS
410 BEEP : PRnn : PF:rnT "PLA'/ER
11 ;
J;
11
II;
A$;
420 I rlF'UT
11
MOrlE'r'
11
, ::-::
< 1 , .J'
430 IF X(2,J)<X<1,J) THEN 410
440 ::~:i::2:- .J)=>=:<2:- .J)-'.:0::( 1,
.J)
450 r·JE=-::T
J
460 PRii'ff
470 PRHff
II
<
:3TART
I
>
11
;
4:30 FOR K=l TO 10: BEEP : NEXT K
490 PRHff
500 REM
main loop
51 •3 IF G=2 TH Erl
60~}
520 FOR .J=1 TO 4
530 IF 13~ 1 TH Erl 56~}
540 PRHff C::3RA( :!. '.J);
II II;
550 IF RAN#*(0.9+A(2,J)/l0)>0.7 THEN A
( 1, .J)=A(
1, .J)+l
560 IF A<1,J)=23 THEN G=G+l
570 PRINT CSRA<l,J); MID$(J,1);
5:30 r·lE>=:T J
59~}
J30TO 5•30
600
RE~1
·3oa.l
6 rn PR Irff c:;R0; "GOAL
1
11 ;
620 FOF.: .J=1 TO 7: BEEP : BEEP 1: r·lE=ff
T
·.!
630 130SUB 1000
640 i=oR .J=l TO 4
650 IF A<1,J)=23 THEN H=A(3,J):A$= MID
$(.J, 1)