ich habe doch noch ein problem!

ich bekomme einen string gesentet nachfolgend <CR><LF>

hier mein code:

Code:
$regfile = "2313def.dat"
$crystal = 3686400
$baud = 9600

Ddrd = &B0011100

Dim A As String * 12
Dim B As Byte


Do
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1

Neu:
B = Inkey()
If B = 0 Then                                              
Goto Gut
Else
Goto Neu
End If

Gut:
Input A

If A = "Œ0104f054FA9" Then                                  
  Portd.3 = 0
  Portd.2 = 0
  Waitms 500

Else

  If A = "Œ01f3B986CB9" Then                                
      Portd.4 = 0
      Portd.2 = 0
      Waitms 500
      End If

End If
Loop
mein problem ist wenn ich die netzspannung trenne und wider einschalte geht nichts resete ich die den chip einmal läuft alles wie geschmiert ich kann mir das nicht erklären.

kann mir jemand sagen wo mein gedanklen fehler ist?

danke Nico