Commodore Disc 46/Commodore_Disc_46_19xx_-_de.d64/alkotest

Commodore BASIC | 1990-01-01 | 4.1 KB | 136 lines

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