Casio FP-200 Instruction Manual page 140

rPOKER G A M E - - - - - - - - - - - - - - - - - - - - - - - - -
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"
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