Soo ich habs jetzt raus (ersten 3 Bits).
Aber ich habe schon 43% belegt, leider fällt mir keine Methode mit Schleife ein!

Code:
$regfile = "ATtiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16

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
I = 0

Do

Loop

Timer_irq:

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

 If I > 64 And I < 97 Then                                  '2
  Portb.0 = 1
 End If
 If I > 96 And I < 129 Then
  Portb.0 = 1
 End If

 If I > 128 And I < 161 Then                                '3
  Portb.0 = 1
 End If
 If I > 160 And I < 193 Then
  Portb.0 = 1
 End If

Return
PS: irgentwo ist da noch ein Fehler drin, die IR Led blink viel zu langsam.