1 -
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,~::··.:._,..··.••·~-•.~-·.·
__
·:•_·:
... =
..
,
__
·•
...
·.·:~·-,·_•_:.,_·
..
_·.~.'·.:•··:·'..·
....
·
__
·:··•··::.···:·.·_·:.:•·:'-,.·_.•
.•
·.·
..
~-·
..
··~
...
•
.•
:.=:
...
-.•:•·-•.·_--·,·.:·:.·•·-y---:,·----:.·-=·•.-_-
..
-.·.·.-,.
__
:.
1
__
:.:.:.•._·.~-:_.~
..
-.-·,-.,-.-.'.·.·_
_
·-·
-.
-:-};:··
~~: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
143
To Next Page
Loading...
