Hey guys, first post on the forums - I was wondering if anybody here could help me shorten some of my code. I recently started working on a blackjack program with a decent UI (as opposed to simply using basic outputs) and just finished my shuffler code. It would be awesome if you guys could take a quick look at my code and tell me if - and how - it could be improved. Thanks!

```
"************
"-PROGRAMMED-
"-BY: DEFEKT-
"************
FnOff:ClrDraw
ZStandard
AxesOff:-6.5>A
ClrList L1,L3
Text(55,74,"V.0.62
Line(-7,1,-7,1
Line(7,1,7,-1
Line(-7,1,-6.3,1
Line(-7,-1,-6.3,-1
Line(6.3,-1,7,-1
Line(6.3,1,7,1
Text(17,28,"Generating
For(X,1,52,1
X>L1(X
Line(A,.3,A,-.3
A+.2(fpart(x/3)=0>A:end
text(17,27," shuffling "
for(Z,1,52,1
53-Z>X:Line(A,.3,A,-.3
A+.2(fpart(.5x)=0>A:end
Line(A,.3,A,-.3
randint(1,X>theta
L1(theta>L3(Z
0>L1(theta
SortD(L1):end
text(17,30," Sorting "
L3>L1
For(theta,1,52,1
1>L3(theta
If L1(theta) GEQ 14:then
2>L3(theta):end
If L1(theta) GEQ 27:then
3>L3(theta):end
If L1(theta) GEQ 40:then
4>L3(theta):end
L1(theta)-13(L3(theta)-1>L1(theta
L1(theta)>L2(theta
If L1(theta) GEQ 11:then
10>L3(theta):end
Line(A,.3,A,-.3
A+.18(fPart(.5theta)=0>A
end
text(17,32,"Complete
```

Variables:

A = X position variable for progress bar

Z = Temporary variable

Theta = Temporary variable

L1 = Card Number (1-13, 1 as Ace and 11-13 as Jack-King)

L2 = Card Value (1-10)

L3 = Card Suit (1-4)