probier das mal, schreibe es für dich um und lese den zeichensatz aus

'================================================= =====
' Anzeige des im LCD eingebauten ZEICHENSATZES
' durch die enthaltenen tasten
' schrittweise auf (+) und ab (-)
' mike köppl 28.10.2006
'================================================= =====
'Definition für 2313

$regfile "2313def.dat"

'Angabe der Taktfrequenz
$crystal = 4000000

'================================================= =====
'Konfigurationen für LCD Modul an Port B
'================================================= =====
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
Config Lcdbus = 4
Cls
Cursor Off
Ddrd = &B00001100 'Eingänge für Tasten
Portd.2 = 1 '-pull up Widerstand für erste Taste aktivieren
Portd.3 = 1 '-pull up Widerstand für zweite Taste aktivieren

Dim I As Byte 'wert zuweisung
I = 0

Do

If Pind.2 = 0 Then
I = I + 1
End If

If Pind.3 = 0 Then
I = I - 1
End If

Cls
Locate 1 , 3
Lcd "CHR(" ; I ; ")" ; " = " ; Chr(i)
Locate 2 , 3
Lcd "Hexwert =" ; " " ; Hex(i)
Waitms 200

Loop