1 CLS:DIM A(3),B(3),C(3)
2 PRINT TAB(21)"K F Z - U N T E R H A L T S K O S T E N":LOCATE 3,26:PRINT"(C)opyright C.E.Software 1994":LOCATE 5,31:PRINT"(Jahresberechnung)":J=10:LOCATE 10,19:PRINT"Monatlich zurckgelegte Strecke : ------ km":LOCATE 13,19
3 PRINT"Benzinverbrauch pro 100 km      : ------ l":LOCATE 16,19:PRINT"Preis pro ein Liter Benzin      : ------ DM":LOCATE 19,19:PRINT"1/2 j„hrl. Versicherungsbeitrag : ------ DM":LOCATE 22,19
4 PRINT"J„hrliche Kraftfahrzeugsteuer   : ------ DM":GOSUB 12:B=VAL(Z$)*12:J=13:GOSUB 12:L=VAL(Z$)/100:J=16:GOSUB 12:C(1)=VAL(Z$)*L*B:J=19:GOSUB 12:C(3)=VAL(Z$)*2:J=22:GOSUB 12:C(2)=VAL(Z$):SCREEN 9:C(0)=C(1)+C(2)+C(3):IF C(0)<1 GOTO 16
5 COLOR 6:LINE(0,32)-(639,32):LINE(10,10)-(10,349):LINE(629,10)-(629,349):LINE(0,349)-(639,349):COLOR 2:FOR A=149 TO 329 STEP 20:LINE(11,A)-(628,A):NEXT:COLOR 3:LOCATE 2,8:PRINT"Gesamt"TAB(26)"Benzin"TAB(44)"Steuer"TAB(62)"Versicherung"
6 FOR I=0 TO 3:B(I)=INT((C(I)*100/C(0))*100+.5)/100:C(I)=INT(C(I)*100+.5)/100:LOCATE 4,I*18+7:PRINT C(I)"DM":LOCATE 6,I*18+7:PRINT B(I)"%":A=INT(B(I)):A(I)=349-A*2:IF B(I)-A>.74 THEN A(I)=A(I)-2 ELSE IF B(I)-A>.24 THEN A(I)=A(I)-1
7 NEXT:DELAY 1:FOR B=349 TO 149 STEP-1:SOUND 32767,.4:FOR I=0 TO 3:ON-(B<A(I))GOTO 9:J=I*144
8 LINE(47+J,B)-(147+J,B),14:COLOR 7:LINE(48+J,B-1)-(67+J,B-16):LINE(67+J,B-16)-(166+J,B-16):LINE(166+J,B-16)-(148+J,B-2):LINE(48+J,B-1)-(147+J,B-1):PAINT(50+J,B-2):COLOR 8:LINE(167+J,B-16)-(148+J,B-1):LINE(167+J,B-15)-(148+J,B)
9 NEXT I,B
10 COLOR 4:LOCATE 9,29:PRINT"Neue Berechnung <J/N>?":COLOR 7
11 Y$=INKEY$:IF Y$="n" THEN END ELSE ON-(Y$<>"j")GOTO 11:SCREEN 0:GOTO 2
12 N=53:H=6:LOCATE J,N,1,6,7:A=1:G=1:Z$=""
13 Y$=INKEY$:IF Y$=CHR$(8) AND A>1 THEN Z$=LEFT$(Z$,A-2)+MID$(Z$,A):LOCATE,N:PRINT Z$"-";:A=A-1:LOCATE,A-1+N ELSE T$=MID$(Y$,2):IF T$="S" AND A<H+1 THEN Z$=LEFT$(Z$,A-1)+MID$(Z$,A+1):LOCATE,N:PRINT Z$"-";:LOCATE,N+A-1
14 IF T$="M" AND LEN(Z$)>A-1 THEN LOCATE,N+A:A=A+1 ELSE IF T$="K" AND A>1 THEN LOCATE,N+A-2:A=A-1 ELSE IF T$="R" THEN G=1-G:LOCATE,,,G*6,7 ELSE IF T$="O" THEN A=LEN(Z$)+1:LOCATE,N+A-1 ELSE IF T$="G" THEN LOCATE,N:A=1
15 IF Y$=CHR$(13) THEN LOCATE,,0:RETURN ELSE IF Y$=CHR$(27) THEN CLS:END ELSE ON-(Y$<"." OR Y$>"9" OR Y$="/" OR A>H)GOTO 13:Z$=LEFT$(Z$,A-1)+Y$+MID$(Z$,A+G,H-A):LOCATE,N:PRINT Z$;:LOCATE,N+A:A=A+1:GOTO 13
16 LOCATE 7,31:PRINT"Ungltige Eingabe!":GOTO 10