10 REM MIET-NEBENKOSTEN========C64
20 REM (P) POWER PACK
30 REM ===========================
40 REM (C) BY VOLKER DIETZ    V3.5
50 REM (V) A. MITTELMEYER     V2.0
60 REM
70 REM C64
80 REM ===========================
90 PRINTCHR$(147)
100 RN$=CHR$(018):RF$=CHR$(146)
110 FA$=CHR$(130):FB$=CHR$(131)
120 C4$=CHR$(017):C3$=CHR$(029)
130 BK$=CHR$(144):GR$=CHR$(030)
140 DB$=CHR$(154):RE$=CHR$(028)
150 C2$=CHR$(145)
160 PRINT C3$
170 PRINT C3$
180 PRINT C3$
190 POKE53280,13:POKE53281,2
200 PRINT RN$C3$C3$C3$C3$C3$"MIET-NEBENKOSTENABRECHNUNG "
210 PRINT C4$
220 PRINT C4$C3$C3$C3$C3$C3$"COPYRIGHT BY VOLKER DIETZ 1986 "
230 PRINTC4$
240 PRINTGR$"DIES IST EIN PROGRAMM ZUR ERRECHNUNG DER"
250 PRINTC3$C3$C3$C3$"JAEHRLICHEN MIET-NEBENKOSTEN "BK$
260 PRINTC4$
270 PRINT"WUENSCHEN SIE EINE PROGRAMMERKLAERUNG   (J/N)?"
280 GETP$:IFP$=""THEN280
290 PRINTCHR$(147);
300 IF P$="J"THEN GOSUB 2110
310 IF P$="N"THEN GOTO   320
320 PRINTC4$
330 PRINT"EINGABE DES KUBIKMETERPREISES FUER              ABWASSER":INPUT    AW
340 PRINT"EINGABE DES VERBRAUCHTEN ABWASSERS":INPUT  VAW
350 PRINTRN$"DIE SUMME FUER ABWASSER:"AW*VAW"DM"RF$
360 A=AW*VAW
370 PRINT"EINGABE DES KUBIKMETERPREISES FUER            FRISCHWASSER":INPUT  FW
380 PRINT"EINGABE DES VERBRAUCHTEN FRISCHWASSERS":INPUT VFW
390 PRINTRN$"DIE SUMME FUER FRISCHWASSER:"FW*VFW"DM"RF$
400 B=FW*VFW
410 PRINT"EINGABE :GEBUEHREN WASSERUHR ":INPUT  ZK
420 PRINTRN$ "DIE SUMME FUER FRISCHWASSER +WASSERUHR :"B+ZK"DM"RF$
430 PRINT" BERECHNUNG DES ABWASSERANTEILS":INPUT"HAUSPERSONEN";HP:INPUT"MIETPERSONEN";MP
440 C=A/HP*MP
450 PRINTRN$"DIE SUMME DES ABWASSERANTEILS BETRAEGT:"A/HP*MP"DM "RF$
460 PRINT" BERECHNUNG DES FRISCHWASSERANTEILS":INPUT"HAUSPERSONEN";FWA
470 INPUT"MIETPERSONEN";MFW
480 D=(B+ZK)/FWA*MFW
490 PRINTRN$"DIE SUMME DES FRISCHWASSERANTEILS BE-   TRAEGT:"(B+ZK)/FWA*MFW"DM "RF$
500 PRINT"EINGABE DER MUELLABFUHRKOSTEN":INPUTE
510 PRINTRN$"DIE BISHERIGEN NEBENKOSTEN BETRAGEN:       "C+D+E"DM "RF$
520 PRINTC4$
530 PRINTC4$
540 PRINTC4$
550 PRINTRN$"BERECHNUNG DES HAUSVERSICHERUNGSANTEILS":PRINTRN$"VERS.-SUMME :":INPUTHV
560 INPUT"HAUSQUADRATMETER";HQM
570 INPUT"WOHNUNGSQUADRATMETER";WQM
580 PRINTRN$"DER VERSICHERUNGSANTEIL BETRAEGT :"HV/HQM*WQM"DM "RF$
590 F=HV/HQM*WQM
600 PRINTC4$
610 PRINTC4$
620 PRINTC4$
630 PRINTRN$C3$C3$C3$C3$C3$C3$"SONSTIGES EINGEBEN:"
640 PRINT
650 PRINT
660 PRINT
670 PRINT"HIER KOENNEN SIE Z.B.DIE KOSTEN FUER    BOILERENTKALKUNG UND"
680 PRINT"AEHNLICHES EINGEBEN"
690 PRINT
700 INPUT MS
710 PRINTRN$"DIE BISHERIGEN NEBENKOSTEN BETRAGEN:       " C+D+E+MS+F"DM"RF$
720 PRINTC4$
730 PRINTC4$
740 PRINTC4$
750 PRINTRN$FA$DB$C3$C3$C3$C3$C3$"BERECHNUNG DER HEIZKOSTEN"BK$
760 PRINTC4$
770 PRINTC4$
780 PRINTC4$
790 PRINT"EINGABE OELUEBERNAHME VORJAHR :":INPUT"LITER";VJ
800 PRINT"EINGABE OELNEUANLIEFERUNGEN :":INPUT"LITER";NL
810 PRINTRN$"ZWISCHENSUMME :":PRINTVJ+NL"LITER
820 [153]"ABZUEGLICH BRENNSTOFFREST :":[133]"LITER";BSR
830 [153]RN$"TATSAECHLICHER VERBRAUCH :":[153] VJ[170]NL[171]BSR:[153]C3$"     LITER"
840 G[178]VJ[170]NL[171]BSR
850 [153]RN$FA$DB$"GEBEN SIE DEN LITERPREIS EIN":[133]LP
860 [153]BK$
870 [153]RN$"OELKOSTEN":[153]G[172]LP"DM"
880 H[178]G[172]LP
890 [133]"STROMKOSTEN-HEIZUNG  :";SK
900 [133]"BRENNERSERVICE       :";BE
910 [133]"GEB.F.ABL.-U.ABRECHN.:";GE
920 [153]RN$"GESAMTE OELKOSTEN :":[153]H[170]SK[170]BE[170]GE "DM"
930 OE[178]H[170]SK[170]BE[170]GE
940 [153]RN$C3$C3$C3$C3$C3$"BERECHNUNG DES OELKOSTENANTEILS""
950 INPUT"HAUSQUADRATMETER   ";HQM
960 INPUT"WOHNUNGSGROSSE     ";WQM
970 FF=OE/2/HQM*WQM
980 PRINTRN$"FESTKOSTEN BETRAGEN :":PRINTOE/2/HQM*WQM
990 INPUT"GESAMTE VERBR.-EINH";VE
1000 INPUT"EIGENE  VERBR.-EINH";EV
1010 HH=OE/2/VE*EV
1020 PRINTRN$"VERBRAUCHSK.BETRAGEN :":PRINTOE/2/VE*EV"DM"
1030 OK=FF+HH
1040 PRINTRN$RE$FA$"DER OELKOSTENANTEIL BETRAEGT";OK;    "DM"
1050 PRINTFB$RF$BK$
1060 PRINTRN$:INPUT"SONSTIGE GEBUEHREN IN EINER SUMME EINGE-BEN :";DL
1070 PRINTRN$"DIE GESAMTEN NEBENKOSTEN BETRAGEN :DM":PRINTC+D+HV+E+DL+HH+FF
1080 ES=C+D+HV+E+DL+HH+FF
1090 PRINTRN$GR$" GEBEN SIE JETZT IHRE NEBENKOSTEN-VORAUS-ZAHLUNG EIN "BK$:INPUTVA
1100 PRINTES-VA
1110 EB=ES-VA
1120 IF ES>VA THEN PRINTRN4SGR$"ZU ZAHLENDER BETRAG "BK$;EB;   "DM""
1130 [139] ES[179]VA [167] [153]RN$RE$FA$"IHR GUTHABEN BETRAEGT "BK$;EB;  "DM""
1140 PRINTC4$
1150 PRINTC4$
1160 PRINT"AUSDRUCK (J/N)?"
1170 GETD$:IFD$=""THEN1170
1180 IFD$="N"THEN END
1190 IFD$="J"THEN1200
1200 OPEN4,4
1210 PRINT#4,CHR$(14)"   MIET-NEBENKOSTENABRECHNUNG "
1220 PRINT#4
1230 PRINT#4,"    COPYRIGHT BY VOLKER DIETZ 1986 "
1240 PRINT#4,CHR$(15)
1250 PRINT#4,"DIES IST EIN PROGRAMM ZUR ERRECHNUNG DER"
1260 PRINT#4,"            JAEHRLICHEN MIET-NEBENKOSTEN "
1270 PRINT#4
1280 PRINT#4,"BERECHNUNG FUER FRISCH-UND ABWASSER"
1290 PRINT#4
1300 PRINT#4,"DIE SUMME FUER ABWASSER                   :"A     "DM"
1310 PRINT#4
1320 PRINT#4,"DIE SUMME FUER FRISCHWASSER               :"B     "DM"
1330 PRINT#4
1340 PRINT#4,"            BERECHNUNG DES ABWASSERANTEILS"
1350 PRINT#4
1360 PRINT#4,"DIE SUMME DES ABWASSERANTEILS BETRAEGT    :"C "DM "
1370 PRINT#4
1380 PRINT#4,"DIE SUMME DES FRISCHWASSERANTEILS BETRAEGT:"D "DM "
1390 PRINT#4
1400 PRINT#4,"MUELLABFUHRKOSTEN                         :"E"DM"
1410 PRINT#4
1420 PRINT#4,"DIE BISHERIGEN NEBENKOSTEN BETRAGEN       :"C+D+E"DM "
1430 PRINT#4
1440 PRINT#4
1450 PRINT#4
1460 PRINT#4,"                BERECHNUNG DES HAUSVERSICHERUNGSANTEILS"
1470 PRINT#4
1480 PRINT#4,"VERS.-SUMME                                :"HV"DM"
1490 PRINT#4
1500 PRINT#4,"DER VERSICHERUNGSANTEIL BETRAEGT           :"HV/HQM*WQM"DM "
1510 PRINT#4
1520 PRINT#4,"SONSTIGES                                  :"MS"DM"
1530 PRINT#4
1540 PRINT#4,RN$"DIE BISHERIGEN NEBENKOSTEN BETRAGEN     :"C+D+E+MS+F"DM"
1550 PRINT#4
1560 PRINT#4,"                        BERECHNUNG DER HEIZKOSTEN"
1570 PRINT#4
1580 PRINT#4,"OELUEBERNAHME VORJAHR                      :"VJ"LITER"
1590 PRINT#4
1600 PRINT#4,"OELNEUANLIEFERUNGEN                        :"NL"LITER"
1610 PRINT#4
1620 PRINT#4,"ZWISCHENSUMME                              :"VJ+NL"LITER
1630 [152]4
1640 [152]4,"ABZUEGLICH BRENNSTOFFREST-                 :"BSR"LITER"
1650 [152]4
1660 [152]4,"TATSAECHLICHER VERBRAUCH                   :"VJ[170]NL[171]BSR "LITER"
1670 [152]4
1680 [152]4,"OELKOSTEN                                  :"G[172]LP"DM"
1690 [152]4
1700 [152]4
1710 [152]4
1720 [152]4,"STROMKOSTEN-HEIZUNG                        :";SK
1730 [152]4
1740 [152]4,"BRENNERSERVICE                             :";BE
1750 [152]4
1760 [152]4,"GEB.F.ABL.-U.ABRECHNUNG                    :";GE
1770 [152]4
1780 [152]4,"GESAMTE OELKOSTEN                          :"H[170]SK[170]BE[170]GE "DM"
1790 [152]4
1800 [152]4,"               BERECHNUNG DES OELKOSTENANTEILS"
1810 [152]4
1820 [152]4,"HAUSQUADRATMETER                           :";HQM "QM"
1830 [152]4
1840 [152]4,"WOHNUNGSGROESSE                            :";WQM "QM"
1850 [152]4
1860 [152]4,"FESTKOSTEN BETRAGEN                        :"FF" DM"
1870 [152]4
1880 [152]4,"GESAMTE VERBR.-EINH                        :";VE
1890 [152]4
1900 [152]4,"EIGENE  VERBR.-EINH                        :";EV
1910 [152]4
1920 [152]4,"VERBRAUCHSK.BETRAGEN                       :"HH" DM "
1930 [152]4
1940 [152]4,"DER OELKOSTENANTEIL BETRAEGT               :";OK;"DM"
1950 [152]4
1960 [152]4,"SONSTIGE GEBUEHREN                         :";DL"DM"
1970 [152]4
1980 [152]4,"DIE GESAMTEN NEBENKOSTEN BETRAGEN          :"ES "DM"
1990 [152]4
2000 [152]4,"IHRE NEBENKOSTEN-VORAUS-ZAHLUNG            :"VA"DM"
2010 [152]4
2020 [139] ES[177]VA [167] [152]4,RN$"ZU ZAHLENDER BETRAG                        :"EB;"DM"
2030 [152]4
2040 [139] ES[179]VA [167] [152]4,RN$"IHR GUTHABEN BETRAEGT                      :"EB;"DM"
2050 [152]4
2060 [152]4
2070 [152]4
2080 [152]4,"COPYRIGHT BY VOLKER DIETZ 5010 BERGHEIM                   1986"
2090 [160]4
2100 [128]
2110 [153]"PROGRAMM-BESCHREIBUNG"
2120 [153]"SIE GEBEN DIE KUBIKMETERPREISE UND DIE  VERBRAUCHTEN WASSERMENGEN EIN."
2130 [153]"DANACH WERDEN IHR AB-UND FRICHWASSERAN- TEIL ERRECHNET."
2140 [153]"DER VERSICHERUNGSANTEIL WIRD DURCH DIE  EINGABE DER GESAMTWOHNFLAECHE"
2150 [153]"UND DER EIGENEN WOHNUNGSGROESSE ERRECH- NET."
2160 [153]"ZWISCHENDURCH GIBT DER RECHNER IHREN NE-BENKOSTENANTEIL AUS."
2170 [153]"DER NAECHSTE PROGRAMMPUNKT ERRECHNET IHREN OELKOSTENANTEIL."
2180 [153]"SIE GEBEN DIE UEBERNAHME,NEUANLIEFERUNG EIN."
2190 [153]"NACHDEM DER TATSAECHLICHE VERBRAUCH ER- MITTELT WURDE,"
2200 [153]"GEBEN SIE DEN LITERPREIS EIN UND DIE GE-SAMTOELKOSTEN WERDEN AUSGEGEBEN."
2210 [153]
2220 [153]"BITTE TASTE DRUECKEN"
2230 [161]V$:[139]V$[178]""[167]2230
2240 [153][199](147);
2250 [153]"IHR OELKOSTENANTEIL WIRD IN ZWEI PUNKTEN ERMITTELT."
2260 [153]"1.FESTKOSTEN DURCH GESAMTWOHNFLAECHE UND WOHNUNGSGROESSE.""
2270 PRINT"2.VERBRAUCHSKOSTEN DURCH GES.-VERBRAUCHSEINH.UND EIGENE VERBR.-EINH."
2280 PRINT"NUN GIBT DER RECHNER IHRE OELKOSTEN AUS."
2290 PRINT"ES FOLGT DIE AUSGABE IHRES GESAMTES NE- BENKOSTENANTEILS."
2300 PRINT"JETZT ERFOLGT DIE ABFRAGE IHRER NEBEN-  KOSTEN-VORAUSZAHLUNG "
2310 PRINT"DER RECHNER GIBT NUN DIE SUMME AUS,DIE  GEZAHLT ODER ZURUECKGEZAHLT WIRD."
2320 PRINT"ZUM ENDE MUSS DIE DRUCKERABFRAGE GE-    KLAERT WERDEN."
2330 PRINT"DER DRUCKER GIBT DIE NEBENKOSTENERRECH- NUNG AUF PAPIER AUS."
2340 PRINT
2350 PRINT"BITTE TASTE DRUECKEN"
2360 GETX$:IFX$=""THEN2360
2370 PRINTCHR$(147);
2380 RETURN
2390 REM =MIET-NEBENKOSTEN========ENDE