Hallo Stefan,

wichtig ist, daß die Leitung Data an Pin D6 kommt. An diesem Pin ist der Interrupt 0 herausgeführt. Sobald der ATMega an dem Pin eine fallende Flanke sieht, wird ISR0 ausgeführt:

Dim Taste As Word
On Int0 Isr0
Config Keyboard = Pind.2 , Data = Pind.6 , Keydata = Keydata
Enable Int0
Config Int0 = Falling
Enable Interrupts

do
'dein genialer Code
if taste > 0 then print chr(Taste)
loop

Isr0: 'interrupt routine
Taste = Getatkbd()
return

Code ist ungeprüft, hoffentlich habe ich auf die Schnelle nix übersehen...

P.S. schau dir mal Keydata aus meinem Beispiel an, da sind auch äöü und ß richtiggestellt...

Günter