$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = _
Pinb.5 , Rs = Pind.6 , E = Pind.7
Config Lcd = 16 * 2
Config Kbd = Portc
Dim Row As Byte , Column As Byte , A As Byte
Column = 1 : Row = 1
Main:
Lcd "1234"
A = Getkbd()
If A > 11 Then Goto Main
Locate Row , Column
Lcd A
Waitms 500
Incr Column
If Column > 15 Then
Column = 1 : Incr Row
End If
If Row > 2 Then
Cls : Row = 1
End If
jmp main
End