; ******************************* 
; Leisure Library 02
; *******************************
; Photo 1 - Exposure Compensator

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

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

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

lbl clr
cms fix 9 0 rtn

( ce * 2 5 . 4 ) rtn

lbl a'
sbr 7

lbl a
sto 1 rtn

lbl b'
sbr 7

lbl b
sto 2 +/- rtn

lbl c
cp ge 85 ( rcl 4 * d ) x2 rtn

lbl d
( ( rcl 2 - 2 * rcl 1 + ( rcl 2 x2 - 4 * rcl 1
* rcl 2 ) sqr ) / 2 / rcl 1 ) rtn

( sto 3 sqr / d ) sto 4 rcl 3 rtn


#end