; ************************ 
; Leisure Library 03
; ************************
; Photo 2 - Fill-in Flash

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

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

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

lbl clr
cms fix 9 0 rtn

lbl a
( x%t 2 yx x%t ) 1/x sto 1 1/x rtn

lbl b
1/x sto 2 1/x rtn

lbl c
( sto 3 / ( rcl 2 - rcl 1 ) sqr sto 4 ) rtn

lbl d
( 1/x * rcl 3 / rcl 4 ) rtn


#end