Code:
$crystal = 16000000

$regfile = "ATtiny2313.DAT"
$baud = 9600

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_irq
Const Timervorgabe = 3036

Enable Timer1
Enable Interrupts

Config Portd.3 = Output                                     'LED red
Ledred Alias Portd.3
Config Portd.4 = Output                                     'LED yellow
Ledyellow Alias Portd.4
Config Portd.5 = Output                                     'LED green
Ledgreen Alias Portd.5

Dim S As String * 5

Do
 Print "hello"
 Toggle Ledgreen
 Waitms 10
 Toggle Ledyellow
 Waitms 10
Loop

End


Timer1_irq:
 Timer1 = Timervorgabe
 Toggle Ledred
Return
*grml* das RS232 funkt auch nich...was is denn los