; ******************* 
; Leisure Library 07
; *******************
; Golf Handicapper

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

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

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

lbl clr
cms fix 9 7 sto 1 inv stf 0 0 rtn

lbl b
( rcl 3 + 6 ) sto 0 0 sto 30 7 sto 1 rcl 3 sto 5
rc* 1 sto 31 gto 48

rcl 31 x%t rc* 1 ge 56 rcl 1 sto 32 rc* 1 exc 31 op 21 
dsz 5 40 rcl 31 prt pause sum 30 rc* 0 ex* 32 op 30
op 33 dsz 6 26 op 0 7 7 op 4 rcl 30 adv op 6 pause op 0
6 7 op 4 ( rcl 30 / rcl 2 * op 6 pause . 9 6 ) sto 30
pause op 0 1 2 0 7 6 1 6 7 op 4 rcl 30 op 6 op 0 2 3
op 4 0 x%t ( rcl 30 inv ge 153 + . 5 ) gto 159

( ce - . 5 ) int op 6 rtn

lbl a
fix 3 prt fix 9 sto 30 ( inv int * 1 0 0 ) x%t ( rcl 30
int - x%t ) prt adv st* 1 sto 29 op 21 inv iff 0 205 rcl 28
sto 1 inv stf 0 rcl 29 rtn

lbl b'
sto 4 2 7 sto 1 rcl 4 a 7 sto 1 2 1 sto 4 rc* 1 op 31 st* 1
( rcl 1 + 2 ) sto 1 dsz 4 229 rcl 29 rtn

lbl a'
sto 3 prt 8 x%t ( rcl 3 inv ge 271 / 2 ) int gto 278

( rcl 3 - 4 ) int sto 6 sto 2 prt adv rtn

lbl e
( ce + 6 ) sto 27 stf 0 rcl 1 sto 28 rcl 27 ( sto 1
- 6 ) rtn




#end