Hi ,

seit zwei tagen beschäftige ich mich jetzt mit bascom, par Sachen hab ich schon ganz gut hinbekommen aber jetzt taucht was auf wo ich keinen schimmer hab woran es liegt. Wahrscheinlich ganz blöder Fehler aber naja.
Was ist daran falsch:

Code:
$regfile = "m8def.dat"

 $crystal = 16000000

 $baud = 9600


 Config Portd.3 = Output
 Led Alias Portd.3


Dim S As String * 1

Do
 Input "type '1' for 'on' and '0' for 'off':"

  Print "You type: ";
  Print S

  Wait 1

  If S = 1 Then Led = 1
  Else Led = 0
  End If


  If S = 0 Then Led = 0
  Else Led = 0

  End If




 Loop
Hoffe die frage ist nicht zu ernidrigent.

mfg dunking