Hallo Tiller,

Code:
Config Keyboard = Pind.2 , Data = Pind.6 , Keydata = Keydata

On Int0 Isr0
Enable Int0
Config Int0 = Falling

Enable Interrupts


Do
   'tu was geniales...
Loop

'---------------------------------------------------------------------------
'     Isr0
'     Interruptroutine für die Tastatur
'     der externe Interrupt 0 überwacht die Dataleitung der Tastatur
'---------------------------------------------------------------------------
Isr0:                                                       'interrupt routine
 Taste = Getatkbd()                                         
 Select Case Taste
 Case 13:
   'Entertaste
 Case Else:
      If Taste <> 0 Then
         'tu was geniales...
      End If
 End Select
 Set Gifr.intf0
 Taste = 0
Return