Hi MeckPommER,

vielen Dank für die Antwort. So klappts nun :

Code:
'--- Chip ---
$regfile = "m8def.dat"
$crystal = 16000000

'--- Ports ---
Config Portc.5 = Output
Config Pinc.4 = Output
Config Pinb.1 = Input

Portc.4 = 0

'--- Alias ---
Led Alias Portc.5

'--- Werte ---
Const Maxi = 4550
Const Mini = 900

'--- Dim ---
Dim I As Word

'--- Main ---

Do


   For I = 1 To 20

      Portc.4 = 0
      Pulseout Portc , 4 , Mini
      Waitms 20
      Portc.4 = 0

   Next I

   Wait 1

   For I = 1 To 20

      Portc.4 = 0
      Pulseout Portc , 4 , Maxi
      Waitms 20
      Portc.4 = 0

   Next I

   Wait 1

Loop
mfg Kay