12 POKE53280,11:POKE53281,11
14 PRINT"[147]"
16 KU$="   COPYRIGHT BY KUSCHI SOFT                                      "
18 PRINT   TAB(4);:FOR I=1TO LEN(KU$)
20 PRINTMID$(KU$,I,1);:FORJ=1TO50:NEXT
22 NEXT:PRINT
24 FORI=1TO 900:NEXT
26 GOSUB264
28 FORI=1TO2000:NEXTI
30 PRINT"[147]":POKE53280,11:POKE53281,11
32 PRINT"                                     [146]   ";
34 PRINT"                                     [146]   ";
36 PRINT"   [146]                                  [146]   ";
38 PRINT"   [146]                                  [146]   ";
40 PRINT"   [146]          [158] M E N U E [146]             [146]   ";
42 PRINT"   [146]                                  [146]   ";
44 PRINT"   [146]                                  [146]   ";
46 PRINT"   [146]  S T R O M K O S T E N    [146] 1     [146]   ";
48 PRINT"   [146]                                  [146]   ";
50 PRINT"   [146]  G A S K O S T E N        [146] 2     [146]   ";
52 PRINT"   [146]                                  [146]   ";
54 PRINT"   [146]  W A S S E R K O S T E N  [146] 3     [146]   ";
56 PRINT"   [146]                                  [146]   ";
58 PRINT"   [146]  G E S A M M T K O S T E N[146] 4     [146]   ";
60 PRINT"   [146]                                  [146]   ";
62 PRINT"   [146]  G R A F I K              [146] 5     [146]   ";
64 PRINT"   [146]                                  [146]   ";
66 PRINT"   [146]  D R U C K E N            [146] 6     [146]   ";
68 PRINT"   [146]                                  [146]   ";
70 PRINT"   [146]  E N D E                  [146] 7     [146]   ";
72 PRINT"   [146]                                  [146]   ";
74 PRINT"   [146]                                  [146]   ";
76 PRINT"                                     [146]   ";
78 PRINT"                                     [146]  ";
80 GETA$:IFVAL(A$)<1ORVAL(A$)>8THEN80
82 IFA$="1"THEN98:REM STROMKOSTEN****
84 IFA$="2"THEN120:REM GASKOSTEN******
86 IFA$="3"THEN142:REM WASSERKOSTEN***
88 IFA$="4"THEN162:REM GESAMMTKOSTEN**
90 IFA$="5"THEN176:REM GRAFIK********
92 IFA$="6"THEN322:REM DRUCKEN ******
94 IFA$="8"THEN30: REM MENUE**********
96 IFA$="7"THEN256:REM ENDE *********
98 REM:******** STROMKOSTEN ***********
100 REM:******** STROMKOSTEN ***********
102 PRINT"[147]"
104 INPUT"  [144]ZAEHLERSTAND [ ALT ]:";Z1:PRINT
106 INPUT"  [144]ZAEHLERSTAND [ NEU ]:";Z2:PRINT
108 INPUT"  [144]GRUNDGEBUEHR :";GB:PRINT
110 INPUT"  [144]GEBUEHR PRO KWH :";L:PRINT
112 K=Z2-Z1:IFK>90000THEN262
114 SK=K*L+GB:IFGB>100THEN262
116 PRINT"  KILOWATTSTUNDEN";K:PRINT
118 PRINT"  STROMKOSTEN";SK;"DM" :PRINT:GOSUB172:GOTO80
120 REM:******* GASBERECHNUNG **********
122 PRINT"[147]"
124 INPUT"  [144]ZAEHLERSTAND [ ALT ]:";Z3:PRINT
126 INPUT"  [144]ZAEHLERSTAND [ NEU ]:";Z4:PRINT
128 INPUT"  [144]GRUNDGEBUEHR :";GB2:PRINT
130 INPUT"  [144]GEBUEHR PRO KBM :";L1:PRINT
132 G=Z4-Z3:IFG>90000THEN262
134 PRINT"  KUBIKMETER GAS";G:PRINT
136 GK=G*L1+GB2
138 PRINT"  GASKOSTEN" GK "DM":PRINT:GOSUB172:GOTO80
140 RETURN
142 REM:******* WASSERBERECHNUNG *******
144 PRINT"[147]"
146 INPUT"  [144]ZAEHLERSTAND [ ALT ]:";Z5:PRINT
148 INPUT"  [144]ZAEHLERSTAND [ NEU ]:";Z6:PRINT
150 INPUT"  [144]GRUNDGEBUEHR :";GB3:PRINT
152 INPUT"  [144]GEBUEHR PRO KBM :";L2:PRINT
154 W=Z6-Z5:IFW>90000THEN262
156 WK=W*L2+GB3:IFGB3>100 THEN262
158 PRINT"  KUBIKMETER WASSER [146]";W:PRINT
160 PRINT"  WASSERKOSTEN ";WK;"DM":PRINT:GOSUB172:GOTO 80
162 REM:******** GESAMMTKOSTEN *********
164 PRINT"[147]"
166 GM=SK+GK+WK
168 IFGM>5000THEN262
170 PRINT"GESAMMTKOSTEN "GM;"DM":PRINT:PRINT:GOSUB172
172 PRINT"[158]  DRUECKE DIE 8  [146]":GOTO 80
174 RETURN
176 REM:********** GRAFIK ***************
178 PRINT"[147]"
180 POKE53280,0:POKE53281,11
182 PRINTCHR$(30)CHR$(147)
184 I=0:J=0:N=0:DX=0:DY=0:Z=0:MA=0:DN$="":UP$="":K$="":A$=""
186 FORI=1TO24:DN$=DN$+CHR$(17):UP$=UP$+CHR$(145):NEXTI
188 REM:****** EINGABETEIL ***********
190 N=3
192 IFSK=0 THEN260
194 FORI=1TON
196 W$(1)="ST"
198 W$(2)="GA"
200 W$(3)="WA"
202 W(1)=SK
204 W(2)=GK
206 W(3)=WK
208 ::IFABS(W(I))>MA THEN MA=W(I)
210 NEXTI
212 K$="         ENERGIEKOSTEN "
214 REM:***** BERECHNUNGSTEIL ********
216 DX=MA/20:DY=INT(7 )-1:REM:DX=MA/30
218 REM:** ZEICHENTEIL **
220 PRINTDN$CHR$(19):POKE53281,0
222 FORI=1TO23
224 :PRINTTAB(2)CHR$(98)
226 NEXTI
228 PRINTCHR$(19)K$
230 FORI=1TON
232 :PRINTLEFT$(DN$,DY);
234 :PRINTW$(I);CHR$(18)CHR$(28)TAB(3);
236 ::FORJ=1TOINT(W(I)/DX)
238 ::PRINTCHR$(32);
240 :NEXTJ
242 :PRINTCHR$(146)CHR$(30)TAB(33)W(I)
244 NEXTI
246 POKE2000,4:POKE2001,18:POKE2002,21:POKE2003,5:POKE2004,3:POKE2005,11
248 POKE2006,5:POKE2009,56:POKE56272,7:POKE56273,7:POKE56274,7:POKE56275,7
250 POKE56276,7:POKE56277,7:POKE56278,7:POKE56281,7:GOTO80
252 GOTO30
254 REM:********* ENDE ****************
256 PRINT"[147]"
258 PRINTSPC(170)"[153]AUF WIEDERSEHEN ":PRINT:PRINT:FORI=1TO2000:NEXT:END
260 PRINT"[147]";SPC(167)"OHNE DATEN KEINE GRAFIK!":FORI=1TO2000:NEXT:GOTO30
262 PRINTSPC(122)"BITTE UEBERPRUEFEN SIE IHRE EINGABE!":FORI=1TO2000:NEXT:GOTO30
264 POKE53281,5:POKE53280,5:POKE53272,21:PRINT"[147][144]";
266 PRINT"          [146]     [146]     [146]     [146]     [146]  [146]     [146]
268 [153]"         WAIT     STOP     WAIT     STOP     STOP  STOP     STOP WAIT
270 PRINT"      [144] [146]    [144] [146]  [144]  [144] [146]    [144] [146]  [144]  [144] [146]    [144]  [144] [146]
272 [153]"      STOP WAIT    STOP WAIT  STOP  STOP WAIT    STOP WAIT  STOP  STOP WAIT    STOP  STOP WAIT
274 PRINT"      [144] [146]    [144] [146]  [144]  [144] [146]    [144]   [144]  [144]     [144]  [144] [146]
276 [153]"       STOP WAIT   STOP WAIT  STOP   STOP WAIT      STOP     STOP  STOP   STOP WAIT
278 PRINT"      [144] [146]    [144] [146]  [144]  [144] [146]    [144]  [144] [146]  [144] [146]  [144]  [144]  [144] ";
280 PRINT"[146]
282 [153]"      STOP WAIT    STOP WAIT  STOP  STOP WAIT    STOP WAIT  STOP  STOP WAIT  STOP  STOP  STOP ";
284 [153]"WAIT
286 PRINT"      [144]     [144] [146]  [144]  [144]     [144] [146]  [144]  [144]   [144]  [144]  [144]    [146]
288 [153]"         STOP  STOP WAIT  STOP     STOP  STOP WAIT  STOP     STOP  STOP     STOP WAIT
290 PRINT"    [158] [146]   [146]     [146]      [146]       [146]     [146]      [146]
292 [153]"    SYS WAIT  SYS WAIT    SYS WAIT     SYS WAIT      WAIT     SYS WAIT     SYS WAIT
294 PRINT"    [158]  [158] [146]   [158]  [158] [146]   [158]  [158] [146]    [158] [146]    [158] [146]    [158] [146] ";
296 PRINT" [158] [146]
298 [153]"     SYS WAIT    SYS  SYS WAIT   SYS WAIT      SYS WAIT    SYS WAIT    SYS WAIT  SYS";
300 [153]" WAIT
302 PRINT"     [158] [146]    [158]  [158] [146]    [158] [146]     [158] [146]     [158] [146]   [158] [146]  [158]";
304 PRINT" [146]
306 [153]"    SYS  SYS WAIT   SYS  SYS WAIT     SYS WAIT    SYS WAIT    SYS WAIT    SYS WAIT ";
308 [153]" SYS WAIT
310 PRINT"    [158] [146]  [158] [146]  [158]  [158] [146]   [158]  [158] [146]    [158] [146]    [158]   [146]  [158] ";
312 PRINT"[146]  [158] [146]
314 [153]"    SYS WAIT  SYS WAIT    SYS WAIT     SYS WAIT    SYS WAIT      SYS WAIT  SYS WAIT ";
316 [153]" SYS WAIT
318 PRINT"        B E R E C H N U N G E N  [146]
320 [142]
322 [143]:******DRUCKERAUSGABE******
324 [159]1,4:[143] OPEN 1,16 MIT SOFT CENTRONICS
326 [152]1,[199](14)"JAHRESKOSTEN"[199](15)
328 [152]1,"--------------------------------------------------"
330 [152]1,"ES WURDEN";K;"KWH STROM  VERBRAUCHT =";SK;"DM, KOSTEN"
332 [152]1,"--------------------------------------------------"
334 [152]1,"ES WURDEN";G;"KBM GAS    VERBRAUCHT =";GK;"DM, KOSTEN"
336 [152]1,"--------------------------------------------------"
338 [152]1,"ES WURDEN";W;"KBM WASSER VERBRAUCHT =";WK;"DM, KOSTEN"
340 [152]1,"--------------------------------------------------"
342 GM[178]SK[170]GK[170]WK
344 [152]1,"DIE GESAMMTKOSTEN BETRAGEN";GM;"DM"
346 [152]1,"--------------------------------------------------"
348 [160]1,4 :[137]12