OK hier mein fertiger Code! (=
Ich hab jetzt festgestellt, es funktioniert nur, wenn ich über RS232-Übertragungsschnittstelle angeschlossen bin. An der Anschlussstelle für RS232 an der C-Control an der Seite, funktioniert es nicht!
An was könnte das liegen???

Code:
#Abfrage

define x as Byte 
BAUD R9600    
LCD.INIT     
LCD.POS 1,1 
LCD.PRINT "Standby" 
LCD.OFF          
LIGHT=ON 'Licht aus 
Led1=true
  
IF RXD then 
    GET x
    SELECT Case x 
    Case 49 'ASCII Zeichen für 1        
        LCD.INIT        
        LCD.POS 1,1 
        LCD.PRINT "ALARM!" 
        LCD.OFF
        LIGHT=OFF 'Licht an 
        Rel1=true 
        PAUSE 300 '5 Sekunden Pause
        
    Case 48 'ASCCI Zeichen für 0    
        LCD.INIT 
        LCD.POS 1,1 
        LCD.PRINT "Alarm deaktiviert!" 
        LCD.OFF          
        LIGHT=OFF 'Licht an 
        Rel1=false
        PAUSE 300 '5 Sekunden Pause 
    END SELECT
END IF 

GOTO Abfrage