Program: BLAKJACK  (444 Bytes)

100->M
Lbl A
0->J
0->I
ClrHome
Disp "MONEY"
Disp M
Disp "BET"
Input Z
If Z>M
Goto A
Int 13Rand+1->A
Int 13Rand+1->B
If A>10
10->A
If A=1
11->A
If B>10
10->B
A+B->F
Lbl 8
ClrHome
Disp "CRDS WRTH"
Disp A
Disp B
Lbl 1
Disp "TOTL"
Disp F
If F>21
Goto B
Disp "1)HIT 2)STAY"
Input C
If C=2
Goto 3
If C =/ 1
Goto 8
Lbl 2
ClrHome
Int Rand12+1->E
If E>10
10->E
E+F->F
Goto 1
Lbl B
Disp ">21"
Pause
1->I
Lbl 3
ClrHome
Int 8Rand+17->G
Disp "DEALR TOTL"
Disp G
If G <= 21
Goto 9
Disp ">21"
1->J
Lbl 9
If I+J=2
Goto 4
If I=1
Goto 5
If J=1
Goto 6
If F<G
Goto 5
If F<G
Goto 6
If F=G
Goto 7
Lbl 4
Disp "DBL BUST!"
Pause
Goto A
Lbl 6
Disp "U WIN!"
M+Z->M
Pause
Goto A
Lbl 7
Disp "TIE!"
Pause
Goto A
Lbl 5
Disp "U LOSE!"
M-Z->M
Pause
If M>0
Goto A
Disp "UR BROKE!"