Casio FP-200 - Page 141

~l
~;
t
~ ---
fl
;~
'•
~/
-------------------------GAME
760 CA$(I+5)=CA$(I):CA(I+5)=CA(I)c0A$(I+5)=0A$(I)
:NEXT I:Z=l:GOSUB 700
770 LOCATE 5,1:PRINT DA$(6):LOCATE 8,1:PRINT DA$(
?):LOCATE 11,1:PRINT DA$(8)cLOCATE 14,1:PRINT OA$(9
):LOCATE 17,1:PRINT DA$(10):M=0
780 LOCATE 5,2:PRINT CA$(6):LOCATE B,2:PRINT CA$(
7):LOCATE 11,2:PRINT·CA$(8):LOCATE 14,2:PRI~T CA$(9
>:LOCATE 17,2:PRINT CA$(10):FOR I=1 TO 600:NEXT I:G
OTO 280
790 IF YT<=YA THEN CLS:LOCATE 3,3:PRINT "COMPUTER
WIN! !":FOR I=1 TO 800:NEXT I:A=A-A1:GOTO 910
800 CLScLOCATE 4,3:PRINT "YOU WIN! !":FOR I=1 TO
800:NEXT I
810 IF YT=1 THEN A=A+A1
820 IF YT=2 THEN A==A+A1*2
830 IF YT=3 THEN A=A+Al*5
840 IF YT=4 THEN A~A+A1*8
850 IF YT=5 THEN A=A+A1*10
860 IF YT=6 THEN A=A+A1*1~
870 IF YT=7 THEN A=A+A1*30
880 IF YT=B THEN A=A+A1*40
890 ~i: F · YT;:9,< ·"-THENY':A=A+A 1 * 1 :50 "' T
900. IF.~ YT== 10 THEN''. A=A+A 1 *600 ·
910 IF -A=0 THEN LOCATE.1,3:PRINT "YOU
EY":l.OCATE 3,5:PRINT "GAME OVER ":ENO
920 CLS:FOR I=0 TO 20:CA(I)=0:DA(I)==0:CD$(I)="":N
EXT I:GOTO ~0
930
940
FOR !=1 TO 20
950 CA(I)=INT<RN0(-1)*13+1)
960 CA$(I)=t1IO$(C$,CA(I) ,1):IF CA$(I)="T" THEN CA
$(1)="1121"
970 DA<I>=INT(RND(-1)*4+1)
980 DA$ (I) :::.MI 0$ ( 0$, DA (I) , 1) : C0$=DAS <I) +CA$ (I)
990 FOR J=I TO 1 STEP -1: IF CO$=C0$(J) THEN 950
1000 NEXT J:C0$(I>=CO$~NEXT !:RETURN
[D~BUGJ
CA and CA$ arc variables for dealing cards by random numbers; DA and DA$ arc
variables for.f.- • marks; Hand HN are for changing cards; and YA, YB, and YC
are variables for determining the strengths of hands.
I
l
l
- I
I
j
145