; ******************* 
; Leisure Library 19
; *******************
; Computer Art

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

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

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

lbl a
x%t 1 gto 25 

lbl b x%t 2 gto 25

lbl c
x%t 3 gto 25

lbl d x%t 4 sto 0 x%t sto 1 int sto 2 1 6 sto 3
0 sto 4 5 sto 5 rcl 3 x%t rcl 2 inv ge 67 x%t inv
sum 2 ( rcl 5 - 1 ) inv log x2 sum 4 . 5 prd 3
dsz 5 43 ( rcl 4 * rcl 1 inv int * 1 0 0 ) op* 0
rcl 1 rtn

lbl e
op 5 

lbl clr
op 0 0 rtn

#end