UNIT Komampel; 

INTERFACE 
uses crt; 

type 
bytestring = string[8]; (*Datentyp fuer die Parameteruebergabe
                          bei der Prozedur Binaus *) 

procedure Ausgeben (Byt:integer); (*Gibt den in Byt uebergebenen
                             Wert auf dem definierten Druckerport 
                             als Binaerzahl aus. *) 

function Einlesen : Byte; (*Liest die Steuerleitungen auf dem
                            definierten Druckerport und uebergibt 
                            den Wert als Byte *)

procedure Warte (Zeit : real); (*Macht eine Pause der angegebenen
                                 Laenge. Die Zeit wird als Dezimalzahl 
                                 in Sekunden angegeben.*)

procedure BinAus (BitMuster: ByteString);(*Gibt das uebergebene
                                 Bitmuster nach Umwandlung in eine Zahl 
                                 vom Typ Byte auf dem definierten
                                 Druckerport aus.

                                 Der übergebene String hat die 
                                 Struktur '01010101' fuer
                                 das entsprechende Bitmuster. *) 

function sensor : boolean; (* Liest den Wert der Sensorleitung
                              der Kombiampel ein und verwandelt 
                              ihn in einen boolschen Wert.

                              Wenn der Sensor hell ist, ist sein
                              Wert TRUE, sonst FALSE. *) 

function taster : boolean; (* Liest den Wert des Tasters der
                              Kombiampel ein und verwandelt ihn in 
                              einen Boolschen Wert.

                              Wenn der Taster gedrückt ist, ist
                              sein Wert TRUE, sonst FALSE. *) 

function schalter : boolean; (* Liest den Wert des Schalters der
                                Kombiampel ein und verwandelt ihn in 
                                einen Boolschen Wert.

                                Wenn der Schalter geschlossen ist,
                                die Eingangsbuchsen sind dann 
                                ueberbrueckt, ist sein Wert TRUE, 
                                sonst FALSE. *) 

function tastatur : boolean; (* Fragt nach, ob eine Taste auf der
                                Tastatur gedrueckt worden ist. *) 

procedure Lauflicht_ein; (* Schaltet die Kombiampel auf den *) 

procedure Ampel_ein; (* entsprechenden Betrieb um. *)

procedure Wuerfel_ein; 

procedure Disco_ein; 

procedure aendere_schnittstelle(stelle : char); 
                               (* Mit Stelle = '1', '2' oder '3' kann
                                  die Schnittstelle, ueber die die
                                  Steuerung der Kombiampel geschieht,
                                  waehrend der Laufzeit des Programms
                                  geaendert werden. Die angegebene 
                                  Schnittstelle muss allerdings im
                                  Rechner vorhanden sein, sonst koennte 
                                  es zu Abstuerzen fuehren. *)

function welche_schnittstelle : char; 
                               (* Mit der Funktion kann man zur 
                                  Laufzeit des Programms feststellen,
                                  welche Schnittstelle gerade aktiv ist.
                                  Die Schnittstelle wird normalerweise 

                                  beim Programmstart automatisch auf die 
                                  hoechste verfuegbare Schnittstelle 
                                  eingestellt.
                                  Diese Einstellung kann mit der
                                  Prozedur aendere_schnittstelle
                                  geaendert werden.
                                  Um diese Aenderung nicht in jedem
                                  Programm durchfuehren zu muessen,
                                  kann in das aktuelle Verzeichnis 
                                  eine Textdatei LPTPORT.INI
                                  geschreiben werden, die nur eine der Zeilen 

                                  LPT1: 

                                  LPT2: 

                                  LPT3: 

                                  enthaelt, je nach Bedarf. 

                                  Es wird dann diese Schnittstelle benutzt. 

                                  Um nach dem Programmlauf wieder drucken 
                                  zu können, muß der Rechner neu gestartet 
                                  werden!*)

(* AMPELDEM.PAS *)
program Ampeldemo; 
uses komampel; 

procedure Lauflicht; 
  begin 
    lauflicht_ein;
    writeln('Lauflicht');
    ausgeben(255);
    warte(1);
    ausgeben(0);
    warte(1);
  end; 

procedure Ampel; 

  begin
    ampel_ein;
    writeln('Ampel');
    ausgeben(255);
    warte(1);
    ausgeben(0);
    warte(1);
  end; 

procedure Disco; 
  begin
    disco_ein;
    writeln('Disco');
    ausgeben(255);
    warte(1);
    ausgeben(0);
    warte(1);
  end;

procedure Wuerfel; 
  begin
    wuerfel_ein;
    writeln('Würfel');
    ausgeben(255);
    warte(1);
    ausgeben(0);
    warte(1);
  end; 

begin 
  repeat
    writeln('Taster, Sensor oder Schalter betätigen');
    warte(0.5);
    if taster or sensor or schalter then
      begin
        Lauflicht;
        Wuerfel;
        Disco;
        Ampel;
      end;
  until tastatur;
end.