Code:
Sub Impulszaehlung()
Cls
Do
Locate 1 , 1
Lcd " **Impulse/Meter**  "
Locate 2 , 1
Lcd "Start Zaehlung     >"

Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste

Case 2
Gosub Impulszaehlung2

Case 5                                                      'Taste 5
Return                                                      'zurück
End Select
End If

Loop
End Sub
Das Problem sehe ich aber darin, das bei Impulszaehlung2 noch einen Nebenprogramm ablaufen müste, etwa so
Bild hier  
Wie bekomme ich das hin?