; ***************** 
; Master Library 21
; *****************
; Hi-Lo Game


#EMULATOR c:\ti-59\ml\21\ML-21.t59

#LISTING c:\ti-59\ml\21\ML-21.LST

#AZEMULATOR c:\ti-59\ml\21\ML-21.TI

lbl c                                 ;000
x%t 1 sum 4 ( x%t - rcl 3 ) sto 5
( 1/x abs * rcl 5 ) rtn

lbl c'                                ;022
+/- 

lbl b'                                ;025
x%t 1 inv sum 2 ( 2 yx rcl 2 
+ x%t ) abs rtn

lbl b                                 ;042
( pgm 15 sbr dms * 1 0 2 3 + 1 )
int sto 3 0 sto 4 rtn

lbl d                                 ;064
ce rcl 4 rtn

lbl a'                                ;070
9 sto 2 5 1 2 adv rtn

lbl d'                                ;080
( 1 0 - rcl 2 ) rtn

lbl a                                 ;090
sto 9 rtn





#end 
