si, das habe ich morgen vor mit dem oszi. was mich aber wundert ist das die IO Leds schnell und die +- LEDs nur so langsam blincken?

Code:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Tfla:
 If I4 = 1 Then
  Decr Inksens
  Toggle Ledrot
 End If
 If I4 = 0 Then
  Incr Inksens
  Toggle Ledgruen
 End If
Return

Thms:
 Timer3 = 53036                                             '100 ms
 Gosub Motorstatus
 'Waitms 10
 'Gosub Info
Return

Tini:                                                       'Zeitroutinen (jede sekunde)
 Timer1 = 3036

 Second = Second + 1
 If Second = 60 Then Gosub Addminute
 If Minute = 60 Then Gosub Addhour
 If Hour = 24 Then Gosub Addday

 If Day = 31 Then
  Select Case Month
   Case 1 : Gosub Addmonth
   Case 3 : Gosub Addmonth
   Case 5 : Gosub Addmonth
   Case 7 : Gosub Addmonth
   Case 8 : Gosub Addmonth
   Case 10 : Gosub Addmonth
   Case 12 : Gosub Addmonth
  End Select
 End If
 If Day = 30 Then
  Select Case Month
   Case 2 : Gosub Addmonth
   Case 4 : Gosub Addmonth
   Case 6 : Gosub Addmonth
   Case 9 : Gosub Addmonth
   Case 11 : Gosub Addmonth
  End Select
 End If

 If Month = 12 Then Gosub Addyear

 Tresult = Format(str(hour) , "00") + ":" + Format(str(minute) , "00") + ":" + Format(str(second) , "00")

 Dresult = Format(str(year) , "00") + "." + Format(str(month) , "00") + "." + Format(str(day) , "00")
Return

Addminute:
 Minute = Minute + 1
 Second = 0
Return

Addhour:
 Hour = Hour + 1
 Minute = 0
Return

Addday:
 Day = Day + 1
 Hour = 0
Return

Addmonth:
 Month = Month + 1
 Day = 0
Return

Addyear:
 Year = Year + 1
 Month = 0
Return                                                      'Ende

Tjoy:
 Gosub Fehlerquit
Return

Tterminal:
 Toggle Ledgruen
 Y = Udr
 Terminalpos = Terminalpos + 1
 If Terminalpos < 4 Then Buffer1 = Buffer1 + Chr(y)
 If Chr(y) = "[" Then
  Terminalpos = 0
  Buffer1 = ""
 End If
 If Chr(y) = "]" Then
  Gosub Rscomm1
 End If
 Toggle Ledrot
Return

Tauswerten:
 I = Udr1
 Answerposition = Answerposition + 1
 If Answerposition < Nextanswersize Then
  Antwort(answerposition) = I
 End If
Return
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
hier all meine Interrupt codes.

mfg