1 POKE808,225
2 REM  *************************
3 REM  *                       *
4 REM  *   ALKOHOLKONTROLLE    *
5 REM  *    GECHRIEBEN VON     *
6 REM  *     ROLAND POGADL     *
7 REM  *                       *
8 REM  *************************
9 POKE53280,0:POKE53281,0
10 REM *** ALKOHOLKONTROLLE ***
11 LETGL=0:LETG=0:LETKGP=0:LETM=0:LETVP=0
20 PRINT"[147]":PRINT"** PROMILLETEST **"
30 PRINT"[154]MIT DIESEM PROGRAMM KOENNEN SIE SICH"
40 PRINT"IHREN PROMILLEWERT SELBST AUSRECHNEN."
50 PRINT"SIE BRAUCHEN NUR IHR KOERPERGEWICHT"
60 PRINT"ANGEBEN, DAS (DIE) GETRAENK(E),DIE"
70 PRINT"MENGE UND DIE STUNDENANZAHL."
80 PRINT"GESCHRIEBEN VON ROLAND POGADL 1989"
90 WAIT198,1
100 INPUT"[147]KOERPERGEWICHT (IN KG)";KG$
110 PRINT"[147]":PRINT
120 LETKG=VAL(KG$):IFKG=0THENGOTO100:LETKGP=(KG/100)*70
130 PRINT"  1 [146]  WEISSWEIN":PRINT
140 PRINT"  2 [146]  ROTWEIN":PRINT
150 PRINT"  3 [146]  LIKOERWEIN":PRINT
160 PRINT"  4 [146]  SCHAUMWEIN/SEKT":PRINT
180 PRINT"  5 [146]  WERMUTWEIN":PRINT
190 PRINT"  6 [146]  KEINE WEINE"
200 PRINT:PRINT:PRINT" GETRAENK AUSWAEHLEN (1-6)"
205 PRINT" BISHERIGER ALKOHOL IN GRAMM:";G
210 GETW$:IFW$=""THEN210
220 LETW=VAL(W$)
230 IFW=1THEN GOTO 5000
235 IFW=2THEN GOTO 5200
240 IFW=3THEN GOTO 5400
245 IFW=4THEN GOTO 5600
250 IFW=5THEN GOTO 5800
255 IFW=6THEN GOTO 300
260 GOTO210
300 PRINT"[147]"
310 PRINT"  1 [146]  BIER ALLGEMEIN":PRINT
320 PRINT"  2 [146]  MAERZENBIER":PRINT
330 PRINT"  3 [146]  BOCKBIER":PRINT
340 PRINT"  4 [146]  'BERLINER WEISSE'":PRINT
350 PRINT"  5 [146]  MALZBIER":PRINT
360 PRINT"  6 [146]  KEINE BIERE":PRINT
370 PRINT:PRINT:PRINT" GETRAENK AUSWAEHLEN (1-6)"
375 PRINT" BISHERIGER ALKOHOL IN GRAMM:";G
380 GETB$:IFB$=""THEN380
390 LETB=VAL(B$)
400 IFB=1THEN GOTO 6000
405 IFB=2THEN GOTO 6200
410 IFB=3THEN GOTO 6400
415 IFB=4THEN GOTO 6600
420 IFB=5THEN GOTO 6800
425 IFB=6THEN GOTO 440
430 GOTO380
440 PRINT"[147]"
450 PRINT"  1 [146]  SPIRITUOSEN":PRINT
460 PRINT"  2 [146]  AUSWERTUNG":PRINT
480 PRINT:PRINT:PRINT" GETRAENK AUSWAEHLEN (1-2)"
485 PRINT" BISHERIGER ALKOHOL IN GRAMM:";G
490 GET S$:IFS$=""THEN490
500 LETS=VAL(S$)
510 IFS=1THEN GOTO7000
520 IF S=2THENGOTO10000
530 GOTO490
4999 REM === WEINE ===
5000 LETGL=82.5:REM ** WEISSWEIN **
5010 INPUT"MENGE (IN LITERN)";M$
5011 LETM=VAL(M$)
5020 LETG=G+(M*GL)
5040 GOTO110
5200 LETGL=87.5:REM ** ROTWEIN **
5210 INPUT"MENGE (IN LITERN)";M$
5211 LETM=VAL(M$)
5220 LETG=G+(M*GL)
5240 GOTO110
5400 LETGL=145:REM ** LIKOERWEIN **
5410 INPUT"MENGE (IN LITERN)";M$
5411 LETM=VAL(M$)
5420 LETG=G+(M*GL)
5440 GOTO110
5600 LETGL=87.5:REM ** SCHAUMWEIN/SEKT **
5610 INPUT"MENGE (IN LITERN)";M$
5611 LETM=VAL(M$)
5620 LETG=G+(M*GL)
5640 GOTO110
5800 LETGL=130:REM ** WERMUTWEIN **
5810 INPUT"MENGE (IN LITERN)";M$
5811 LETM=VAL(M$)
5820 LETG=G+(M*GL)
5840 GOTO110
5999 REM === BIERE ===
6000 LETGL=39.6:REM ** BIERE ALLGEMEIN **
6010 INPUT"MENGE (IN LITERN)";M$
6011 LETM=VAL(M$)
6020 LETG=G+(M*GL)
6040 GOTO300
6200 LETGL=41.6:REM ** MAERZENBIER **
6210 INPUT"MENGE (IN LITERN)";M$
6211 LETM=VAL(M$)
6220 LETG=G+(M*GL)
6240 GOTO300
6400 LETGL=52.6:REM ** BOCKBIER **
6410 INPUT"MENGE (IN LITERN)";M$
6411 LETM=VAL(M$)
6420 LETG=G+(M*GL)
6440 GOTO300
6600 LETGL=27:REM ** 'BERLINER WEISSE' **
6610 INPUT"MENGE (IN LITERN)";M$
6611 LETM=VAL(M$)
6620 LETG=G+(M*GL)
6640 GOTO300
6800 LETGL=10.6:REM ** MALZBIER **
6810 INPUT"MENGE (IN LITERN)";M$
6811 LETM=VAL(M$)
6820 LETG=G+(M*GL)
6840 GOTO300
6999 REM === SPIRITUOSEN ===
7000 INPUT"VOL.%";VP$
7005 LETVP=VAL(VP$)
7010 INPUT"MENGE (IN MILLILITERN)";M$
7015 LETM=VAL(M$)
7020 GM=VP*0.0079
7030 LETG=G+(M*GM)
7040 GOTO440
10000 PRINT"[147]"
10010 LET PR=G/KGP
10020 PRINT"IN WIEVIEL STUNDEN SIND DIE"
10030 INPUT"GETRAENKE GETRUNKEN WORDEN";S$
10040 LETS=VAL(S$)
10050 INPUT " WIEVIELE STUNDEN IST DAS HER";SH$
10060 LETSH=VAL(SH$)
10070 LETSMP=(S+SH)*0.1
10080 LETPS=PR-SMP
10090 PRINT"SIE HABEN IM MOMENT"
10091 PRINT"                                        [146]"
10092 PRINT"[145][145]";PS
10093 PRINT"[154]PROMILLE"
10100 WAIT198,1
10110 PRINT"[147]NOCH EINE BERECHNUNG? (J/N)"
10120 GET NB$:IFNB$=""THEN10120
10130 IFNB$="N"THENSYS64738
10140 IFNB$="J"THENGOTO5
10150 GOTO10120