Also wenn du schon Codes aus der Hilfe benuzt, dann aber auch zusammenhängend.
Deine Schleife enthält nicht den Code aus dem Beispiel. Das Beispiel mischt auch Terminal-Funktionen mit der Keyboard-Funktion.
Willst du das auch?
Deine Schleife erwartet Inhalte der Variable S aus der ser. Schnittstelle und nicht aus Keyboard.
Wenn da nicht's kommt kommt auch aud deinem PC nicht's.
Benutze:

Do

B = Getatkbd()

Loop Until B <> 0

Print B

Loop

End
Variable erklären ist noch nötig. Aber, die Hilfe ist dein Freund