Ungefähr so:

Code:
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 31250
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1

Open "COMD.2:9600,8,n,2" For Output As #1


' Variablendeklaration
Dim Zeiger As Byte At &HA0
Zeiger = 1
Dim Flag As Byte At &HA1
Dim Adresse As Eram Byte
Dim Adresse_temp As Byte At &HA3
Dim Tempword As Word At &HA5
Adresse_temp = Adresse
Dim Tempbyte As Byte At &HA7
Dim Tempbyte2 As Byte At &HA8

Dim Protokoll(10) As Byte

'Ausgangsports konfigurieren
Ddrd = &B01111110                                           
Ddrb = &B11111111
 


Do                                                        
 Tempbyte = Waitkey()     
 Gosub Zeichenempfang                                    
Loop


Zeichenempfang:
   Tempbyte = Udr
If Tempbyte > 0 Then  
 Print(#1) Tempbyte
end if
Return
End