Casio FP-200 - Page 140

rPOKER GAME-------------------------
340 YA=5:GOTO 560
350 IF CA$(6)<>"A" THEN 420
360 IF CA$(7><>"10" THEN 420
370 IF CA$(B><>"J" THEN 420
380 IF CA$(9)<>"Q" THEN 420
390 IF CA•i < 10) < >"K" THEN 420
400
~F YA=6 THEN ¥A=10:GOTO 560
410 YA=8:GOTO 560
420 IF YA=6 THEN 560
430 FOR I=6 TO 9:IF CAS(I)eCA$(I+1) THEN YB=YB+l
440 NEXT I:IF YB<>3 THEN 480
450 IF CA$(6)<>CA$(7) THEN YA=7:GOTO 560
460 IF CA$(9)<>CA$(10) THEN YA=7:GOTO 560
470 YA=4:GOTO 560
480 IF YB=0 THEN YA=0:GOTO 560
490 IF YB=l THEN YA=l:GOTO 560
500 FOR I=-6 TO 9
510 IF CA$CI)=CA$(l+1) THEN YC=YC+1:GOTO 530
520 YC=0
-530 IF YC=2 THEN YA=3:GOTO 560
540
NEXT I
- : 5:30 YA=2 _ ~ '-''~i,1,c:c:-,,,,,_,-,,':
.560 IF Z=l •- THEN LOCATE 1,3 ELSE LOCATE
!'570 IF YA=0 THEN PRINT "Zero pair"
580 IF YA=l. THEN PRINT "One pair"
144
590 IF YA=2 THEN PRINT "Two pairs"
600 IF YA=3 THEN PRINT "Three-of a kind"-
610 IF YA=4 THEN PRINT "Full hou1ge"
620 IF YA=5 THEN PRINT "Straight"
630 IF YA=6 THEN PRINT "Frash"
640 IF YA=jl THEN PRINT "Four of a kind"
650 IF YA=S THEN PRINT "Royal straight"
660 IF YA=9 THEN PRINT "Strc.dQht frash"
670 IF YA=10 THEN PRINT "Royal straight fr·ash"
680 GOTO 740
690 '
700 FOR 1=9 TO 6 STEP -1:FOR J=6 TO I
710 IF CA<J>>CA(J+l) THEN O=CA(J):CA(J)=CA(J+l):C
A<J+l)=O:P$=CA$(J)cCA$(J)=CA$(J+1):CA$(J+l)=P$:P$=0
A$(J):DA$(J)=DA$(J+1):DA$(J+1)=P$
720 NEXT J:NEXT !:RETURN
730 '
740 IF Z<>0 THEN FOR I=0 TO 2000:NEXT I:GOTO 790
750 YT=YA:YA=0:YB=0:YC=0:FOR I=l TO 5