Also ich hab jetzt alles probiert,

* Initialisiere das LCD nach dem Sprung noch mal neu,
* schreibe mehrfach den gleichen Text nacheinander

Alles bringt nichts - sobald er zu Pr: gesprungen ist fürt er zwar alle anderen IO Operationen aus (LEDs an PB.0 und PB.1 machen was sie sollen) aber ins LCD wird nichts mehr geschrieben...

Pr:
Initlcd
Waitms 500
For Var = 1 To 20 Step 1
Locate 2 , 1
Lcd "test1"
Portb.0 = 1
Wait 1
Portb.1 = 1
Wait 3

Portb.1 = 0
Portb.0 = 0

Next
Return



Nachtrag:


Also irgendwas mach debounbce anders als ein normaler gosub Aufruf!
Mach ich es nämlich so:

Code:
Do

   Locate 1 , 1
   Lcd " *** Test125 *** "
   Locate 2 , 1
   Lcd "Lrn Prg Tst Fw?"

   If Pind.0 = 0 Then Gosub Pr

Loop

End


Pr:
   Cls
   Locate 2 , 1
   Lcd "test1"
   Wait 5
Return
Dann funktiniert es einwandfrei!

Nur dass ich dann die Tasten nicht mehr entprelle...

...gibts Alternativen zu debounce???