Okay, ich hab ja....

Do
B = Getatkbd() ' Abfrage der Tastatur / Byte
If B > 0 Then Print #4 , Chr(b)
Loop Until B = 13
End

womit kann ich den string chr(b) dann in byte umwandeln ?