; ******************* 
; Leisure Library 05
; *******************
; Bowling Scorekeeper

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

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

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

lbl a'
cms ( sto 6 + 1 0 ) exc 6 sm* 9 rtn

lbl b'
( ce - int sto 1 ) RTN

lbl c'
rcl 8 rtn

lbl d'
rc* 9 rtn

lbl e'
( b' * 1 0 ) rtn

lbl a
cp sto 9 eq 235 9 sum 9 inv stf 7 rc* 9 op 19 iff 7
239 . 0 1 sbr 12 d' e' e' cp inv eq 92 . 1 +/-
sbr 12 1 0 0 +/- sqr rtn

( rcl 9 - 9 ) rtn

lbl b
sto 8 sbr 12 d' e' b' cp rcl 1 eq 125 c' sbr 12 . 1
+/- sbr 12 ( d' e' b' 0 x%t rcl 1 - 2 ) inv ge 150
c' sbr 12 . 1 +/- sbr 12 ( cp c' - 1 0 ) inv eq 173
d' e' e' cp eq 173 . 2 sbr 12 c' rtn

lbl c
( sto 7 sbr 12 d' e' b' cp rcl 1 - 1 ) inv eq 207 rcl 7
sbr 12 . 1 +/- sbr 12 ( c' cp + rcl 7 - 1 0 ) inv eq 226
. 1 sbr 12 rcl 7 rtn

lbl d
sbr 12 rtn

1 +/- lnx rtn

( rcl 9 - 9 ) rtn

lbl e
sto 9 adv prt 9 sum 9 d' prt rtn

lbl prt
fix 0 rcl 6 x%t 9 sto 1 op 21 ( rcl 1 eq 289 adv - 9 )
prt pause rc* 1 prt pause gto 268

- 1 0 ) rtn

lbl clr fix 9 cms rtn



#end