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