Oky dann lasst uns doch mal den Code zusammenbasteln!

Code:
$regfile = "Attiny13.dat"                                   ' the used chip
$crystal = 9600000

Config Portb.0 = Output                                     'LED
Config Portb.4 = Input                                      'Schalter gegen GND
Portb.4 = 1                                                 'Pullup

Schalter Alias Portb.4

Config Timer0 = Timer , Prescale = 8
On Timer0 Timer_irq
Const Timervorgabe = 256 - 33

Enable Timer0
Enable Interrupts

Dim I As Byte

Do

Loop

Timer_irq:

If Schalter = 1
 If I < 33 Then
  Portb.0 = 1
 End If

 If I > 32 And I < 65 Then
  Portb.0 = 0
 End If

 If I = 64 Then
 I = 0
 Else
 I = I + 1
 End If

End If

Return
Ist noch ein Fehler bei der Varibale I drin "Out of space?!"
Was fehlt hier sonst noch?