Casio FX-730P - 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)