$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , E = Pinb.2 , Rs = Pinb.0

Dim R As Byte
Dim N As String * 4
Config Kbd = Porta , Delay = 5 , Cols = 4
Main:
R = Getkbd()
If R = 16 Then
Goto Main
End If
N = Lookupstr(r , D)
Cls
Lcd N
Goto Main
End                                                         'end program
D:
Data "1" , "2" , "3" , "cls"
Data "4" , "5" , "6" , "exit"
Data "7" , "8" , "9" , "go"
Data "*" , "0" , "#" , "off"