Testen kann er's auch mit seinen werten 70="F" 80= "P"
Stimmt, mit den returns hast du recht.

Dann muß aber auch hinter das Hauptprogramm ein END
Sonst spinnt er auch.
bleibt da solange hängen bis eine taste gedrückt wird. mit inkey kannste keine baud-botschaft abfragen
Inkey bezieht sich auf die serielle Schnittstelle und wartet nicht bis ein Zeichen kommt, sondern gibt eine "0" raus wenn kein Zeichen empfangen wurde.
Von daher sollte es gehen.
Hab' Inkey aber noch nie benutzt. Vielleicht irre ich mich ja auch, aber so verstehe ich das Handbuch.
Im Sim geht's auch so. Hab' nur noch LCD Befehle reingemacht, damit man was sieht

Code:
$baud = 9600


Config Portb = Output
    Dim Zeichen As Byte
    Zeichen = 0
Rsabfrage:

Do
  Zeichen = Inkey()
Loop Until Zeichen <> 0

If Zeichen = 70 Then Gosub Machwas
If Zeichen = 80 Then Gosub Mach

Goto Rsabfrage
End                                                         'end program




Machwas:
     Portb.1 = 1
     Lcd "1"
Return

Mach:
     Portb.1 = 0
     Lcd "2"
Return
Gruß
Christopher