Hallo Bastler!

Leider hatte ich dann ein Problem: Mit Weizen klappte die Sache
Teil%öwfk7F'ÄzHr`ÄÄ?t3YÖök
teilweise genauso gut wie die Übertragung dieses Textes.
(Beispiel siehe 2 Zeilen höher...)
Manchmal ging es allerdings fürchterlich schief...

Daraufhin habe ich spezielle Übertragungsprotokolle entwickelt.

1. helles Weizen Kristall (KWh-Protokoll)

2. helles Weizen Hefe (HWh-Protokoll)

3. dunkles Weizen Kristall (dWk-Protokoll)

4. dunkles Weizen Hefe (dWh-Protokoll)

Mit normalen Bier (Pils oder so) gab es allerdings fürchterliche Probleme: Bei normalem Bier kam - egal, welche Marke - nur Wasser bei der Gegenstelle an. Ausnahme: BÖLKSTOFF (hier kam teilweise alles richtig rüber, aber auch leider manchmal Milch an...)
Ich suche jetzt ganz dringend einen Programmierer, der mir ein Protokoll zur Pils- und Altbierübertragung schreibt. Nach dem vielen Testen bin ich einfach zu erschöpft, um dies selbst zu machen...

In der Hoffnung auf baldige Antwort.

Prost Prian

Und dann kam diese Antwort...

B.21

Tafelweine und Dünnbiere bis 3.5 % (darunter fallen auch die sogenannten 'alkoholfreien' Biere, die allerdings besser im Halbschluckspecht-Betrieb nach B.08pust übertragen werden sollten)

B.22

Qualitätsweine und Pilsener bis 5.3 % (hierunter fallen auch der sogenannte 'Bölkstoff' und Altbiere, sowie Schaumweine)

B.23

Alt- und Weizenbiere, sowie Champagner

B.23bier

Für den Übertragungsbereich bis 21 % (geeignet für alle Bierarten und Weine, jedoch aus technischen Gründen nicht für Schaumweine)

8N1

Es werden gleichzeitig acht Gläser übertragen, die Empfangsgläser müssen geneigt sein, und zwar um 1 mal 15 Grad, zwecks Verhinderung von überhöhter Schaumbildung.

7E2

Es können nur sieben Gläser zur Zeit übertragen werden, die Gläser dürfen gerade gehalten werden (E = even), oder um 2 * 15° = 30° geneigt, was gerade bei Weizenbier empfehlenswert ist.

BAREX-L ist das leitungsgebundene Verfahren, bei dem eine feste Leitung zwischen den Gegenstellen geschaltet wird, was sehr hohe Übertragungsgeschwindigkeiten ermöglicht und das Durchsickern an den Umschaltpunkten minimiert.

BAREX-F füllt die übergebenen Fäßer zunächst mittels eines speziellen Rechners, dem BAD (bottle assembler/disassembler) in einzelne Flaschen ab, die dann in Kisten an einen BAD im Ortsbereich des Empfängers übertragen werden. Dort werden die Flaschen entkorkt und wieder zu kompletten Fässern zusammengekippt. Das einwandfreie Abfüllen und Ausleeren der Flaschen wird durch ein Schecksummenverfahren garantiert, d.h. die mit dem Umfüllen Beschäftigten erhalten derart hohe Schecks, daß sie wirklich nicht mehr darauf angewiesen sind, fremde Flaschen zu trinken. Störungen, wie sie in der Einführungsphase zu verzeichnen waren (Man erinnere sich nur an die gefürchtete Fehlermeldung 'BAREX-F: Vorübergehende Trübung im Glas'), gehören seit Einführung von BIGFON der Vergangenheit an.

BIGFON ist das Biere-integrierende Glasfasel-Ortsnetz und löst bis zum Übergang auf ISDN (Internationales SaufDienst-Netz) die herkömmlichen Kupferleitungen ab.

  PROGRAM Weizenbier;

  CONST  Weizen        = 0 ;
	 Hefeweizen    = 1 ;
	 Export        = 2 ;
	 Pils          = 3 ;
	 Alt           = 4 ;
	 Bock          = 5 ;
	 Urbock        = 6 ;
	 Maibock       = 7 ;
	 Festbock      = 8 ;
	 Keinbock      = 9 ;
	 Doppelbock    =10 ;
	 nuechtern     = 0 ;

  TYPE   ccm           = Fluessigkeit ;
	 kleines_Bier  = ARRAY [0..200] OF ccm ;
	 grosses_Bier  = ARRAY [201..500] OF ccm ;
	 Stiefel       = ARRAY [501..4500] OF ccm ;
	 korn          = ARRAY [0..20] OF ccm ;

  VAR    leer          : BOOLEAN ;
	 voll          : BOOLEAN ;
	 promille      : INTEGER ;
	 luett         : kleines_Bier ;
	 halber        : grosses_Bier ;
	 und_luett     : korn ;
	 bestellt      : integer ;

  FUNCTION pusten : integer ;
  EXTERNAL ;

  FUNCTION received : boolean ;
  EXTERNAL ;

  FUNCTION Bier_fertig (welches:integer) : boolean ;
  EXTERNAL ;

  PROCEDURE einschenken (welches:integer) ;
  EXTERNAL ;

  PROCEDURE warten (wielange : geduldig) ;
  EXTERNAL ;

  PROCEDURE austrinken (welches:integer) ;
  EXTERNAL ;

  BEGIN
    REPEAT
      write('Welche Sorte (0..10): ') ;
      readln(bestellt)
    UNTIL bestellt IN [Weizen..Doppelbock] ;
    REPEAT
      REPEAT warten UNTIL received ;
      REPEAT
	einschenken ;
	warten
      UNTIL Bier_fertig(bestellt) ;
      austrinken(bestellt)
    UNTIL pusten >= 0.8
  END.

Die extern deklarierten Prozeduren stammen aus dem Weizenbiertreiber hefeBASE IV+ von Erston Drink. Natürlich muß das Programm, um wirklich einwandfrei zu funktionieren, noch um die üblichen Fehlerroutinen erweitert werden. Dazu mag die folgende Liste der Fehlermeldungen hilfreich sein:

  Code             Bedeutung

  0                glass empty
  1                glass broken
  2                glass not ready
  3                too many glasses
  4                too much vine
  5                too much song
  6                too toot...
  7                no carrier
  8                no carreer
  9                out of bottles
  A                put ice into glass A:
  B                straw bend
  C                shake well before use
  D                shake, rhythm & roll
  E                synthicks error after glass nnn
  F                out of jokes