Dim A As Byte
Dim B As Byte
Config Int0 = Falling
Config Int1 = Rising
Enable Int0
Enable Int1
Enable Interrupts
On Int0 Q
On Int1 W
Cursor Off
Main:
Do
Locate 1 , 1
Lcd "BE NAME KHODA"
Locate 1 , 1
Loop
End

Q:
Incr A
Locate 2 , 1
Lcd A ; "     "
Locate 1 , 1
Return

W:
Incr B
Locate 2 , 7
Lcd B ; "         "
Locate 1 , 1
Return