hey klapt jetzt alles danke nochmal diese erfolgserlebnisse sind einfach spitze!

hir nochmal der code

Code:
$regfile = "2313def.dat"                                    'AT90S2313
$crystal = 3686400
$baud = 9600                                                'Quarz: 3.6864 MHz
Ddrd = &B1011110                                           'Ausgang konfigurieren
Portd = &B0100001

Dim A As String * 12
Dim C As Byte

Cls
Cursor Off Noblink
Q:
C = Inkey()                                                 
If C = 0 Then
Goto B
Else
Goto Q
End If
B:
Input A
If A = "Œ8401D16B625" Then
   Cls
  Lcd "Richtig"
  Wait 1
  Goto Q
Else
  Cls
  Lcd "Falsch"
  Wait 1
  Goto Q
End If
End
ich lese jetzt den speicher einfach aus solange er lehr ist und erst dann gehts weiter.

wenn noch jemand ne ide hat wie es einfacher geht bin ich dankbar.

gruß Lanic