' Programm zum Funktionsmodell "Ampelkreuzung" ' Pin0 bis Pin7 werden als Ausgänge verwendet. ' {$STAMP BS1} ' {$PBASIC 1.0} Setup: DIRS = %11111111 ' Pin0 bis 7 = Output Normalbetrieb: PIN2=1 ' Fahrzeugampel-1 rot PIN3=1 ' Fahrzeugampel-2 grün PAUSE 5000 ' 5 Sekunden warten PIN2=0 ' Fahrzeugampel-1 schaltet von grün auf gelb PIN1=1 PAUSE 2000 ' 2 Sekunden warten PIN1=0 ' Fahrzeugampel-1 schaltet von gelb auf rot PIN0=1 PAUSE 2000 ' 2 Sekunden warten PIN4=1 ' Fahrzeugampel-2 schaltet von rot auf rot-gelb PAUSE 2000 ' 2 Sekunden warten PIN3=0 ' Fahrzeugampel-2 schaltet von rot-gelb auf grün PIN4=0 PIN5=1 PAUSE 5000 ' 5 Sekunden warten PIN5=0 ' Fahrzeugampel-2 schaltet von grün auf gelb PIN4=1 PAUSE 2000 ' 2 Sekunden warten PIN4=0 ' Fahrzeugampel-2 schaltet von gelb auf rot PIN3=1 PAUSE 2000 ' 2 Sekunden warten PIN1=1 ' Fahrzeugampel-1 schaltet von rot auf rot-gelb PAUSE 2000 ' 2 Sekunden warten PIN1=0 ' Fahrzeugampel-1 schaltet von rot-gelb auf grün PIN0=0 GOTO Normalbetrieb ' Rücksprung zum Anfang END