Advertisement
GAME
[Ffl[$][T)
3299
Bytes
.......
~
.. ~4 .....
~
...... ~,,~,,,,_ ...... ,, .. __ ,._,._,....,~ ......
~
.. 4"""~"""-"""q" __ ,. ___ ,. .. , , , ... ,,,_,. _ _ _
10
CLS: CLEAR -
20
DIM
L<:S> ,CA!l>C20> ,DA$(20)
,CA(21i?J ~DA(20) ,C0$(20
30 C$="A23456789TJQI(":
1)$:::" ♦ +••"
40 A=10
50 LOCATE'!S,2:PRINT
"Stake";A
60
LOCATE
:S,4:INPUT "Bet";Al: IF -A-A1<0-THEN 60 -
70 CLS:LOCATE 4,3:PRINT."JUST
A.MOMENT"cVA~0:YB=
0:YC=0:YD=0:YE=0:Z=0
80 GOSUB 940:CLS:GOSUB 700
90 LOCATE 0,2:PRINT "COM":LOCATE 0,5:PRINT "YOU"
100 QUAD(34,4)-(54,27)
110 QUAD(58,4)-C78,27)
120
QUAD(82,4)-(102,27)
130 QUAD(106,4)-(126,27)
!- --
!
~ ~ ~~ ~
g
~
;~
!
2:
~
::
~
;
~~es~
r> · - -
~
: ~ ~-, - -~' __ _ / ~. . ' . :)
~
i:~-" ~-: . • · .. -- . . . .
:.:_~_··.··.·•.··tl,~::··.:._,..··.••·~-•.~-·.·
__ ·:•_·:
...
= . . , __ ·• . . . · . · : ~ · - , · _ • _ : . , _ · . . _ · . ~ . ' · . : • · · : · ' . . · . . . . · _ _ · : · · • · · : : . · · · : · . · _ · : . : • · : ' - , . · _ . • . • · . · .. ~
-: - }; : · · ~~: g
~~~J;:~r~1:1~;t}ft~\1:1;~:r·~' ' : i!~:;~~
2
/,t?;:;i~~rfil\~t~;i"f
(.
7:. -.
180
QUAD C
106, 29) ...,; (
126; 52 >
-
;
l
90
QUAD
< 130, 29) - ( 150 , :52)
i -
200
LOCATE
5,4:PRINT DA$(6):LOCATE 8,4:PRINT DA$(
7
> :
LOCATE 11
1
4: PR INT--OA$ (8) : LOCATE 14, 4: PRINT"- DA$ ('9
>:LOCATE 17,4rPRINT DA$(10)
.
210
LOCATE ~,~rPRINT CA$(6)1LOCATE 8,~:PRINT CA$(
7):LOCATE 11,5:PRINT CA$(8):LOCATE 14
1
5:PRINT CA$(9
):LOCATE 17,~:PRINT CA$(10>
220 IF M=l THEN 280
230
LOCATE
0,6:INPUT HN:E=10:
I=ll
240 H=INT<<FRAC(HN/E))*l0>:IF H>5 THEN 230
250 IF H=0 THEN 270
260 H=H+5:CAS(H)=CAS<I>:DA$(H>=DA$(l):CA<H>=CA<I>
:I=I+1:E~E•10:GOTO
240
270 GOSUB 700:M=l:CLS:GOTO 90
280 FOR .I=7
TO
10
290 IF DA$(6><>DA$(I) THEN 310
300
NEXT I:YA=6
310 FOR I=6 TO 9
320 IF CA(I)+l<>CACI+l)
THEN 3~0
330 NEXT I:IF YA=6 THEN YA=9:GOTO 560
Advertisement
