Hallo Achim,

nichst überlesen! Habe ja kein Code eingestellt. Sollte doch nur ein Hinweis sein. Natürlich wenn Interesse, werde ich meine Variante zu Verfügung stellen.
Vorab ein Schnipsel:

'**** Variable für Anzeigeauswahl ****
Dim Lcd_aktualisieren As Byte 'Zähler für LCD-Anzeigen
Gosub Anzeigen
'************ Bereich für LCD -Anzeigen ***************************
Anzeigen:

'****** Startfenster *******
If Lcd_aktualisieren = 255 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd Status ; " ist Startfenster "
Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
Lcd " Hallo Achim "
Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
Lcd " Datum " ; Date$ ; " "
Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
Lcd " Zeit " ; Time$ ; " "
End If

'***************************

'hier zur LCD - Datenanzeige für Funk
If Lcd_aktualisieren = 254 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd Status ; " D0 | D1 | D2 "
Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
Lcd "_ " ; D0 ; " _|_ " ; D1 ; " _|_ " ; D2 ; "_ "
Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
Lcd " Temp1: " ; Temper1 ; " ßC "
Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
Lcd " Temp2: " ; Temper2 ; " ßC "
End If
'***************************
'hier zur LCD - Anzeige für Poti
If Lcd_aktualisieren = 253 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd Status ; " Poti Anzeige "
Locate 2 , 2 'Cursor auf 2 Zeile, 2 Spalte
Lcd " *Werte in Volt* "
Locate 3 , 2 'Cursor auf 3 Zeile, 2 Spalte
Lcd " Poti0 = " ; W0 ; " "
Locate 4 , 2 'Cursor auf 4 Zeile, 2 Spalte
Lcd " Poti1 = " ; W1 ; " "
End If
'***************************

'hier Anzeige Touch-Werte
If Lcd_aktualisieren = 252 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd " Touch Werte lesen "
Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
Lcd " Achsen testen "
Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
Lcd " X = " ; X ; " " 'die leer Zeichen löschen den Rest
Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
Lcd " Y = " ; Y ; " "
End If
'***************************

'hier Anzeige Touch-Panel
If Lcd_aktualisieren = 0 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd " Touch Test "
Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
Lcd " ************* "
Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
Lcd " * ENTER * " 'die leer Zeichen löschen den Rest
Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
Lcd " ************* "
Wait 1 'für Test anzeigen 3 Sekunden
End If
'***************************

'hier Anzeige Beispiel Temperaturreglung
If Lcd_aktualisieren = 2 Then
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd " Temperaturwarnung "
Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
Lcd " T1= 3 " ; "ßC" ; " zu hoch "
Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
Lcd " Temp1: " ; Tempfehler ; " ßC "
Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
Lcd " Temp2: " ; Temper2 ; " ßC "
Wait 5
End If
'***************************
usw.
Gruß
Fred