Das Programm is noch nich ganz fertig.

$regfile = "4433def.dat"
$crystal = 3686400

Config Portd.3 = Output 'Relaisausgang
Config Portd.4 = Output 'Signalgeber
Config Portc = Output 'LED Anzeige
Config Pind.6 = Input 'Türkontakt
Config Pind.7 = Input 'Lichtschalter
Config Pinb.0 = Input 'Fernbedienung

Portd.6 = 0
Portd.7 = 0
Portb.0 = 0

'Config Adc = Single , Prescaler = Auto , Reference = on
'Start Adc

Signal Alias Portd.4
Relais Alias Portd.3
Rot Alias Portc.4
Gruen Alias Portc.5
Gelb Alias Portc.3

'Dim A As Integer

Do
'A = Getadc(1)
if Pind.7 and Pind.6 then
set Signal
end IF
Loop