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