Code:
lcd_select=Off
       gosub LCD_CLS
       cmd=Line1 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "* *  M A N U E L L  L I C H T * *";
       cmd=Line1+34 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "#=Ende";
       cmd=Line2+2 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "1 = EIN gr. Licht";
       cmd=Line2+23 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "4 = EIN kl. Licht";
       lcd_select=on
       gosub LCD_CLS
       cmd=Line1+2 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "2 = AUS";
       cmd=Line1+23 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "5 = AUS";
       cmd=Line2+2 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "3 = AUTOMATIK";
       cmd=Line2+23 : gosub LCD_CMD
       sys prnLCD,LCD_RS_1 or SRPorts : print "6 = AUTOMATIK";
       return
und hier die definitionen

define Hauptfilter port[1] 'Hauptfilter
define Schnellfilter port[2] 'Schnellfilter
define Heizung port[3] 'Heizung
define Leuchte1 port[4] 'grosse Lichteiste
define Leuchte2 port[5] 'kleine Lichtleiste
define Magnetventil port[6] 'CO2-Anlage
define ReserveDP1 port[7] 'Reserve
define ReserveDP2 port[8] 'Reserve
define shclk port[9] 'Display
define ds port[10] 'Display
define LCD_Select port[11] 'Display
define stclk port[12] 'Display
define Temp AD[1] 'Eingang Temperaturmessverstaerker
define Ph AD[2] 'Eingang Ph-Messverstaerker
define ReserveAP3 AD[3] 'Reserve
define ReserveAP4 AD[4] 'Reserve
define ReserveAP5 AD[5] 'Reserve
define ReserveAP6 AD[6] 'Reserve
define ReserveAP7 AD[7] 'Reserve
define Tastatur AD[8] 'Eingang Tastatur
'
' *** Variablen-Definitionen ***
'
define Tabelle word 'Zwischenspeicher Auslesen der Tabellen
define Neuerwert word 'interner Zwischenspeicher für Werte ändern
define Wordspeicher word 'Uebergabevariable Wordspeicher
define Zwischenspeicher word 'Zwischenspeicher Berechnungen und Wordspeicher
define addr word 'Speicheradresse des EEprom
define wert word 'Übergabespeicher
define cmd word 'Kommando für LCD
define Werte_Einstellen byte 'Angabe Speicherzellennummer Wordspeicher
define key_nr byte 'Tastatur
define compare byte 'Tastatur
define Minutenzaehler byte 'Minutenzaehler Fuettern
define SRPorts byte[24] 'LCD - Ports (SRPorts)
define Hauptmenu bit[161]
define Automatik bit[162]
define Setup bit[163]
define Wartung bit[164]
define Futter bit[165]
define Manuell bit[166]
define Einstellen bit[158]
define Setup_Beleuchtung bit[167]
define Setup_Beleuchtung_Leuchte1 bit[168]
define Setup_Beleuchtung_Leuchte2 bit[169]
define Setup_Heizung bit[170]
define Setup_Schnellfilter bit[160]
define Setup_CO2 bit[171]
define Setup_Wartung bit[159]
define Manuell_Beleuchtung bit[172]
define Manuell_Heizung bit[173]
define Manuell_Filter bit[174]
define Manuell_CO2 bit[175]
define Hauptfilter_Hand bit[176]
define Hauptfilter_Alarm bit[177]
define Schnellfilter_Hand bit[178]
define Schnellfilter_Alarm bit[179]
define Wasserwechsel_Alarm bit[180]
define Bel1_Hand bit[181]
define Bel2_Hand bit[182]
define Heizung_Hand bit[183]
define CO2_Hand bit[184]
define RS bit[185]
define LCDLight bit[187]
define SRPort1 bit[188]
define SRPort2 bit[189]
define SRPort3 bit[190]
define SRPort4 bit[191]
define SRPort5 bit[192]
define Standardanzeige bit[186]
define Eingeben_Stoppen bit[157]


define LCD_RS_0 &B10 : define LCD_RS_1 &B11 :define LCD_nowrite &B0

'******** Einsprungadressen für LCD Ausgabe***********
define prnLCD &h151
define pcmd &h101
define setp &h130

'******** Einsprungadressen für PCF 8574 ******
define pop DA[1] 'Trick zum Auslesen des Stacks(siehe ccintern.dharlos.de)
define PCFread &h16c
define PCFwrite &h160
define PCF 64 'Adresse des PCF8574

'******* Einsprungadressen für EEpromzugriff (24C256) *******
define wrWord &h1ba 'Word-Wert in EEprom schreiben
define wrByte &h1cb 'Byte-Wert in EEprom schreiben
define rdWord &h1d7 'Word-Wert aus EEprom auslesen
define rdByte &h1e5 'Byte-Wert aus EEprom auslesen

'******* Definition der Speicherzellen für EEPromzugriff ******
define SPZ1 32500 'Speicherzelle 1
define SPZ2 32502 'Speicherzelle 2
define SPZ3 32504 'Speicherzelle 3
define SPZ4 32506 'Speicherzelle 4
define SPZ5 32508
define SPZ6 32510
define SPZ7 32512
define SPZ8 32514
define SPZ9 32516
define SPZ10 32518
define SPZ11 32520
define SPZ12 32522
define SPZ13 32524
define SPZ14 32526
define SPZ15 32528
define SPZ16 32530
define SPZ17 32532
define SPZ18 32534
define SPZ19 32536
define SPZ20 32538
define SPZ21 32540
define SPZ22 32542
define SPZ23 32544
define SPZ24 32546

Ich bin ein blutiger Anfänger, und möchte es auch lernen nur werde ich aus manchen Sachen einfach nicht schlau

Vielen Dank im Voraus

gruß meddie