; ******************* 
; Leisure Library 11
; *******************
; Blackjack

#EMULATOR c:\ti-59\le\11\le-11.t59

#LISTING c:\ti-59\le\11\le-11.LST

#AZEMULATOR c:\ti-59\le\11\le-11.TI

lbl clr
pgm 1 sbr clr inv stf 1 inv stf 2 op 0 fix 9 rtn

inv iff 1 27 stf 2 inv stf 1 rtn

lbl e
sto 9 

lbl d
sbr clr stf 0 sbr 301 sto 3 x%t sto 2 inv stf 0 sbr 17
sbr 291 sum 3 sbr 17 adv 2 3 sbr 299 sto 5 

lbl a
3 6 sbr 299 sum 6 2 2 x%t ( rcl 5 + rcl 6 ) inv ge 122
prt x%t 4 5 3 2 4 1 0 0 1 4 op 2 4 1 3 6 3 7 1 7 1 6 op 3
op 5 gto 260

x%t 2 3 2 4 3 7 7 1 op 4 x%t op 6 op 0 adv rtn

lbl b
2 3 5 5 1 6 5 6 op 4 rcl 2 sbr 315 inv stf 1 1 6 x%t rcl 6
ge 169 x%t sto 8 op 28 rcl 8 x%t rcl 3 inv iff 2 205 ( ce
+ 1 0 ) inv ge 208 x%t 2 1 ge 241 inv stf 2 gto 173

ge 244 sbr 291 sbr 17 sum 3 rcl 3 x%t 2 1 ge 173 rcl 3 prt 
x%t 2 7 4 1 1 5 2 6 4 5 gto 282

x%t sto 3 rcl 3 prt x%t rcl 5 sum 6 rcl 6 x%t inv ge 227
x%t 1 3 2 2 1 3 2 4 3 1 op 3 3 7 3 5 4 5 0 0 0 0 op 2 op 5
op 0 adv x%t rtn

3 6 5 5 1 6 5 6 op 4 ( ( pgm 15 sbr dms * 1 3 ) + 1 ) int
sto 17 x%t 1 inv eq 339 stf 1 iff 0 414 pause 1 3 1 5 1 7
gto 408

1 0 inv ge 357 iff 0 414 rcl 17 op 6 op 0 pause rtn

sto 17 iff 0 414 1 2 x%t pause inv ge 399 eq 386 x%t
2 6 2 4 3 1 2 2 gto 408

3 4 4 1 1 7 1 7 3 1 gto 408

x%t 2 5 1 3 1 5 2 6 op 2 op 5 op 0 rcl 17 rtn

lbl a'
inv iff 1 431 inv stf 1 1 0 sum 5 ( rcl 6 + rcl 5 ) gto 77


#end