home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 32 / Commodore_Disc_32_19xx_-_de.d64 / alkoholkontrolle (.txt) next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.4 KB  |  147 lines
  1. 1 poke808,225
  2. 2 rem  *************************
  3. 3 rem  *                       *
  4. 4 rem  *   alkoholkontrolle    *
  5. 5 rem  *    gechrieben von     *
  6. 6 rem  *     roland pogadl     *
  7. 7 rem  *                       *
  8. 8 rem  *************************
  9. 9 poke53280,0:poke53281,0
  10. 10 rem *** alkoholkontrolle ***
  11. 11 letgl=0:letg=0:letkgp=0:letm=0:letvp=0
  12. 20 print"[147]":print"** promilletest **"
  13. 30 print"[154]mit diesem programm koennen sie sich"
  14. 40 print"ihren promillewert selbst ausrechnen."
  15. 50 print"sie brauchen nur ihr koerpergewicht"
  16. 60 print"angeben, das (die) getraenk(e),die"
  17. 70 print"menge und die stundenanzahl."
  18. 80 print"geschrieben von roland pogadl 1989"
  19. 90 wait198,1
  20. 100 input"[147]koerpergewicht (in kg)";kg$
  21. 110 print"[147]":print
  22. 120 letkg=val(kg$):ifkg=0thengoto100:letkgp=(kg/100)*70
  23. 130 print"  1 [146]  weisswein":print
  24. 140 print"  2 [146]  rotwein":print
  25. 150 print"  3 [146]  likoerwein":print
  26. 160 print"  4 [146]  schaumwein/sekt":print
  27. 180 print"  5 [146]  wermutwein":print
  28. 190 print"  6 [146]  keine weine"
  29. 200 print:print:print" getraenk auswaehlen (1-6)"
  30. 205 print" bisheriger alkohol in gramm:";g
  31. 210 getw$:ifw$=""then210
  32. 220 letw=val(w$)
  33. 230 ifw=1then goto 5000
  34. 235 ifw=2then goto 5200
  35. 240 ifw=3then goto 5400
  36. 245 ifw=4then goto 5600
  37. 250 ifw=5then goto 5800
  38. 255 ifw=6then goto 300
  39. 260 goto210
  40. 300 print"[147]"
  41. 310 print"  1 [146]  bier allgemein":print
  42. 320 print"  2 [146]  maerzenbier":print
  43. 330 print"  3 [146]  bockbier":print
  44. 340 print"  4 [146]  'berliner weisse'":print
  45. 350 print"  5 [146]  malzbier":print
  46. 360 print"  6 [146]  keine biere":print
  47. 370 print:print:print" getraenk auswaehlen (1-6)"
  48. 375 print" bisheriger alkohol in gramm:";g
  49. 380 getb$:ifb$=""then380
  50. 390 letb=val(b$)
  51. 400 ifb=1then goto 6000
  52. 405 ifb=2then goto 6200
  53. 410 ifb=3then goto 6400
  54. 415 ifb=4then goto 6600
  55. 420 ifb=5then goto 6800
  56. 425 ifb=6then goto 440
  57. 430 goto380
  58. 440 print"[147]"
  59. 450 print"  1 [146]  spirituosen":print
  60. 460 print"  2 [146]  auswertung":print
  61. 480 print:print:print" getraenk auswaehlen (1-2)"
  62. 485 print" bisheriger alkohol in gramm:";g
  63. 490 get s$:ifs$=""then490
  64. 500 lets=val(s$)
  65. 510 ifs=1then goto7000
  66. 520 if s=2thengoto10000
  67. 530 goto490
  68. 4999 rem === weine ===
  69. 5000 letgl=82.5:rem ** weisswein **
  70. 5010 input"menge (in litern)";m$
  71. 5011 letm=val(m$)
  72. 5020 letg=g+(m*gl)
  73. 5040 goto110
  74. 5200 letgl=87.5:rem ** rotwein **
  75. 5210 input"menge (in litern)";m$
  76. 5211 letm=val(m$)
  77. 5220 letg=g+(m*gl)
  78. 5240 goto110
  79. 5400 letgl=145:rem ** likoerwein **
  80. 5410 input"menge (in litern)";m$
  81. 5411 letm=val(m$)
  82. 5420 letg=g+(m*gl)
  83. 5440 goto110
  84. 5600 letgl=87.5:rem ** schaumwein/sekt **
  85. 5610 input"menge (in litern)";m$
  86. 5611 letm=val(m$)
  87. 5620 letg=g+(m*gl)
  88. 5640 goto110
  89. 5800 letgl=130:rem ** wermutwein **
  90. 5810 input"menge (in litern)";m$
  91. 5811 letm=val(m$)
  92. 5820 letg=g+(m*gl)
  93. 5840 goto110
  94. 5999 rem === biere ===
  95. 6000 letgl=39.6:rem ** biere allgemein **
  96. 6010 input"menge (in litern)";m$
  97. 6011 letm=val(m$)
  98. 6020 letg=g+(m*gl)
  99. 6040 goto300
  100. 6200 letgl=41.6:rem ** maerzenbier **
  101. 6210 input"menge (in litern)";m$
  102. 6211 letm=val(m$)
  103. 6220 letg=g+(m*gl)
  104. 6240 goto300
  105. 6400 letgl=52.6:rem ** bockbier **
  106. 6410 input"menge (in litern)";m$
  107. 6411 letm=val(m$)
  108. 6420 letg=g+(m*gl)
  109. 6440 goto300
  110. 6600 letgl=27:rem ** 'berliner weisse' **
  111. 6610 input"menge (in litern)";m$
  112. 6611 letm=val(m$)
  113. 6620 letg=g+(m*gl)
  114. 6640 goto300
  115. 6800 letgl=10.6:rem ** malzbier **
  116. 6810 input"menge (in litern)";m$
  117. 6811 letm=val(m$)
  118. 6820 letg=g+(m*gl)
  119. 6840 goto300
  120. 6999 rem === spirituosen ===
  121. 7000 input"vol.%";vp$
  122. 7005 letvp=val(vp$)
  123. 7010 input"menge (in millilitern)";m$
  124. 7015 letm=val(m$)
  125. 7020 gm=vp*0.0079
  126. 7030 letg=g+(m*gm)
  127. 7040 goto440
  128. 10000 print"[147]"
  129. 10010 let pr=g/kgp
  130. 10020 print"in wieviel stunden sind die"
  131. 10030 input"getraenke getrunken worden";s$
  132. 10040 lets=val(s$)
  133. 10050 input " wieviele stunden ist das her";sh$
  134. 10060 letsh=val(sh$)
  135. 10070 letsmp=(s+sh)*0.1
  136. 10080 letps=pr-smp
  137. 10090 print"sie haben im moment"
  138. 10091 print"                                        [146]"
  139. 10092 print"[145][145]";ps
  140. 10093 print"[154]promille"
  141. 10100 wait198,1
  142. 10110 print"[147]noch eine berechnung? (j/n)"
  143. 10120 get nb$:ifnb$=""then10120
  144. 10130 ifnb$="n"thensys64738
  145. 10140 ifnb$="j"thengoto5
  146. 10150 goto10120
  147.