$regfile = "m16def.dat"
$crystal = 16000000

Config Kbd = Portb , Debounce = 30
Enable Interrupts
Disable Int2
Enable Int0
On Int0 Stoptaste
Dim A As Byte
Dim B As Byte

Do
Incr A
B = Getkbd()
Print A ; " " ; B
Loop
End


Stoptaste:
Print "hallo"
Return