Die For..To..Next Schleifenzählung funktioniert in der Sub nicht.
Das wäre recht erstaunlich.

Code:
Dim a as byte
Sub Warnton 
 for a = 1 to 100
      Waitms 1 
      Portd.5 = Not Portd.5
 next
End Sub
Wenn er das nicht tut, müssen wir deinen Bascom umtauschen