Writing custom characters to LCD display

[fratello]

I try to display some characters, using this code :

; http://www.darreltaylor.com/files/CustChar.htm

  LCDOUT  $FE,$40,$04,$0A,$04,$00,$00,$00,$00,$00  ' Cust Char #0      degree Celsius
  LCDOUT  $FE,$48,$0A,$1F,$11,$11,$11,$11,$11,$1F  ' Cust Char #1      empty batt
  LCDOUT  $FE,$50,$0A,$1F,$11,$11,$11,$11,$1F,$1F  ' Cust Char #2      1/5 batt
  LCDOUT  $FE,$58,$0A,$1F,$11,$11,$11,$1F,$1F,$1F  ' Cust Char #3      2/5 batt
  LCDOUT  $FE,$60,$0A,$1F,$11,$11,$1F,$1F,$1F,$1F  ' Cust Char #4      3/5 batt
  LCDOUT  $FE,$68,$0A,$1F,$11,$1F,$1F,$1F,$1F,$1F  ' Cust Char #5      4/5 batt
  LCDOUT  $FE,$70,$0A,$1F,$1F,$1F,$1F,$1F,$1F,$1F  ' Cust Char #6      full batt

.....

char_batt:
batt = TmpW / 100        ; (TmpW is war word ; reading ADC)
select case batt
case batt < 105
char = 1
case batt => 105 and batt =< 115 
char = 2
case batt => 116 and batt =< 125
char = 3
case batt => 126 and batt =< 130
char = 4
case batt => 131 and batt < 144
char = 5
case batt => 144
char = 6
end select
return

...

if (temperature2/100) =>10 then
LcdOut $FE, $c0, "O:", Sign2, DEC (Temperature2 / 100), ".", DEC Temperature2 dig 1, 0 , " " , char ," ", dec TmpW dig 4,dec TmpW dig 3,",",dec TmpW dig 2
else
LcdOut $FE, $C0, "O:", Sign2, $14, DEC (Temperature2 / 100), ".", DEC Temperature2 dig 1, 0 , " ", char , " ", dec TmpW dig 4,dec TmpW dig 3,",",dec TmpW dig 2
endif

But I have on display just char # 1 ; do not change in # 2 to 5 ...
What I do wrong ? Thanks !