Nokia 3310 16f877

HI I TRY BELOW CODE IS WORKING THE DISPLAY SHOW "K000" BUT WE NEED TO CHANGE FONT K TO C HOW TO CHANGE IT ,WE DON'T SEE CODE OF "K" WHO KNOW PLS ADVISE

[CODE]:
DEFINE LOADER_USED 1
DEFINE OSC 20

DC var PortB.6
DTA var PortB.5
RST var PortB.7
CLK var PortB.4
CounterA var word
CounterB var word
Temp var word
LCD_CHR var byte
Col var byte
Digit var byte

CLEAR

gosub init
gosub clr
pause 80

gosub digitsout

Main:
for temp=0 to 999
gosub digitsout
pause 500
next temp
goto Main

init:
low PortB
Pause 100
high dc
gosub lcres
lcd_chr=$21
gosub lccmd
lcd_chr=$B5
gosub lccmd
lcd_chr=$13
gosub lccmd
lcd_chr=$20
gosub lccmd
lcd_chr=$09
gosub lccmd
pause 80
lcd_chr=$08
gosub lccmd
pause 80
lcd_chr=$0C
gosub lccmd
return

lccmd:
low dc
gosub dout
return
dout:
low clk
shiftout dta,clk,1,[lcd_chr\8]
return
lcres:
low rst
pause 80
high rst
return
CLR:
gosub home
high dc
for counterb=0 to 503
shiftout dta,clk,1,[0\8]
next counterb
return
lcdta:
high dc
gosub dout
return

Home:
lcd_chr=$40
gosub lccmd
lcd_chr=$80
gosub lccmd
return

DigitsOut:
gosub home
for counterA=3 to 0 step -1
Digit=temp dig countera
if countera=3 and Digit=0 then Digit=10
gosub dodigit
next countera
return
DoDigit:
for col=0 to 5
read col+digit*6,lcd_chr
gosub lcdta
next
return


end
'++++++++++++++++++++++++++++++++++++++++++++

Data $3E,$51,$49,$45,$3E,$00 ' 0 30
Data $00,$42,$7F,$40,$00,$00 ' 1 31
Data $42,$61,$51,$49,$46,$00 ' 2 32
Data $21,$41,$45,$4B,$31,$00 ' 3 33
Data $18,$14,$12,$7F,$10,$00 ' 4 34
Data $27,$45,$45,$45,$39,$00 ' 5 35
Data $3C,$4A,$49,$49,$30,$00 ' 6 36
Data $01,$71,$09,$05,$03,$00 ' 7 37
Data $36,$49,$49,$49,$36,$00 ' 8 38
Data $06,$49,$49,$49,$3E,$00 ' 9 39


[CODE]