10 REM MIET-NEBENKOSTEN-ERRECHNUNG **C64
20 REM **********************
30 REM    (C)  BY           *
40 REM                      *
50 REM     VOLKER DIETZ     *
60 REM                      *
70 REM  5010 BERGHEIM  01   *
80 REM                      *
90 REM VERSION 2.0          *
100 REM                     *
110 REM    C64              *
120 REM**********************
125 PRINTCHR$(147):POKE53281,1:POKE646,14
130 RN$=CHR$(018):RF$=CHR$(146)
140 FA$=CHR$(130):FB$=CHR$(131)
150 C4$=CHR$(017):C3$=CHR$(029)
160 BK$=CHR$(144):GR$=CHR$(030)
170 DB$=CHR$(154):RE$=CHR$(028)
180 C2$=CHR$(145)
190 PRINT C3$
200 PRINT C3$
210 PRINT C3$
220 REM
230 PRINT RN$C3$C3$C3$C3$C3$"MIET-NEBENKOSTENABRECHNUNG "
240 PRINT C4$
250 PRINT C4$C3$C3$C3$C3$C3$"COPYRIGHT BY VOLKER DIETZ"
260 PRINTC4$
270 PRINTGR$"DIES IST EIN PROGRAMM ZUR ERRECHNUNG DER"
280 PRINTC3$C3$C3$C3$"JAEHRLICHEN MIET-NEBENKOSTEN "BK$
290 PRINTC4$
300 PRINT"WUENSCHEN SIE EINE PROGRAMMERKLAERUNG   (J/N)?"
310 GETP$:IFP$=""THEN310
311 PRINTCHR$(147);
320 IF P$="J"THEN GOSUB 2130
330 IF P$="N"THEN GOTO   340
340 PRINTC4$
350 PRINT"EINGABE DES KUBIKMETERPREISES FUER              ABWASSER":INPUT    AW
360 PRINT"EINGABE DES VERBRAUCHTEN ABWASSERS":INPUT  VAW
370 PRINTRN$"DIE SUMME FUER ABWASSER:"AW*VAW"DM"RF$
380 A=AW*VAW
390 PRINT"EINGABE DES KUBIKMETERPREISES FUER            FRISCHWASSER":INPUT  FW
400 PRINT"EINGABE DES VERBRAUCHTEN FRISCHWASSERS":INPUT VFW
410 PRINTRN$"DIE SUMME FUER FRISCHWASSER:"FW*VFW"DM"RF$
420 B=FW*VFW
430 PRINT"EINGABE :GEBUEHREN WASSERUHR ":INPUT  ZK
440 PRINTRN$ "DIE SUMME FUER FRISCHWASSER +WASSERUHR :"B+ZK"DM"RF$
450 PRINT" BERECHNUNG DES ABWASSERANTEILS":INPUT"HAUSPERSONEN";HP:INPUT"MIETPERSONEN";MP
460 C=A/HP*MP
470 PRINTRN$"DIE SUMME DES ABWASSERANTEILS BETRAEGT:"A/HP*MP"DM "RF$
480 PRINT" BERECHNUNG DES FRISCHWASSERANTEILS":INPUT"HAUSPERSONEN";FWA
490 INPUT"MIETPERSONEN";MFW
500 D=B+ZK/FWA*MFW
510 PRINTRN$"DIE SUMME DES FRISCHWASSERANTEILS BE-   TRAEGT:"B+ZK/FWA*MFW"DM "RF$
520 PRINT"EINGABE DER MUELLABFUHRKOSTEN":INPUTE
530 PRINTRN$"DIE BISHERIGEN NEBENKOSTEN BETRAGEN:       "C+D+E"DM "RF$
540 PRINTC4$
550 PRINTC4$
560 PRINTC4$
570 PRINTRN$"BERECHNUNG DES HAUSVERSICHERUNGSANTEILS":PRINTRN$"VERS.-SUMME :":INPUTHV
580 INPUT"HAUSQUADRATMETER";HQM
590 INPUT"WOHNUNGSQUADRATMETER";WQM
600 PRINTRN$"DER VERSICHERUNGSANTEIL BETRAEGT :"HV/HQM*WQM"DM "RF$
610 F=HV/HQM*WQM
620 PRINTC4$
630 PRINTC4$
640 PRINTC4$
650 PRINTRN$C3$C3$C3$C3$C3$C3$"SONSTIGES EINGEBEN:"
660 PRINT
670 PRINT
680 PRINT
690 PRINT"HIER KOENNEN SIE Z.B.DIE KOSTEN FUER    BOILERENTKALKUNG UND"
700 PRINT"AEHNLICHES EINGEBEN"
710 PRINT
720 INPUT MS
730 PRINTRN$"DIE BISHERIGEN NEBENKOSTEN BETRAGEN:       " C+D+E+MS+F"DM"RF$
740 PRINTC4$
750 PRINTC4$
760 PRINTC4$
770 PRINTRN$FA$DB$C3$C3$C3$C3$C3$"BERECHNUNG DER HEIZKOSTEN"BK$
780 PRINTC4$
790 PRINTC4$
800 PRINTC4$
810 PRINT"EINGABE OELUEBERNAHME VORJAHR :":INPUT"LITER";VJ
820 PRINT"EINGABE OELNEUANLIEFERUNGEN :":INPUT"LITER";NL
830 PRINTRN$"ZWISCHENSUMME :"