\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=TWENTY1
0\->\H
0\->\I
Lbl 9
ClrHome
Disp "DEALING..."
ClrList L\1\
ClrList L\2\
52\->\dim(L\1\)
seq(int(A/4)(int(A/4)<10)+10(int(A/4)\>=\10),A,4,55,1)\->\L\2\
L\2\\->\L\3\
1\->\C
Lbl 1
iPart(randdim(L\2\))+1\->\D
L\2\(D)\->\L\1\(C)
L\2\(53-C)\->\L\2\(D)
dim(L\2\-1\->\dim(L\2\
IS>(C,52)
Goto 1
FnOff 
AxesOff
ZoomSto
ZStandard
ZInteger
1\->\A
Lbl 2
0\->\B
0\->\C
ClrDraw
Vertical 0
Text(0,1,"DEALER")
Text(0,49,"PLAYER")
B+L\1\(A)\->\B
B\->\D
L\1\(A)\->\K
Text(7,1,"?")
If L\1\(A)=1
11\->\D
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl A
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto A
1\->\A
DispGraph
End
B+L\1\(A)\->\B
D+L\1\(A)\->\D
Text(14,1,L\1\(A))
If L\1\(A)=1 and B=D
B+10\->\D
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl B
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto B
1\->\A
DispGraph
End
C+L\1\(A)\->\C
C\->\E
Text(7,49,L\1\(A))
If L\1\(A)=1
11\->\E
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl C
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto C
1\->\A
DispGraph
End
C+L\1\(A)\->\C
E+L\1\(A)\->\E
Text(14,49,L\1\(A))
If L\1\(A)=1 and C=E
C+10\->\E
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl D
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto D
1\->\A
DispGraph
End
If D=21 or E=21
Goto 7
14\->\G
Lbl 3
If G=35
Then
Text(50,49,"5-CARDS")
Text(57,49,"YOU WIN!"
1+I\->\I
Goto 8
End
Text(50,49,E,"- HIT?")
Text(57,49,"1=YES")
getKey
Lbl 4
getKey\->\F
If F=0
Goto 4
If F=92
Then
G+7\->\G
C+L\1\(A)\->\C
E+L\1\(A)\->\E
Text(G,49,L\1\(A))
If C\!=\E and C>11
C\->\E
If L\1\(A)=1 and E\<=\11
C+10\->\E
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl E
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto E
1\->\A
DispGraph
End
If E<21
Goto 3
If E=21
Goto 7
Text(50,49,E,"- OVER 21 ")
Text(57,49,"YOU LOSE!"
H+1\->\H
Goto 8
End
14\->\G
49\->\J
Lbl 5
Text(50,J," ")
Text(57,J," ")
IS>(J,94)
Goto 5
Lbl 6
If G=35
Then
Text(50,1,"5-CARDS,"
Text(57,1,"WINNER"
H+1\->\H
Goto 8
End
If D<E
Then
G+7\->\G
B+L\1\(A)\->\B
D+L\1\(A)\->\D
Text(G,1,L\1\(A))
If B\!=\D and B>11
B\->\D
If L\1\(A)=1 and D\<=\11
B+10\->\D
A+1\->\A
If A=53
Then
Disp 
L\3\\->\L\2\
1\->\L
Lbl F
iPart(randdim(L\2\))+1\->\M
L\2\(M)\->\L\1\(L)
0\->\L\2\(M)
SortD(L\2\)
dim(L\2\-1\->\dim(L\2\
IS>(L,52)
Goto F
1\->\A
DispGraph
End
If D<21
Goto 6
End
Lbl 7
Text(50,1,"-----",D,"-----")
Text(50,49,"-----",E,"-----"
If D\>=\E and D\<=\21
Then
1\->\J
H+1\->\H
Else
49\->\J
I+1\->\I
End
Text(57,J,"WINNER")
Lbl 8
Text(7,1,K)
Pause 
Menu("PLAY","AGAIN",2,"AGAIN- SHUFFLE",9,"QUIT",0)
Lbl 0
ZoomRcl
AxesOn
ClrDraw
ClrList L\1\
ClrList L\2\
ClrList L\3\
ClrHome
Disp "DEALER WON:",H,"YOU WON:",I
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\