Dim b_Proz as byte
dim s_Proz as string*3
b_Proz=Proz_hand
s_Proz=str(b_Proz)
lcd format(s_Proz,"000");"%"