home *** CD-ROM | disk | FTP | other *** search
/ Power Pack / Power_Pack_5_1992_Alfons_Mittelmeyer_de.d64 / mietnebenkosten (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  240 lines
  1. 10 rem miet-nebenkosten========c64
  2. 20 rem (p) power pack
  3. 30 rem ===========================
  4. 40 rem (c) by volker dietz    v3.5
  5. 50 rem (v) a. mittelmeyer     v2.0
  6. 60 rem
  7. 70 rem c64
  8. 80 rem ===========================
  9. 90 printchr$(147)
  10. 100 rn$=chr$(018):rf$=chr$(146)
  11. 110 fa$=chr$(130):fb$=chr$(131)
  12. 120 c4$=chr$(017):c3$=chr$(029)
  13. 130 bk$=chr$(144):gr$=chr$(030)
  14. 140 db$=chr$(154):re$=chr$(028)
  15. 150 c2$=chr$(145)
  16. 160 print c3$
  17. 170 print c3$
  18. 180 print c3$
  19. 190 poke53280,13:poke53281,2
  20. 200 print rn$c3$c3$c3$c3$c3$"miet-nebenkostenabrechnung "
  21. 210 print c4$
  22. 220 print c4$c3$c3$c3$c3$c3$"copyright by volker dietz 1986 "
  23. 230 printc4$
  24. 240 printgr$"dies ist ein programm zur errechnung der"
  25. 250 printc3$c3$c3$c3$"jaehrlichen miet-nebenkosten "bk$
  26. 260 printc4$
  27. 270 print"wuenschen sie eine programmerklaerung   (j/n)?"
  28. 280 getp$:ifp$=""then280
  29. 290 printchr$(147);
  30. 300 if p$="j"then gosub 2110
  31. 310 if p$="n"then goto   320
  32. 320 printc4$
  33. 330 print"eingabe des kubikmeterpreises fuer              abwasser":input    aw
  34. 340 print"eingabe des verbrauchten abwassers":input  vaw
  35. 350 printrn$"die summe fuer abwasser:"aw*vaw"dm"rf$
  36. 360 a=aw*vaw
  37. 370 print"eingabe des kubikmeterpreises fuer            frischwasser":input  fw
  38. 380 print"eingabe des verbrauchten frischwassers":input vfw
  39. 390 printrn$"die summe fuer frischwasser:"fw*vfw"dm"rf$
  40. 400 b=fw*vfw
  41. 410 print"eingabe :gebuehren wasseruhr ":input  zk
  42. 420 printrn$ "die summe fuer frischwasser +wasseruhr :"b+zk"dm"rf$
  43. 430 print" berechnung des abwasseranteils":input"hauspersonen";hp:input"mietpersonen";mp
  44. 440 c=a/hp*mp
  45. 450 printrn$"die summe des abwasseranteils betraegt:"a/hp*mp"dm "rf$
  46. 460 print" berechnung des frischwasseranteils":input"hauspersonen";fwa
  47. 470 input"mietpersonen";mfw
  48. 480 d=(b+zk)/fwa*mfw
  49. 490 printrn$"die summe des frischwasseranteils be-   traegt:"(b+zk)/fwa*mfw"dm "rf$
  50. 500 print"eingabe der muellabfuhrkosten":inpute
  51. 510 printrn$"die bisherigen nebenkosten betragen:       "c+d+e"dm "rf$
  52. 520 printc4$
  53. 530 printc4$
  54. 540 printc4$
  55. 550 printrn$"berechnung des hausversicherungsanteils":printrn$"vers.-summe :":inputhv
  56. 560 input"hausquadratmeter";hqm
  57. 570 input"wohnungsquadratmeter";wqm
  58. 580 printrn$"der versicherungsanteil betraegt :"hv/hqm*wqm"dm "rf$
  59. 590 f=hv/hqm*wqm
  60. 600 printc4$
  61. 610 printc4$
  62. 620 printc4$
  63. 630 printrn$c3$c3$c3$c3$c3$c3$"sonstiges eingeben:"
  64. 640 print
  65. 650 print
  66. 660 print
  67. 670 print"hier koennen sie z.b.die kosten fuer    boilerentkalkung und"
  68. 680 print"aehnliches eingeben"
  69. 690 print
  70. 700 input ms
  71. 710 printrn$"die bisherigen nebenkosten betragen:       " c+d+e+ms+f"dm"rf$
  72. 720 printc4$
  73. 730 printc4$
  74. 740 printc4$
  75. 750 printrn$fa$db$c3$c3$c3$c3$c3$"berechnung der heizkosten"bk$
  76. 760 printc4$
  77. 770 printc4$
  78. 780 printc4$
  79. 790 print"eingabe oeluebernahme vorjahr :":input"liter";vj
  80. 800 print"eingabe oelneuanlieferungen :":input"liter";nl
  81. 810 printrn$"zwischensumme :":printvj+nl"liter
  82. 820 [153]"abzueglich brennstoffrest :":[133]"liter";bsr
  83. 830 [153]rn$"tatsaechlicher verbrauch :":[153] vj[170]nl[171]bsr:[153]c3$"     liter"
  84. 840 g[178]vj[170]nl[171]bsr
  85. 850 [153]rn$fa$db$"geben sie den literpreis ein":[133]lp
  86. 860 [153]bk$
  87. 870 [153]rn$"oelkosten":[153]g[172]lp"dm"
  88. 880 h[178]g[172]lp
  89. 890 [133]"stromkosten-heizung  :";sk
  90. 900 [133]"brennerservice       :";be
  91. 910 [133]"geb.f.abl.-u.abrechn.:";ge
  92. 920 [153]rn$"gesamte oelkosten :":[153]h[170]sk[170]be[170]ge "dm"
  93. 930 oe[178]h[170]sk[170]be[170]ge
  94. 940 [153]rn$c3$c3$c3$c3$c3$"berechnung des oelkostenanteils""
  95. 950 input"hausquadratmeter   ";hqm
  96. 960 input"wohnungsgrosse     ";wqm
  97. 970 ff=oe/2/hqm*wqm
  98. 980 printrn$"festkosten betragen :":printoe/2/hqm*wqm
  99. 990 input"gesamte verbr.-einh";ve
  100. 1000 input"eigene  verbr.-einh";ev
  101. 1010 hh=oe/2/ve*ev
  102. 1020 printrn$"verbrauchsk.betragen :":printoe/2/ve*ev"dm"
  103. 1030 ok=ff+hh
  104. 1040 printrn$re$fa$"der oelkostenanteil betraegt";ok;    "dm"
  105. 1050 printfb$rf$bk$
  106. 1060 printrn$:input"sonstige gebuehren in einer summe einge-ben :";dl
  107. 1070 printrn$"die gesamten nebenkosten betragen :dm":printc+d+hv+e+dl+hh+ff
  108. 1080 es=c+d+hv+e+dl+hh+ff
  109. 1090 printrn$gr$" geben sie jetzt ihre nebenkosten-voraus-zahlung ein "bk$:inputva
  110. 1100 printes-va
  111. 1110 eb=es-va
  112. 1120 if es>va then printrn4sgr$"zu zahlender betrag "bk$;eb;   "dm""
  113. 1130 [139] es[179]va [167] [153]rn$re$fa$"ihr guthaben betraegt "bk$;eb;  "dm""
  114. 1140 printc4$
  115. 1150 printc4$
  116. 1160 print"ausdruck (j/n)?"
  117. 1170 getd$:ifd$=""then1170
  118. 1180 ifd$="n"then end
  119. 1190 ifd$="j"then1200
  120. 1200 open4,4
  121. 1210 print#4,chr$(14)"   miet-nebenkostenabrechnung "
  122. 1220 print#4
  123. 1230 print#4,"    copyright by volker dietz 1986 "
  124. 1240 print#4,chr$(15)
  125. 1250 print#4,"dies ist ein programm zur errechnung der"
  126. 1260 print#4,"            jaehrlichen miet-nebenkosten "
  127. 1270 print#4
  128. 1280 print#4,"berechnung fuer frisch-und abwasser"
  129. 1290 print#4
  130. 1300 print#4,"die summe fuer abwasser                   :"a     "dm"
  131. 1310 print#4
  132. 1320 print#4,"die summe fuer frischwasser               :"b     "dm"
  133. 1330 print#4
  134. 1340 print#4,"            berechnung des abwasseranteils"
  135. 1350 print#4
  136. 1360 print#4,"die summe des abwasseranteils betraegt    :"c "dm "
  137. 1370 print#4
  138. 1380 print#4,"die summe des frischwasseranteils betraegt:"d "dm "
  139. 1390 print#4
  140. 1400 print#4,"muellabfuhrkosten                         :"e"dm"
  141. 1410 print#4
  142. 1420 print#4,"die bisherigen nebenkosten betragen       :"c+d+e"dm "
  143. 1430 print#4
  144. 1440 print#4
  145. 1450 print#4
  146. 1460 print#4,"                berechnung des hausversicherungsanteils"
  147. 1470 print#4
  148. 1480 print#4,"vers.-summe                                :"hv"dm"
  149. 1490 print#4
  150. 1500 print#4,"der versicherungsanteil betraegt           :"hv/hqm*wqm"dm "
  151. 1510 print#4
  152. 1520 print#4,"sonstiges                                  :"ms"dm"
  153. 1530 print#4
  154. 1540 print#4,rn$"die bisherigen nebenkosten betragen     :"c+d+e+ms+f"dm"
  155. 1550 print#4
  156. 1560 print#4,"                        berechnung der heizkosten"
  157. 1570 print#4
  158. 1580 print#4,"oeluebernahme vorjahr                      :"vj"liter"
  159. 1590 print#4
  160. 1600 print#4,"oelneuanlieferungen                        :"nl"liter"
  161. 1610 print#4
  162. 1620 print#4,"zwischensumme                              :"vj+nl"liter
  163. 1630 [152]4
  164. 1640 [152]4,"abzueglich brennstoffrest-                 :"bsr"liter"
  165. 1650 [152]4
  166. 1660 [152]4,"tatsaechlicher verbrauch                   :"vj[170]nl[171]bsr "liter"
  167. 1670 [152]4
  168. 1680 [152]4,"oelkosten                                  :"g[172]lp"dm"
  169. 1690 [152]4
  170. 1700 [152]4
  171. 1710 [152]4
  172. 1720 [152]4,"stromkosten-heizung                        :";sk
  173. 1730 [152]4
  174. 1740 [152]4,"brennerservice                             :";be
  175. 1750 [152]4
  176. 1760 [152]4,"geb.f.abl.-u.abrechnung                    :";ge
  177. 1770 [152]4
  178. 1780 [152]4,"gesamte oelkosten                          :"h[170]sk[170]be[170]ge "dm"
  179. 1790 [152]4
  180. 1800 [152]4,"               berechnung des oelkostenanteils"
  181. 1810 [152]4
  182. 1820 [152]4,"hausquadratmeter                           :";hqm "qm"
  183. 1830 [152]4
  184. 1840 [152]4,"wohnungsgroesse                            :";wqm "qm"
  185. 1850 [152]4
  186. 1860 [152]4,"festkosten betragen                        :"ff" dm"
  187. 1870 [152]4
  188. 1880 [152]4,"gesamte verbr.-einh                        :";ve
  189. 1890 [152]4
  190. 1900 [152]4,"eigene  verbr.-einh                        :";ev
  191. 1910 [152]4
  192. 1920 [152]4,"verbrauchsk.betragen                       :"hh" dm "
  193. 1930 [152]4
  194. 1940 [152]4,"der oelkostenanteil betraegt               :";ok;"dm"
  195. 1950 [152]4
  196. 1960 [152]4,"sonstige gebuehren                         :";dl"dm"
  197. 1970 [152]4
  198. 1980 [152]4,"die gesamten nebenkosten betragen          :"es "dm"
  199. 1990 [152]4
  200. 2000 [152]4,"ihre nebenkosten-voraus-zahlung            :"va"dm"
  201. 2010 [152]4
  202. 2020 [139] es[177]va [167] [152]4,rn$"zu zahlender betrag                        :"eb;"dm"
  203. 2030 [152]4
  204. 2040 [139] es[179]va [167] [152]4,rn$"ihr guthaben betraegt                      :"eb;"dm"
  205. 2050 [152]4
  206. 2060 [152]4
  207. 2070 [152]4
  208. 2080 [152]4,"copyright by volker dietz 5010 bergheim                   1986"
  209. 2090 [160]4
  210. 2100 [128]
  211. 2110 [153]"programm-beschreibung"
  212. 2120 [153]"sie geben die kubikmeterpreise und die  verbrauchten wassermengen ein."
  213. 2130 [153]"danach werden ihr ab-und frichwasseran- teil errechnet."
  214. 2140 [153]"der versicherungsanteil wird durch die  eingabe der gesamtwohnflaeche"
  215. 2150 [153]"und der eigenen wohnungsgroesse errech- net."
  216. 2160 [153]"zwischendurch gibt der rechner ihren ne-benkostenanteil aus."
  217. 2170 [153]"der naechste programmpunkt errechnet ihren oelkostenanteil."
  218. 2180 [153]"sie geben die uebernahme,neuanlieferung ein."
  219. 2190 [153]"nachdem der tatsaechliche verbrauch er- mittelt wurde,"
  220. 2200 [153]"geben sie den literpreis ein und die ge-samtoelkosten werden ausgegeben."
  221. 2210 [153]
  222. 2220 [153]"bitte taste druecken"
  223. 2230 [161]v$:[139]v$[178]""[167]2230
  224. 2240 [153][199](147);
  225. 2250 [153]"ihr oelkostenanteil wird in zwei punkten ermittelt."
  226. 2260 [153]"1.festkosten durch gesamtwohnflaeche und wohnungsgroesse.""
  227. 2270 print"2.verbrauchskosten durch ges.-verbrauchseinh.und eigene verbr.-einh."
  228. 2280 print"nun gibt der rechner ihre oelkosten aus."
  229. 2290 print"es folgt die ausgabe ihres gesamtes ne- benkostenanteils."
  230. 2300 print"jetzt erfolgt die abfrage ihrer neben-  kosten-vorauszahlung "
  231. 2310 print"der rechner gibt nun die summe aus,die  gezahlt oder zurueckgezahlt wird."
  232. 2320 print"zum ende muss die druckerabfrage ge-    klaert werden."
  233. 2330 print"der drucker gibt die nebenkostenerrech- nung auf papier aus."
  234. 2340 print
  235. 2350 print"bitte taste druecken"
  236. 2360 getx$:ifx$=""then2360
  237. 2370 printchr$(147);
  238. 2380 return
  239. 2390 rem =miet-nebenkosten========ende
  240.