Hallo Luppi,
wenn ich richtig verstanden habe, willst Du mit port d0 eine Auswahl treffen und mit d1 diese bestätigen. Ich habe das mal umgesetzt, was Du davon gebrauchen kannst mußt Du selbst wissen. Im Simulator läuft das Prog. wenn Du es aber auf den Chip brennst mußt Du wahrscheinlich die Abfragen von PortX.Y auf PinX.Y ändern, dieses Problem hatte ich auf jéden fall.

Code:
 '******************************************************
'Projekt: Auswahl Menü
'
'Prozessor: ATMega 8
'
'
'Hardware:
'LCD-Display an Port B 20*4 LCD  Controller   KS0076

'
'05.04.06 Thorsten  **** geändert 06.04.06 Rolf *******
'
'******************************************************

'======================================================
'System-Einstellungen
'======================================================
'Definition für Mega 8
$regfile "m8def.dat"

'Angabe der Taktfrequenz (1Mhz)
$crystal = 1000000

'Pin Config
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0

'======================================================
'Konfigurationen
'======================================================
'Angabe der Display-Größe
Config Lcd = 20 * 4
Dim A As Byte

'======================================================
'Konfigurationen   Eingang
'======================================================
Config Portd.0 = Input                                      'Taster 1
Config Portd.1 = Input                                      'Taster 2
Config Portd.7 = Output                                     'Led 8 an Port D
Config Portd.6 = Output                                     'Led 7 an Port D

'======================================================
'Initialisierungen
'======================================================
Portd.0 = 1
Portd.1 = 1
Portd.6 = 0
Portd.7 = 0

'======================================================
'Hauptprogramm
'======================================================
'Den Cursor ausschalten
Cursor Off
Cls
Do
'Text der ersten Zeile
If Portd.0 = 0 Then
   Locate 1 , 1
   Lcd "Led 7"
Else
   Cursor Off
   Locate 1 , 1
   Lcd "Led 8"
End If
'Text der dritten Zeile
Locate 3 , 1
Lcd "Schalter ein = Led 7"
'Text der vierten Zeile
Locate 4 , 1
Lcd "Schalter aus = led 8"
If Portd.1 = 0 And Portd.0 = 0 Then
   Portd.6 = 1
   Portd.7 = 0
End If
If Portd.1 = 0 And Portd.0 = 1 Then
   Portd.6 = 0
   Portd.7 = 1
End If
Loop

End

Gruß
Rolf