sounddatei übertragen per uart

hallo
ich habe versucht sound auszugeben genauso wie auf dieser seite 
http://www.rpi.edu/~kouttd/03/Rage_against_the_arduino.html das problem 
ist aber, dass ich keine daten per uart mit "Input" empfange sondern mit 
Config Serialin = Buffered , Size = 255
Dim Na As String * 10
Enable Interrupts
Dim A As Byte
Do
 A = Inkey()
If A > 0 Then
    Print "ASCII code " ; A ;
End If
Loop
 End
gibt aber bis 255 char aus

das zweite problem ist, dass die soundausgabe per pwm bei mir nicht so 
funktioniert wie auf die seite sondern wie immer so Config Timer1 = Pwm 
, Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , 
Prescale = 256

warum er jetzt die timer als counter benutzt ist mir aber ein rätsel
hat jemand es vielleicht schon mal realisiert?
es muss nicht mit  bascom  sein, es geht auch mit c aber bitte mit viele 
kommentaren wenn es geht oder vielleicht mit einem anderen Vorgang
vielen dank im voraus