' ***********************************************************************
' PROGRAMM:           Ampel-04
' Aufgabe:            Programmiere die Ampel der Nebenstraße,
'                     mit variabler Dauer der Phasen
'
' Version:            cius_V2 Version 2.01 11.2000
' ************************************************************************
' Dateiname:          Ampel-04a
' Programmautor: 
' Arbeitsplatz: 
' Programmiert am:    1.1.2002
' Programmiersprache: CIUS_V2
' =========================================================================
' Vereinbarungsteil
'
' Modell:             CIUS-Ampel (von EMC)
' 
' Anschlussbelegungen des Modells
' A:Auto  F:Fußgänger HS:Hauptstraße (von Nord nach Süd) NS:Nebenstraße
'   Digitale Ausgänge (DOUTs):          Digitale Eingänge (DINs):
'     DOUT  1: A HS rot                   DIN  1: F NS Taster Ost
'     DOUT  2: A HS gelb                  DIN  2: F NS Taster West
'     DOUT  3: A HS grün                  DIN  3: F HS Taster Süd
'     DOUT  4: A NS rot                   DIN  4: F HS Taster Nord
'     DOUT  5: A NS gelb                  DIN  5: A NS Induktion Ost
'     DOUT  6: A NS grün                  DIN  6: A NS Induktion West
'     DOUT  7: F HS rot                   DIN  7: A HS Induktion Süd
'     DOUT  8: F HS grün                  DIN  8: A HS Induktion Nord
'     DOUT  9: F NS rot                         
'     DOUT 10: F NS grün                  
' ================================================================
'
' Start
DIM ngelb                         'Variable für Gelb-Phase Nebenstraße
DIM nrot                          'Variable für Rot-Phase Nebenstraße
DIM ngrün                         'Variable für Grün-Phase Nebenstraße
DIM nrotgelb                      'Variable für Rot-Gelb-Phase Nebenstraße

ngelb = 4                         'Die Variable erhält einen Wert zugewiesen
nrot  = 10                        'Die Variable erhält einen Wert zugewiesen
ngrün = 8                         'Die Variable erhält einen Wert zugewiesen
nrotgelb = 2                      'Die Variable erhält einen Wert zugewiesen
                        '
DO                                'Schleifenkopf
   DOUT 5, ON                     'GELB Auto Nebenstraße an
   WAIT ngelb                     'Programm wartet
   DOUT 5, OFF                    'GELB Auto Nebenstraße aus
   DOUT 4, ON                     'ROT Auto Nebenstraße an
   WAIT nrot                      'Programm wartet
   DOUT 5, ON                     'GELB Auto Nebenstraße an
   WAIT nrotgelb                  'Programm wartet
   DOUT 5, OFF                    'GELB Auto Nebenstraße aus
   DOUT 4, OFF                    'ROT Auto Nebenstraße aus
   DOUT 6, ON                     'GRÜN Auto Nebenstraße an
   WAIT ngrün                     'Programm wartet 
   DOUT 6, OFF                    'GRÜN Auto Nebenstraße aus
LOOP                              'Schleifenende, beginne am Schleifenkopf
' Ende