100 POKE50257,0 110 POKE 53280,10: POKE 53281,0 120 PRINT CHR$(147);CHR$(14);CHR$(8); 130 Z=0: F=9: GOSUB 60610 140 PRINT "[149] [197]INKOMMENSSTEUERTABELLE"; 150 Z=1: F=8: GOSUB 60610 170 Z=24: F=8: GOSUB 60610 180 PRINT "[149] [198]EHLER : [146]"; 190 FT$=" O.K. !": GOSUB 60210 510 GOSUB 60910 515 SO$="[129] [185][185][185][185]" 520 SU$="[145][129] [184][184][184][184]" 525 KT$=" [205]ENUE ": GOSUB 60110 530 Z=4: S=0: F=8: R=0: GOSUB 60410 550 PRINT SO$:PRINT " [158] F1 [146] - [200]INWEISE" 560 PRINT SU$: PRINT SO$ 570 PRINT " [158] F3 [146] - [193]NFANGSWERTE" 580 PRINT SU$: PRINT SO$ 590 PRINT " [158] F5 [146] - [193]USGABE": PRINT SU$ 710 GET C$: IF C$="" GOTO 710 720 C=ASC (C$)-132 730 IF C<1 OR C>3 GOTO 810 740 FT$=" O.K. !": GOSUB 60210 750 ON C GOTO 1010, 2010, 3010 810 FT$=" [206]ICHT ERLAUBTE [212]ASTE !": GOSUB 60210: GOTO 710 1010 KT$=" [200]INWEISE ": GOSUB 60110: GOTO 5110 2010 KT$="[193]NFANGSWERTE": GOSUB 60110: GOSUB 60910 2040 Z=4: S=0: F=7: R=0: GOSUB 60410 2070 PRINT SO$: PRINT " [158] F1 [146] - [199]RUNDTABELLE" 2080 PRINT SU$: PRINT SO$ 2090 PRINT " [158] F3 [146] - [211]PLITTINGTABELLE": PRINT SU$ 2110 GET C$: IF C$="" GOTO 2110 2120 C=ASC (C$)-132 2130 IF C<1 OR C>2 GOTO 2190 2140 FT$= " O.K. !": GOSUB 60210: GOSUB60910 2150 GOSUB 60910: Z=4: S=3: F=7: R=0: GOSUB 60410 2155 ON C GOTO 2160,2170 2160 PRINT"[199]RUNDTABELLE" 2165 TB=1: Z=Z+1: GOSUB 60450: PRINT "[163][163][163][163][163][163][163][163][163][163][163][163]": GOTO 2210 2170 PRINT "[211]PLITTINGTABELLE" 2180 TB=2: Z=Z+1: GOSUB 60450: PRINT "[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]": GOTO 2210 2190 FT$=" [206]ICHT ERLAUBTE [212]ASTE !": GOSUB 60210: GOTO 2110 2210 FT$=" O.K. !": GOSUB 60210: Z=8: S=3: F=7: R=0: GOSUB 60410 2220 PRINT "[193]NFANGSWERT :"; 2230 EZ=8: ES=18: GOSUB 60710: AW=VAL(EW$) 2260 Z=10: S=3: F=7: R=0: GOSUB 60410 2270 PRINT "[197]NDWERT :"; 2280 EZ=10: ES=18: GOSUB 60710: EW=VAL(EW$) 2310 IF AW < EW GOTO 510 2320 FT$=" [197]NDWERT <= [193]NFANGSWERT !" 2330 GOSUB 60210: GOTO 510 3010 KT$=" [193]USGABE ": GOSUB 60110 3030 DEF FNSP(X)=7-(INT(LOG(X)/LOG(10))) 3110 IF TB=2 GOTO 3140 3120 LA=54*INT(AW/54): LB=LA+53 3130 TB$=" [199]RUNDTABELLE ": GOTO 3160 3140 LA=108*INT(AW/108): LB=LA+107 3150 TB$="[211]PLITTINGTABELLE" 3160 ZT=7: GOTO 4110 3210 LC=LA: IF TB=2 THEN LC=LA/2 3230 IF LC<4212 GOTO 3320 3240 IF LC<18000 GOTO 3330 3250 IF LC<59999 GOTO 3340 3260 IF LC<129999 GOTO 3360 3310 LD=INT(0.56*LC-14837): GOTO 3410 3320 LD=0: GOTO 3410 3330 LD=INT(0.22*LC-926): GOTO 3410 3340 LD=(LC-18000)/10000 3350 LD=INT((((3.05*LD-73.76)*LD+695)*LD+2200)*LD+3034): GOTO 3410 3360 LD=(LC-60000)/10000 3370 LD=INT((((0.09*LD-5.45)*LD+88.13)*LD+5040)*LD+20018) 3410 IF TB=2 THEN LD=LD+LD 3415 Z=ZT: S=1: GOSUB 60450:P1=7:P2=7:P3=7 3420 IF LA<>0 THEN P1=FNSP(LA) 3430 IF LB<>0 THEN P2=FNSP(LB) 3440 IF LD<>0 THEN P3=FNSP(LD) 3450 S=0+P1: GOSUB 60450: PRINT LA; 3460 PRINT "-";: S= 9+P2: GOSUB 60450: PRINT LB; 3470 S=24+P3: GOSUB 60450: PRINT LD; 3480 ZT=ZT+1: IF ZT<=19 GOTO 3510 3490 ZT=7: TS=4: GOTO 6110 3510 IF TB=2 GOTO 3530 3520 LA=LA+54: LB=LB+54: GOTO 3550 3530 LA=LA+108: LB=LB+108 3550 IF LA<=EW GOTO 3210 3560 TS=5: GOTO 6110 4110 GOSUB 60910: Z=3: S=0: F=7: R=0: GOSUB 60410 4130 PRINT"[182][183][183][183][183]"; 4135 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"; 4140 PRINT"[183][183][183][183][183][183][183][183][183][181][182] [197]INKOMMEN "; 4145 PRINT" [181] [181]"; 4150 PRINT"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"; 4155 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][181][182] "; 4160 PRINT" "; 4165 PRINT" [181][182] [181]"; 4170 PRINT" [181][182] "; 4175 PRINT" [181] "; 4180 PRINT" [181][182] "; 4185 PRINT" [181] [181]"; 4190 PRINT"[182] [181] "; 4195 PRINT" [181][182] "; 4200 PRINT" [181] "; 4205 PRINT" [181][182] [181]"; 4210 PRINT" [181][182] "; 4215 PRINT" [181] "; 4220 PRINT" [181][182] "; 4225 PRINT" [181] [181]"; 4230 PRINT"[182] [181] "; 4235 PRINT" [181][182] "; 4240 PRINT" [181] "; 4245 PRINT" [181][182] [181]"; 4250 PRINT" [181][182] "; 4255 PRINT" [181] "; 4260 PRINT" [181][182] "; 4265 PRINT" [181] [181]"; 4270 PRINT"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"; 4275 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][181] "; 4280 Z=4: S=21: GOSUB 60450: PRINT TB$;: GOTO 3210 5110 TS=0: GOSUB 60910 5120 Z=3: S=1: F=7: R=0: GOSUB 60410 5140 PRINT"1.[193][204][204][199][197][205][197][201][206][197][211] "; 5145 PRINT" "; 5150 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163] "; 5155 PRINT" [215]ENN [211]"; 5160 PRINT"IE [201]HRE [211]TEUERERKLAERU"; 5165 PRINT"NG SELBST MACHEN WO"; 5170 PRINT"LLEN, BENOETIGEN [211]I"; 5175 PRINT"E FUER DIE [197]RMITTLUNG "; 5180 PRINT"DER ZU ZAHLENDEN [211]T"; 5185 PRINT"EUERN EINE [197]INKOMMENS- "; 5190 PRINT" STEUERTABELLE. [205]IT DIE"; 5195 PRINT"SER [212]ABELLE KOENNEN"; 5200 PRINT" [211]IE FESTSTELLEN OB: "; 5205 PRINT" "; 5210 PRINT" -"; 5215 PRINT" [211]IE BEI [201]HRER [211]TEUERKLAE"; 5220 PRINT"RUNG MIT EINER"; 5225 PRINT" [206]ACHZAHLUNG RECHEN "; 5230 PRINT" MUESSEN, ODER OB [211]I"; 5235 PRINT"E [211]TEUERN ZURU"; 5240 PRINT"ECKBEKOMMEN. "; 5245 PRINT" "; 5250 PRINT" -"; 5255 PRINT" DAS [198]INANZAMT IM [197]INKOMM"; 5260 PRINT"ENS- STEUERBES"; 5265 PRINT"CHEID ([204]OHNSTEUERBE- "; 5270 PRINT" SCHEID) DIE ZU ZAHLE"; 5275 PRINT"NDE [211]TEU- ER R"; 5280 PRINT"ICHTIG BERECHNET HAT. "; 5290 GOTO 6110 5310 REM T2 5330 PRINT" -WIEVIEL [211]TEUERN [211]IE SPAR"; 5340 PRINT"EN, WENN [211]IE "; 5345 PRINT" DURCH STEUERLICH "; 5350 PRINT" BEGUENSTIGTE [193]USGA"; 5355 PRINT"BEN [201]HR 'ZU "; 5360 PRINT"VERSTEUERNDES [197]INKOMMEN' "; 5365 PRINT" SENKEN. "; 5370 PRINT" "; 5375 PRINT" "; 5380 PRINT" [196]IESE "; 5385 PRINT"[197]INKOMMENSSTEUERTABELLE "; 5390 PRINT" GILT UNVERAENDERT AUC"; 5395 PRINT"H FUER DIE FO- LGENDE"; 5400 PRINT"N [202]AHRE, SOLANGE DER [211]TE"; 5405 PRINT"UER- TARIF NICHT GEAE"; 5410 PRINT"NDERT WIRD. [196]"; 5415 PRINT"IE [199]RUNDTABELLE[146] GILT F"; 5420 PRINT"UER ALLE NICHT VERHE"; 5425 PRINT"IRATETEN [208]ERSONEN, FUER "; 5430 PRINT" DIE GETRENNT LEBENDEN"; 5435 PRINT", SOWIE FUER DIE GE"; 5440 PRINT"TRENNT ZU VERANLAGENDEN [197]"; 5445 PRINT"HE- GATTEN. "; 5450 PRINT" [198]"; 5455 PRINT"UER ALLE ANDEREN GILT DI"; 5460 PRINT"E [211]PLIT-[146] TINGTABELLE[146]"; 5465 PRINT". "; 5470 GOTO 6110 5610 REM T3 5630 PRINT" [196]I"; 5635 PRINT"E [212]ABELLE IM [208]ROGRAMM REI"; 5640 PRINT"CHT VON "; 5645 PRINT" "; 5650 PRINT"  0 [196][205] - 999999 "; 5655 PRINT"[196][205] [146]. "; 5660 PRINT" "; 5665 PRINT" 2.[194]ENUTZEN DES [208]ROG"; 5670 PRINT"RAMMS [163][163]"; 5675 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "; 5680 PRINT" [218]UNAECHST E"; 5685 PRINT"RMITTELN [211]IE [201]HR 'ZU "; 5690 PRINT" VERSTEUERNDES [197]INKOMME"; 5695 PRINT"N'. [193]NLEITUN- GEN DAZ"; 5700 PRINT"U ENTNEHMEN [211]IE ENTSPRECH"; 5705 PRINT"EN- DEN [194]UECHERN, ODE"; 5710 PRINT"R [194]ROSCHUEREN DER [203]O"; 5715 PRINT"MMUNEN UND [198]INANZAEMTER. "; 5720 PRINT" [205]IT DEM [208]ROG"; 5725 PRINT"RAMMTEIL [193]NFANGSWERTE[146] "; 5730 PRINT" WAEHLEN [211]IE [201]HRE [212]ABE"; 5735 PRINT"LLE ([199]RUND- ODER [211]P"; 5740 PRINT"LITTINGTABELLE) AUS. [205]IT "; 5745 PRINT"DER [197]INGABE VON [193]NFAN"; 5750 PRINT"GSWERT UND [197]NDWERT ER"; 5755 PRINT"HALTEN [211]IE DEN ENTSPRECHE"; 5760 PRINT"NDEN [212]A- BELLENAUSSCH"; 5765 PRINT"NITT. "; 5770 GOTO 6110 5910 REM T4 5930 PRINT" [205]I"; 5935 PRINT"T [208]ROGRAMMTEIL [193]USGABE[146] "; 5940 PRINT"WIRD DER [212]ABELLENAUSS"; 5945 PRINT"CHNITT AUF [194]ILDSCHIRM "; 5950 PRINT" AUSGEGEBEN. "; 5955 PRINT" [193]US DER"; 5960 PRINT" [212]ABELLE LESEN [211]IE DIE [200]O"; 5965 PRINT"EHE DER ZU ZAHLENDEN "; 5970 PRINT"[202]AHRESSTEUER AB. [206]A"; 5975 PRINT"CH [193]BZUG DER WAEHREND DES"; 5980 PRINT" [202]AHRES GEZAHLTEN [211]"; 5985 PRINT"TEUERN KOENNEN [211]IE NUN "; 5990 PRINT" FESTSTELLEN, OB [211]IE MI"; 5995 PRINT"T EINER [210]UECK- ERSTATT"; 6000 PRINT"UNG ODER [206]ACHZAHLUNG ZU R"; 6005 PRINT"ECH- NEN HABEN. "; 6110 TS=TS+1: Z=22: S=3: GOSUB 60450 6120 PRINT "[215]EITER :  W [146] [205]ENUE :  M [146]" 6150 GET C$: IF C$="" GOTO 6150 6160 IF C$="M" GOTO 510 6170 IF C$<>"W" GOTO 6150 6180 GOSUB 60910 6190 Z=3: S=1: GOSUB 60450 6200 ON TS GOTO 5310,5610,5910,510,4110,510 60110 Z=1: S=13: F=8: R=1: GOSUB 60410 60130 PRINT KT$;: GOSUB 60510: RETURN 60210 Z=24: S=10: F=8: R=1: GOSUB 60410 60230 PRINT " "; 60240 S=10: GOSUB 60450: PRINT FT$;: GOSUB 60510 60270 Z=AZ: S=AS: F=AF: R=AR: RETURN 60410 AZ=PEEK(214):AS=PEEK(211):AR=PEEK(199):AF=PEEK(646) 60430 POKE 199,R: POKE 646,F 60450 POKE 214,Z: POKE 211,S: SYS 58640: RETURN 60510 POKE 199,AR: POKE 646,AF 60520 POKE 214,AZ: POKE 211,AS: SYS 58640: RETURN 60610 S=0: R=1: GOSUB 60410 60630 PRINT " "; 60640 POKE 55295+(Z+1)*40,F: POKE 1023+(Z+1)*40,160 60660 AZ=Z: AS=S: AF=F: AR=R: GOSUB 60510: RETURN 60710 POKE 204,1: EW$="": ZZ=0: Z=EZ: S=ES: GOSUB 60410 60715 PRINT " ";: S=ES: GOSUB 60450 60720 GET W$: POKE 204,0: IF W$="" GOTO 60720 60730 W=ASC(W$) 60740 IF W=13 GOTO 60800 60745 IF W=20 THEN 60710 60750 IF W<48 OR W>57 GOTO 60810 60760 ZZ=ZZ+1: IF ZZ>6 GOTO 60850 60770 IF FF<>0 THEN POKE 204,1: FT$=" O.K. !": FF=0: GOSUB 60210 60780 EW$=EW$+W$ 60790 S=ES: Z=EZ: GOSUB 60450: PRINT EW$;: GOTO 60720 60800 POKE 204,1: PRINT " ";: IF ZZ=0 THEN PRINT "[157]0"; 60805 RETURN 60810 FF=1: POKE 204,1: FT$=" KEINE ZIFFER !": GOSUB 60210: GOTO 60720 60850 FF=1: POKE 204,1: FT$=" [215]ERT ZU LANG !": GOSUB 60210: GOTO 60710 60910 Z=2: S=0: GOSUB 60450 60920 FOR I=1 TO 22 60930 PRINT " "; 60940 NEXT: RETURN