Danke nochmals !
hier der Programmausschnitt :

$lib "Lcd_i2c.lib" 'I2C-Bus Treiber für LCD
$regfile = "m32def.dat" 'Controller Dateien
$crystal = 16000000 'Quarzfrequenz XTAL
$baud = 19200 'Übertragungsrate



$prog &HFF , &HEF , &HD9 , &HFF ' generated. Take care that the chip supports all fuse bytes.( 101111 16MHz)


Enable Interrupts

Const Pcf8574_lcd = &H40 'Defines the address of the I/O expander for LCD


Config Scl = Portc.0 'Configure I2C SCL
Config Sda = Portc.1 'Configure I2C SDA

Dim _lcd_e As Byte 'Needed to control 4 line LCD
_lcd_e = 128 'Upper half of 4-line display is selected
Config Lcd = 20 * 4 'Konfigurationsdatei LCD 20*4
Config Lcdbus = 4
Config Lcdmode = Bus


Config Date = Mdy , Separator = / 'ANSI Format
Config Clock = Soft

Date$ = "11/04/07"

Time$ = "23:55:00"


Config Porta = Input 'Port A = Eingang
Config Porta = 255 'PullUp aktiv (Eingang auf High)

Config Portd.7 = Output 'Port D.7 = Ausgang Gerät Ein/Aus
Config Portd.6 = Output 'Port D.6 = Ausgang OK - Taste
Config Portd.5 = Output 'Port D.5 = Ausgang Rec - Taste
Config Portd.4 = Output 'Port D.4 = Ausgang Stop - Taste
Config Portd.3 = Output
Config Portd.2 = Output



Config Pinb.0 = Output 'Port b.0 = Ausgang
Config Pinb.1 = Output 'Port b.1 = Ausgang
Config Pinb.2 = Output 'Port b.2 = Ausgang
Config Pinb.3 = Output 'Port b.3 = Ausgang
Config Pinb.4 = Output 'Port b.4 = Ausgang

Config Pinc.2 = Output 'Port c.2 = Ausgang (LCD-Beleuchtung Ein-Aus)
Config Pinc.3 = Output 'Port c.3 = Ausgang (Nf-Verstärker-Eingang -> Alarmton)
Config Pinc.4 = Output 'Port c.4 = Ausgang (Relais)
Config Pinc.5 = Output 'Port c.5 = Ausgang (Relais)

Speaker Alias Portc.3 'Tonausgabe

Const Keys = 8 '8 x Eingänge

Dim I As Byte
Dim Key As Byte 'Variable mit Tastennummer
Dim Var As Byte

Dim X As Byte
Dim Y As Byte
Dim Z As Byte

Deflcdchar 0 , 23 , 20 , 20 , 30 , 20 , 20 , 20 , 20 'Sonderzeichen HF

'Initlcd



'----------------------------Programmbeginn-------------------------------------


Starte:
'Sprungmarke 1
X = 0

Y = 0

Cls

Set Portc.2 'Port c.2 = Ausgang (LCD-Beleuchtung Ein )



Initlcd

Lcd " Alarmanlage - " ; Chr(0)
Lowerline
Lcd "Alle Schleifen aktiv"
Thirdline
Lcd " Starte Programm "
Fourthline
Lcd "--------------------"


Wait 3

Reset Portc.2 'Port c.2 = Ausgang (LCD-Beleuchtung Aus )


Weiter: 'Sprungmarke 2

Set Portc.2 'Port c.2 = Ausgang (LCD-Beleuchtung Ein )

Cls