-
Notifications
You must be signed in to change notification settings - Fork 11
/
Copy pathENERGIE.bc
159 lines (159 loc) · 5.01 KB
/
ENERGIE.bc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
1000 A=200:GOTO20:REM ## ENERGIE-KOSTEN ##
1010 SR$="ELEKTRO-ENERGIEKOSTEN-BERECHNUNG"
1020 GOTO3000
1030 HO=1:VE=2:GOSUB110:GOSUB150
1040 HO=0:VE=4:GOSUB110
1050 PRINT" Eingabe der Leistungsparameter"
1060 PRINT"--------------------------------"
1070 PRINT
1200 INPUT" Arbeitspreis (DM/kWh) =";AP
1210 INPUT" fester Leistungspreis (DM) =";FL
1220 INPUT" variabl.Leistungspreis (DM/kWh) =";VL
1230 INPUT" Verrechnungspr. f.Zaehler (DM) =";VP
1240 PRINT" Durchschnitts-"
1250 INPUT" Hoechstpreis (DM/kWh) =";DH
1260 INPUT" Mindestpreis (DM/kWh) =";DM:PRINT
1270 INPUT" Umsatzsteuer (Mwst)(%) =";US:PRINT
1280 INPUT" Energie-Verbrauch (kWh/Jahr) =";JV
2000 REM
2010 JK=JV*(AP+VL)
2020 GK=JK+FL
2030 DK=GK/JV:C=US*.01+1
2040 IFDK>DH THEN2400
2050 IFDK<DM THEN2600
2060 GS=(GK+VP)*C
2200 PRINT
2210 PRINT" Gesammt-Kosten = ";INT(GS*100+.5)/100;
2220 PRINT" DM":PRINT
2230 PRINT" Durchschnittspreis/kWh =";
2240 PRINTINT(GK*C*1000/JV+.5)/1000;" DM"
2250 PRINT" (inkl.Mwst.)"
2300 GOSUB210:IFJV=1500 THEN4100:GOTO3000
2310 GOTO3000
2400 GS=DH*JV*C+VP:PRINT
2410 PRINT" Gesamt-Kosten = ";INT(GS*100+.5)/100;
2420 PRINT" DM":PRINT
2430 PRINT" Durchschnittspreis/kWh =";
2440 PRINTDH*C;" DM":PRINT
2450 PRINT"(inkl.Mwst.)"
2460 GOSUB210:IFJV=1500 THEN4100:GOTO3000
2470 GOTO3000
2600 GS=DM*JV*C+VP:PRINT
2610 PRINT" Gesamt-Kosten = ";INT(GS*100+.5)/100;
2620 PRINT" DM":PRINT
2630 PRINT" Durchschnittspreis/kWh =";
2640 PRINTDM*C;" DM"
2650 PRINT"(inkl.Mwst.)"
2660 GOSUB210:IFJV=1500 THEN4100:GOTO3000
2680 GOTO3000
3000 GOSUB100:HO=1:VE=2:GOSUB110:GOSUB150
3010 HO=0:VE=4:GOSUB110
3020 PRINT" M E N U E"
3030 PRINT" ---------"
3040 PRINT" -1- Erklaerung und Beispiel-Parameter"
3050 PRINT:PRINT" -2- Eingabe der Parameter"
3060 PRINT:PRINT" -3- Neuberechnung mit neuen"
3070 PRINT" Energie-Verbrauch (kWh/Jahr)":PRINT
3080 PRINT" -4- Graphische Darstellung":PRINT
3090 PRINT" -5- Berechnung beenden"
3100 GOSUB210
3110 IFIN$="1" THEN GOSUB100:GOTO6010
3120 IFIN$="2" THENPRINT:GOSUB100:GOTO1030
3130 IFIN$="3" THEN GOSUB100:GOTO1280
3140 IFIN$="4" THEN4010
3150 IFIN$="5" THEN950
3160 GOTO3000
4000 REM
4010 GOSUB100
4020 PRINT"Eingabe des max.Energie-Verbrauchs "
4030 PRINT"(kWh/Jahr)":PRINT
4040 INPUTN
4050 INPUT"Eingabe der max.Energiekosten (DM)";MK
4100 GOSUB600:CN=0
4110 HO=0:VE=.99:GOSUB620
4120 HO=.99:VE=.99:GOSUB630
4130 HO=0:VE=0:GOSUB620
4140 HO=0:VE=.99:GOSUB630
4150 FORF=1 TO3
4160 FORE=0 TO1 STEP.05
4170 HO=F/300:VE=E:GOSUB620
4180 NEXTE
4190 NEXTF
4200 FORF=1 TO4
4210 FORE=0 TO1 STEP.05
4220 HO=E:VE=.99-F/200:GOSUB620
4230 NEXTE
4240 NEXTF
4300 REM
4310 FORM=0.01 TON-100 STEPN/300
4320 JK=M*(AP+VL):GK=JK+FL:DK=GK/M:C=US*.01+1
4330 IFDK>DH THEN4600
4340 IFDK<DM THEN4800
4350 GS=(GK+VP)*C:DP=GK*C/M
4400 HO=M/N:VE=1-GS/MK:GOSUB620
4410 VE=1-DP:GOSUB620
4420 GOTO5000
4600 GS=DH*M*C+VP:DP=DH*C
4610 HO=M/N:VE=1-GS/MK:GOSUB620
4620 VE=1-DP:GOSUB620
4700 GOTO5000
4800 GS=DM*M*C+VP:DP=DM*C
4810 HO=M/N:VE=1-GS/MK:GOSUB620
4820 VE=1-DP:GOSUB620
4900 GOTO5000
5000 NEXTM:HO=0:VE=0
5010 SR=MK:GOSUB300:SR$=SR$+" DM (1.-DM/kWh)"
5020 GOSUB650
5030 HO=.8:VE=.93:SR=N:GOSUB300:SR$=SR$+" kWh"
5040 GOSUB650
5050 HO=.3:VE=.55:SR$="(Durchschnittspreis/kWh)"
5060 GOSUB650
5070 HO=.45:VE=.25:SR$="Energiekosten/Jahr"
5080 GOSUB650
5090 SR$=" ELEKTRO-ENERGIEKOSTEN-BERECHNUNG"
5100 GOSUB210:GOTO3000
6000 REM ERKLAERUNG
6010 HO=4:VE=2:GOSUB110:SR$="ERKLAERUNG":GOSUB150
6020 HO=0:VE=4:GOSUB110
6030 PRINT"In den 5 neuen Bundeslaendern hat die"
6040 PRINT"Einfuehrung einer neuen Energiekosten-"
6050 PRINT"Berechnung etwas Verwirrung gestiftet."
6060 PRINT
6070 PRINT"Dieses Programm ermoeglicht die"
6080 PRINT"Energiekosten-Berechnung fuer beliebige"
6090 PRINT"Tarifarten.":PRINT
6100 PRINT"Ein Beispiel mit graph. Darstellung"
6110 PRINT"fuer einen mittleren Haushalt im"
6120 PRINT"Tarifgebiet der ESAG (Sachsen)"
6130 PRINT"traegt sicherlich zum Verstaendnis bei"
6140 HO=30:VE=24:GOSUB110:PRINT"TASTE=>":GOSUB210
6150 GOSUB100:PRINT" Beispiel:"
6160 PRINT" --------"
6170 PRINT" Arbeitspreis/kWh = 0.14 DM/kWh":PRINT
6180 PRINT" fester Leistungspreis = 89.40 DM":PRINT
6190 PRINT" variabl.Leistungspreis = .02 DM/kWh"
6200 PRINT
6210 PRINT" Verrechnungspreis = 31.80 DM":PRINT
6220 PRINT" Durchschnitts-":PRINT
6230 PRINT" Hoechstpreis = .42 DM/kWh"
6240 PRINT" Mindestpreis = .171 DM/kWh"
6250 PRINT:PRINT" Umsatzsteuer(Mwst.) = 14%"
6260 PRINT:PRINT" Jahresverbrauch = 1500 kWh"
6300 AP=.14:FL=89.4:VL=.02:VP=31.8
6310 DH=.42:DM=.171:US=14:JV=1500
6320 N=2000:MK=500
6330 SR$="ELEKTRO-ENERGIEKOSTEN-BERECHNUNG"
6400 GOTO2010
7000 GOSUB210
30130 REM -----------------------------
30140 REM ENERGIEKOSTEN-BERECHNUNG
32000 REM ----------------------------
32010 REM - (C) 03.01.91 -
32020 REM - MANFRED STEUDNER -
32030 REM - HEIDESTRASSE 166 -
32040 REM - O-8142 RADEBERG -
32050 REM - AUF COMMODORE C64 -
32060 REM ----------------------------
32070 REM
32080 REM DS-KULTUR
32090 REM-spezial 911113