Bascom Problem

Hallo, ich habe mit Bascom ein Programm zur DDS-Steuerung geschrieben. In dem Programm werden mehrer Unterprogramme aufgerufen, wo zuvor der Cursor für die LCD-Ausgabe mit "Cursor Noblink" abgeschaltet wird. Vor dem rücksprung schalte ich den Cursor mit "Cursor Blink" wider an. Die prozedur ist bei allen unterprogrammen die gleiche, nur von einem bleibt der Cursor komischerweise aus. Könnte mir da bitte jemand helfen ????

Danke !!!

Code:

---

.
.
...........Das ist die abfrage.............
.
.
Einstellen:

Waitms 100
Locate 1 , 1
Lcd "(1) - Festfrequenzen"
Locate 2 , 1
Lcd "(2) - Schrittweite"
Locate 3 , 1
Lcd "(3) - Buzzer"
If Wert(8) > 3 Then Wert(8) = 1
If Wert(8) < 1 Then Wert(8) = 3
Locate Wert(8) , 2


If Enter = 0 Then
  If So = 1 Then Gosub Beep
  If Wert(8) = 1 Then
      Cls
      Gosub Warte
      Cursor Noblink
      Stelle = 8
      Wert(8) = 1
      Goto Fest
  End If
 
  If Wert(8) = 2 Then
      Stelle = 8
      Wert(8) = Sw
      Cursor Noblink
      Cls
      Gosub Warte
      Goto Sweite
    End If

    If Wert(8) = 3 Then
      Stelle = 8
      Wert(8) = 1
      Cursor Noblink
      Cls
      Gosub Warte
      Goto Buzzer
    End If
End If

If _exit = 0 Then
  If So = 1 Then Gosub Beep
  Cls
  Locate 1 , 3
  Lcd "Save to EEprom ?"
  Locate 2 , 1
  Lcd "Left-No / Right-Yes"
  Do
  If Links = 0 Then
      If So = 1 Then Gosub Beep
      Cls
      Wert(8) = 4
      Goto Main
  End If

    If Rechts = 0 Then
      If So = 1 Then Gosub Beep
      Locate 3 , 1
      Lcd "Save Data to EEprom!"
      Dummy = 0
      Swe = Sw
      Soe = So
      For X = 1 To 9
        Ffeste(x) = Ffest(x)
      Next X
      Wait 1
      Wert(8) = 4
      Goto Main
    End If
    Loop
End If
Goto Einstellen
.
.
.
.
.
.
.
Buzzer:
Waitms 60
Locate 1 , 1
Lcd "-------Buzzer-------"

If Wert(8) < 1 Then Wert(8) = 1
If Wert(8) > 2 Then Wert(8) = 2

If Wert(8) = 1 Then
  Locate 2 , 6
  Lcd "Buzzer on "
  So = 1
End If


If Wert(8) = 2 Then
  Locate 2 , 6
  Lcd "Buzzer off"
  So = 0
End If

If _exit = 0 Then
  If So = 1 Then Gosub Beep
  Cls
  Gosub Warte
  Wert(8) = 3
  Cursor Blink                  ----------der bleibt aus-------------
  Goto Einstellen
End If
Goto Buzzer

---