; ******************* 
; Leisure Library 08
; *******************
; Bridge Scorer

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

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

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

lbl a
( sto 12 * 1 sto 13 ) inv stf 1 rtn

lbl b
sto 11 rtn

lbl c
stf 1 rtn

lbl d
2 prd 13 rcl 13 rtn

lbl e
0 sto 18 6 x%t rcl 11 inv ge 50 2 sum 18 rcl 11
x%t 7 inv eq 59 2 prd 18 inv iff 1 69 1 . 5 prd
18 6 ( exc 18 * 5 ) sto 17 inv iff 1 86 4 sum 18
4 0 x%t rcl 12 inv eq 97 3 0 sto 16 ( ( ce * (
rcl 11 - 1 ) + rcl 12 ) * rcl 13 ) sto 14 x%t 9 9
x%t ge 129 1 sto 18 rcl 13 x%t 1 eq 155 sum 18 (
5 0 inv iff 1 148 * 2 * rcl 13 ) sto 16 ( 5 0 * (
rcl 17 + rcl 18 ) + rcl 14 ) sto 14 rtn

lbl d'
( ce * rcl 16 + rcl 14 ) rtn

lbl e'
sto 18 ( 5 0 * rcl 13 inv iff 1 201 * 2 ) x%t rcl 16
x%t eq 217 ( ce * rcl 18 +/- ) rtn

( ce + x%t * ( rcl 18 - 1 ) * 1 . 5 iff 1 237 2 ) +/-
rtn

lbl clr
cms fix 9 inv stf 1 0 rtn


#end