Das End If fehlt, ich schätze, es fehlt hier:
Code:
$regfile = "m8def.dat"
$crystal = 1000000

Dim One As Bit
One = 1
 Config Pind.0 = Output
 Config Pind.2 = Output
 Config Pind.5 = Output
 Config Pind.7 = Output
 Config Pinb.2 = Input
 Taster Alias Pinb.2
 Portb.2 = 1
  Do

  While One = 1

  Portd.0 = 0
  Portd.2 = 1
  Portd.5 = 0
  Portd.7 = 1


  If Taster = 0 Then
   Portd.0 = 1
   Portd.2 = 0
   Portd.5 = 1
   Portd.7 = 0
   Waitms 60
   Portd.0 = 0
   Waitms 150
  End If 


  Wend

  Loop
  End