1 REM***EIN PROGRAMM VON MARTIN AGEL***
2 RESTORE:POKE646,0
10 C=53280:D=C+1:P=211:Q=214:S=1023:T=55296:N=198:B=25123
14 POKEC,1:POKED,1
15 PRINTCHR$(147),CHR$(142)
50 FORZ=1TO100:READA:POKES+284+Z,A
52 POKEB+Z,0
55 IFA=99THENGOTO80
60 NEXTZ
80 POKET+351,1
500 FORI=1TO40:POKES+I,70:POKE1983+I,68
510 NEXTI
520 FORJ=1TO23:POKES+1+J*40,71:POKES+40+J*40,72
530 NEXTJ
545 POKEP,20:POKEQ,14:PRINT""
550 POKEP,20:POKEQ,15:PRINT"VON"
555 POKEP,20:POKEQ,16:PRINT""
560 POKEP,20:POKEQ,17:PRINT"MARTIN AGEL"
570 POKEP,20:POKEQ,18:PRINT"GLADENBACH"
573 POKEP,20:POKEQ,20:PRINT""
576 POKEP,20:POKEQ,21:PRINT""
580 POKEP,10:POKEQ,23:PRINT"FUER COMMODORE DISC  1990"
700 POKEN,0:WAITN,1
750 PRINTCHR$(147),CHR$(14):GOSUB6000
760 POKEC,1:POKED,1:POKE646,11
800 PRINTCHR$(147);"[194]ITTE GEBEN [211]IE IHR [203]OERPERGEWICHT IN   [203]ILOGRAMM EIN"
810 INPUTKG:KG=KG*.72:GOTO990
850 B=B+1:POKEB,M
860 M=0
870 POKE63,84:POKE64,31:POKE65,26:POKE66,24
990 PRINTCHR$(147),CHR$(142)
1000 FORI=1TO3
1010 READG$:PRINTI"[192]"G$
1020 PRINT:PRINT
1030 NEXTI
1100 PRINT"WELCHES GETRAENK HABEN SIE ZU SICH GE-  NOMMEN?":INPUTI
1110 IFI>3GOTO1100
1120 PRINTCHR$(147),CHR$(14)
1130 ONIGOTO1300,1400,1500
1300 PRINT"[215]IEVIEL [199]LAS [194]IER (0.2 L) HABEN [211]IE GE- TRUNKEN?"
1310 PRINTCHR$(17):INPUTM:M=M*8
1320 GOTO2400
1400 PRINT"[215]IEVIEL [199]LAS [215]EIN (0.2 L.) HABEN [211]IE GE-TRUNKEN?"
1410 PRINTCHR$(17):INPUTM:M=M*16
1420 GOTO2400
1500 PRINT"[215]IEVIEL [199]LAESCHEN [211]CHNAPS ODER [204]IKOER (2 CL) HABEN  [211]IE GETRUNKEN?"
1510 INPUTM
1520 PRINTCHR$(17);"[215]IEVIEL [208]ROZENT [193]LKOHOL WAREN IN DEM [199]E-TRAENK?"
1530 INPUTPR
1540 AG=PR/100*16
1610 M=M*AG
2400 PRINTCHR$(147);"[200]ABEN [211]IE NOCH ETWAS GETRUNKEN? (J/N)"
2410 GETL$:IFL$=""THEN2410
2420 IFL$="J"ORL$="[202]"THEN850
2440 FORW=25124TOB
2450 M=M+PEEK(W)
2460 NEXTW
2480 P=INT(M/KG*100)/100
2490 IFP<.8THENGOTO4000
2495 POKE646,14:PRINTCHR$(142),CHR$(147)
2500 PRINTCHR$(17),TAB(15)"SIE HABEN CA."
2510 PRINTCHR$(17),TAB(14)P"PROMILLE"
2530 POKEC,0:POKED,0
3000 S=1825:T=S+40:U=T+40
3010 POKES,32:POKET,85:POKEU,74
3015 POKES+1,85:POKET+1,75:POKEU+1,87
3020 POKES+2,64:POKET+2,32:POKEU+3,64
3025 POKES+3,64:POKET+3,32:POKEU+3,64
3030 POKES+4,73:POKET+4,74:POKEU+4,64
3035 POKET+5,64:POKEU+5,87:POKET+6,73:POKEU+6,75
3040 POKEU+5,87:POKEU+6,75
3050 S=S+1:T=T+1:U=U+1
3060 POKES-1,32:POKET-1,32:POKEU-1,32
3070 IFU+6=1966THENGOTO3090
3075 IFU+2=1970THENGOTO3110
3080 GOTO3010
3090 POKE1890,87:POKE1930,91:POKE1970,65
3100 GOTO3010
3110 POKEC,10:POKED,10:PRINTCHR$(147),CHR$(14),CHR$(17),CHR$(17):POKE646,0
3120 PRINT"[194]EI DIESER [194]LUTALKOHOLKONZENTRATION REA-"
3130 PRINT"GIEREN [211]IE LANGSAMER ALS EIN NUECHTERNER"
3140 PRINT"[205]ENSCH. [211]IE BEGINNEN, [198]EHLER ZU MACHEN."
3150 PRINTCHR$(17);"[196]IES HAT, WIE [211]IE IN DEM KLEINEN [196]EMO   "
3160 PRINT"SEHEN KONNTEN, VOR ALLEM IM [211]TRASSENVER-"
3170 PRINT"KEHR FATALE [198]OLGEN."
3175 POKEN,0:WAITN,1:PRINTCHR$(147)
3180 PRINT"[193]B 0.8 [208]ROMILLE GIBT ES AUCH BEI [210]OU-"
3190 PRINT"TINEKONTROLLEN DER [208]OLIZEI KEIN [197]RBAR-  MEN:"
3200 PRINTCHR$(17);"[205]INDESTSTRAFE [196][205] 500.- [194]USSGELD, 1-3"
3210 PRINT"[205]ONATE [198]AHRVERBOT UND 4 [208]UNKTE IN [198]LENS-BURG."
3230 PRINTCHR$(17);"[193]B 1.1 [208]ROMILLE (ABSOLUTE [198]AHRUNTUECH-"
3240 PRINT"TIGKEIT) MINDESTENS 1 [205]ONATSGEHALT [199]ELD-";
3250 PRINT"STRAFE, MIND. 6 [205]ONATE [198]UEHRERSCHEIN-"
3260 PRINT"ENTZUG UND 7 [208]UNKTE IN [198]LENSBURG."
3270 GOTO5000
4000 PRINTCHR$(147),CHR$(17):POKEC,13:POKED,13
4010 PRINT"[211]IE HABEN 0"P" [208]ROMILLE."
4020 PRINT"[206]ACH DEM GELTENDEN [199]ESETZ WAEREN [211]IE    NOCH FAHRTUECHTIG."
4030 PRINT"[193]BER [211]IE SOLLTEN BEDENKEN: BEREITS BEI"
4035 PRINT"EINEM [208]ROMILLEWERT UEBER 0.3 UND [193]US-"
4040 PRINT"FALLERSCHEINUNGEN (DAS SIND AUCH KLEI-  NERE [214]ERKEHRSVERSTOESSE ";
4050 PRINT"ODER '[211]CHLANGEN-LINIEN') KANN MAN WEGEN 'ALKOHOLBEDING- TER [198]AHR";
4060 PRINT"UNSICHERHEIT' BESTRAFT WERDEN.  [200]IERBEI GIBT ES [199]ELDBUSSEN UND ";
4070 PRINT"[208]UNKTE IN[198]LENSBURG."
4080 PRINT"[211]OLLTEN SIE MIT DIESER [194]LUTALKOHOLKON-  ZENTRATION IN EINEN [213]NFALL ";
4090 PRINT"VERWICKELT   WERDEN, DROHEN AUCH [198]UEHRERSCHEINENTZUG UND ";
4095 PRINT"[199]EFAENGNIS (JE NACH [211]CHWERE DES [213]N- FALLS)."
5000 POKEN,0:WAITN,1
5010 GOTO7000
6000 POKEC,4:POKED,4:POKE646,7
6010 PRINT"[196]IESES [208]ROGRAMM BERECHNET IHREN [208]RO-"
6020 PRINT"MILLEWERT NACH [193]LKOHOLGENUSS."
6030 PRINT"[198]UER DIE [199]ENAUIGKEIT DER [194]ERECHNUNGEN"
6040 PRINT"KANN KEINE [199]ARANTIE GEGEBEN WERDEN, DA"
6050 PRINT"DER [215]ERT NOCH VON ANDEREN [198]AKTOREN AB-"
6060 PRINT"HAENGIG IST."
6070 PRINT"[202]E NACH PSYCHISCHER UND PHYSISCHER [214]ER-"
6080 PRINT"FASSUNG UND [212]RINKGESCHWINDIGKEIT "
6090 PRINT"KOENNEN DIE [215]ERTE DIFFERIEREN."
6100 PRINT:PRINT"[211]EHEN [211]IE DIE [215]ERTE ALS [193]NHALTSPUNKT "
6110 PRINT"UND ALS [196]EMONSTRATION, UM ZU SEHEN, "
6120 PRINT"WIE SCHNELL DER 'KRITISCHE [215]ERT' ER-"
6130 PRINT"REICHT IST."
6140 POKEN,0:WAITN,1
6150 RETURN
7000 PRINTCHR$(147)
7010 PRINT"[206]OCH EINE [194]ERECHNUNG? (J/N)"
7020 GETE$:IFE$=""THEN7020
7030 IFE$="J"THEN1
7040 IFE$<>"N"THEN7000
7050 SYS64738
8000 DATA5,9,14,32,16,18,15,7,18,1,13,13,32,26,21,18,32,2,5,18
8010 DATA5,3,8,14,21,14,7,32,4,5,18,32,32,32,32,32,32,32,32,32,32,32,32,2
8020 DATA12,21,20,1,12,11,15,8,15,12,11,15,14,26,5,14,20,18,1,20,9,15,14,99
8030 DATABIER,WEIN,SCHNAPS/LIKOER