; ******************* 
; Leisure Library 06
; *******************
; Chess Rater

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

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

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

lbl d'
( ( sto 15 + 3 5 0 + abs - ( rcl 15 - 3 5 0 + abs
) ) / 2 - 3 5 0 ) rtn

lbl b
( sto 5 sum 6 - rcl 4 ) iff 3 48 d' sto 3 sum 1
op 22 ( rcl 5 - 1 2 0 0 ) iff 3 68 d' sto 14 sum 12
rcl 5 rtn

lbl b'
rcl 3 inv sum 1 rcl 14 inv sum 12 op 32 rcl 5 inv 
sum 6 0 rtn

lbl a
inv stf 1 inv stf 2 inv stf 3 sto 4 x%t fix 0 0
sto 1 sto 6 sto 2 sto 12 1 1 9 9 inv ge 131 stf 2
rcl 4 rtn

lbl a'
stf 3 sto 11 rtn

lbl c
stf 1 9 9 rtn

lbl d
sto 7 fix 1 rtn

lbl e
fix 0 ( ( rcl 6 + 4 0 0 * ( 2 * rcl 7 - rcl 2 ) sto 10
) / rcl 2 ) sto 9 ( ( rcl 12 / 2 5 + 1 2 0 0 + 1 6 *
rcl 10 ) - ( rcl 1 / 2 5 + rcl 4 + 1 6 * rcl 10 ) sto 8
) sto 16 iff 3 317 inv iff 2 266 rcl 9 x%t rcl 4 inv ge 
248 rcl 8 rtn

1 2 0 0 ge 263 ( rcl 8 + rcl 16 ) rtn

rcl 9 rtn

rcl 8 iff 1 276 sbr 373 rtn

( ( ce - rcl 4 ) - 2 4 x%t ( 1 6 + 2 * rcl 2 ) ge 300
x%t ) x%t 0 ge 307 x%t ( ce + rcl 8 ) sbr 373 rtn

( rcl 11 * ( 1 2 0 0 - rcl 4 ) / ( rcl 11 + rcl 2 )
) sto 16 ( ( rcl 11 * rcl 4 + 4 0 0 * rcl 10 + rcl 6
) / ( rcl 11 + rcl 2 ) ) sto 8 gto 231

sto 13 x%t 2 3 0 0 inv ge 386 x%t rtn 

x%t rcl 4 ge 408 ( rcl 13 - ( ce - 2 3 0 0 ) / 2 ) rtn

( rcl 13 - ( ce - rcl 4 ) / 2 ) rtn

lbl clr
cms fix 9 inv stf 1 inv stf 2 inv stf 3 0 rtn



#end