home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 42 / Commodore_Disc_42_19xx_-_de.d64 / mietnebenkosten (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  86 lines
  1. 10 rem miet-nebenkosten-errechnung **c64
  2. 20 rem **********************
  3. 30 rem    (c)  by           *
  4. 40 rem                      *
  5. 50 rem     volker dietz     *
  6. 60 rem                      *
  7. 70 rem  5010 bergheim  01   *
  8. 80 rem                      *
  9. 90 rem version 2.0          *
  10. 100 rem                     *
  11. 110 rem    c64              *
  12. 120 rem**********************
  13. 125 printchr$(147):poke53281,1:poke646,14
  14. 130 rn$=chr$(018):rf$=chr$(146)
  15. 140 fa$=chr$(130):fb$=chr$(131)
  16. 150 c4$=chr$(017):c3$=chr$(029)
  17. 160 bk$=chr$(144):gr$=chr$(030)
  18. 170 db$=chr$(154):re$=chr$(028)
  19. 180 c2$=chr$(145)
  20. 190 print c3$
  21. 200 print c3$
  22. 210 print c3$
  23. 220 rem
  24. 230 print rn$c3$c3$c3$c3$c3$"miet-nebenkostenabrechnung "
  25. 240 print c4$
  26. 250 print c4$c3$c3$c3$c3$c3$"copyright by volker dietz"
  27. 260 printc4$
  28. 270 printgr$"dies ist ein programm zur errechnung der"
  29. 280 printc3$c3$c3$c3$"jaehrlichen miet-nebenkosten "bk$
  30. 290 printc4$
  31. 300 print"wuenschen sie eine programmerklaerung   (j/n)?"
  32. 310 getp$:ifp$=""then310
  33. 311 printchr$(147);
  34. 320 if p$="j"then gosub 2130
  35. 330 if p$="n"then goto   340
  36. 340 printc4$
  37. 350 print"eingabe des kubikmeterpreises fuer              abwasser":input    aw
  38. 360 print"eingabe des verbrauchten abwassers":input  vaw
  39. 370 printrn$"die summe fuer abwasser:"aw*vaw"dm"rf$
  40. 380 a=aw*vaw
  41. 390 print"eingabe des kubikmeterpreises fuer            frischwasser":input  fw
  42. 400 print"eingabe des verbrauchten frischwassers":input vfw
  43. 410 printrn$"die summe fuer frischwasser:"fw*vfw"dm"rf$
  44. 420 b=fw*vfw
  45. 430 print"eingabe :gebuehren wasseruhr ":input  zk
  46. 440 printrn$ "die summe fuer frischwasser +wasseruhr :"b+zk"dm"rf$
  47. 450 print" berechnung des abwasseranteils":input"hauspersonen";hp:input"mietpersonen";mp
  48. 460 c=a/hp*mp
  49. 470 printrn$"die summe des abwasseranteils betraegt:"a/hp*mp"dm "rf$
  50. 480 print" berechnung des frischwasseranteils":input"hauspersonen";fwa
  51. 490 input"mietpersonen";mfw
  52. 500 d=b+zk/fwa*mfw
  53. 510 printrn$"die summe des frischwasseranteils be-   traegt:"b+zk/fwa*mfw"dm "rf$
  54. 520 print"eingabe der muellabfuhrkosten":inpute
  55. 530 printrn$"die bisherigen nebenkosten betragen:       "c+d+e"dm "rf$
  56. 540 printc4$
  57. 550 printc4$
  58. 560 printc4$
  59. 570 printrn$"berechnung des hausversicherungsanteils":printrn$"vers.-summe :":inputhv
  60. 580 input"hausquadratmeter";hqm
  61. 590 input"wohnungsquadratmeter";wqm
  62. 600 printrn$"der versicherungsanteil betraegt :"hv/hqm*wqm"dm "rf$
  63. 610 f=hv/hqm*wqm
  64. 620 printc4$
  65. 630 printc4$
  66. 640 printc4$
  67. 650 printrn$c3$c3$c3$c3$c3$c3$"sonstiges eingeben:"
  68. 660 print
  69. 670 print
  70. 680 print
  71. 690 print"hier koennen sie z.b.die kosten fuer    boilerentkalkung und"
  72. 700 print"aehnliches eingeben"
  73. 710 print
  74. 720 input ms
  75. 730 printrn$"die bisherigen nebenkosten betragen:       " c+d+e+ms+f"dm"rf$
  76. 740 printc4$
  77. 750 printc4$
  78. 760 printc4$
  79. 770 printrn$fa$db$c3$c3$c3$c3$c3$"berechnung der heizkosten"bk$
  80. 780 printc4$
  81. 790 printc4$
  82. 800 printc4$
  83. 810 print"eingabe oeluebernahme vorjahr :":input"liter";vj
  84. 820 print"eingabe oelneuanlieferungen :":input"liter";nl
  85. 830 printrn$"zwischensumme :"
  86.