; ******************* 
; Leisure Library 09
; *******************
; Codebreaker

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

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

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

lbl e
cms sto 9 

lbl b
op 25 rcl 5 sto 6 ( pgm 15 sbr dms * 1 0 ) int x%t
rc* 6 eq 9 dsz 6 24 x%t st* 5 rcl 5 x%t 3 ge 7 0 rtn

lbl a
fix 9 prt sto 7 4 sto 5 ( rcl 7 / 1 0 ) sto 7 inv int
( inv sum 7 * 1 0 ) x%t 4 sto 6 rc* 6 eq 90 dsz 6
78 gto 102

rcl 6 x%t rcl 5 eq 99 . 1 sum 8 dsz 5 55 0 exc 8 fix 1 
prt adv rtn

lbl clr
cms rtn



#end