0 IFPEEK(50307)=120THENPOKE50257,0 10 REM ******************************* 20 REM * LOHN UND EINKOMMENSTEUER * 30 REM * VON H. ZIMMERMANN * 40 REM * & H. HONDONG * 50 REM * & M. HANKE * 60 REM ******************************* 65 SA=7:REM SEKUNDAERADRESSE DRUCKER 70 DIMA(44),B(24),C(30),D(10),E(10),F(24),Y$(6),S(4) 80 PRINTCHR$(14):PRINTCHR$(8):TP=31 90 POKE53280,11:POKE53281,11 100 PRINT"[147][204][160][207][160][200][160][206][160]- [197][160][201][160][206][160][203][160][207][160][205][160][205][160][197] [206][160][211][160][212][160][197][160][213][160][197][160][210]"; 110 PRINT"F U E R " 115 PRINT" " 120 PRINT" 1 99999 888 55555 " 130 PRINT " 11 9 9 8 8 5 " 140 PRINT " 1 1 9 9 8 8 5 " 150 PRINT " 1 1 9 9 8 8 5 " 160 PRINT " 1 99999 888 55555 " 170 PRINT " 1 9 8 8 5 " 180 PRINT " 1 9 8 8 5 " 190 PRINT " 1 9 8 8 5 " 200 PRINT " 1 99999 888 55555 " 201 PRINT " " 202 PRINT"(1) _ [194]ERECHNUNG DER [202]AHRESSTEUER 1985" 204 PRINT"(2) _ [197]INKOMMENSTEUERTABELLE 1985" 206 PRINT" VON [218]IHOHA"; 210 GETA$:IFA$=""THEN210 215 IFA$="1"THEN230 220 IFA$="2"THEN5000 225 GOTO210 230 PRINT"[147] [200]INWEISE ZU DEN [197]INGABEN ! " 240 PRINT"[199]RUNDSAETZLICH SIND IMMER NUR  VOLLE[146] [196][205] - [194]ETRAEGE "; 250 PRINT"EINZUGEBEN!  [196]IE [197]INGABEN SIND MIT DER [210]ETURN-[212]ASTE[146] "; 260 PRINT"ABZUSCHLIESSEN, [193]USNAHMEN SIND (J/N)-":PRINT 270 PRINT"[193]BFRAGEN. [198]ALSCHEINGABEN KOENNEN DURCH" 280 PRINT"[201][206][211][212]/[196][197][204][146] KORRIGIERT WERDEN." 290 PRINT" 0 [146] [196][205]-[197]INGABEN ODER NICHT ZUTREFFENDE [193]BFRAGEN KOENNEN DURCH "; 300 PRINT"[196]RUECKEN DER  [210]ETURN-[212]ASTE[146] BEANTWORTET WERDEN." 310 GOSUB3370 320 S$="[211]TEUERPFLICHTIGEN":E$="[197]HEFRAU":R$="[210]ELIGION":G$="[199]EBURTSDATUM" 330 K$="KATHOLISCH":V$="EVANGELISCH":L$="LEDIG":H$="VERHEIRATET" 340 AZ$="[193]NGABEN LAUT [218]EILEN [206]R.":AN$="[193]US [193]NLAGE [206] FUER":KI$="[203]IRCHENSTEUER" 350 PRINT"[147] [193]LLGEMEINE [193]NGABEN ":A(1)=0 360 PRINT"[198]AMILIENSTAND DES" 370 PRINT""+S$+": ([214]) = "+H$ 380 PRINT"([204]) = "+L$ 390 GETY$:IFY$=""THEN390 400 IFY$="V"THENPRINT"[145][145] "+H$+"[146] ":GOTO430 410 IFY$="L"THENPRINT"[145][145] "+L$+"[146] ":A(1)=1:GOTO430 420 GOTO390 430 PRINT" " 440 PRINTG$+" DES ([212][212][205][205][202][202])" 450 PRINT""+S$+":  . . [146]":GOSUB3390:IFA<210102THENA(2)=1 460 IFA(1)=1THEN480 470 PRINT""+E$+" :  . . [146]":GOSUB3390:IFA<210102THENB(2)=1 480 PRINT""+R$+" DES ( 0 / [197] / [203] )" 490 PRINT""+S$+":":GOSUB3500:IFY$="K"THENA(3)=2 500 IFY$="E"THENA(3)=1 510 IFA(1)=1THEN550 520 PRINT""+E$+" :":GOSUB3500 530 IFY$="K"THENB(3)=2 540 IFY$="E"THENB(3)=1 550 PRINT"[218]AHL DER [203]INDER :" 560 GETY$:IFY$=""THENY$="*" 570 IFY$=CHR$(13)THENY$="0" 580 IFASC(Y$)<48ORASC(Y$)>57THEN560 590 PRINT"[145]";Y$:A(4)=VAL(Y$) 600 GOSUB3540:IFA$="N"THEN350 610 PRINT"[147] [193]NGABEN ZUM [193]RBEITSLOHN " 620 PRINT""+AN$+" DEN "+S$:B(0)=0:GOSUB700:GOSUB2390:IFA(1)THEN1670 630 PRINT"[147] [193]NGABEN IN [193]NLAGE [206] FUER DIE "+E$+" ? " 640 PRINT" (J/N) ?":GOSUB3550 650 IFA$="N"THEN1670 670 PRINT"[147] [193]NGABEN ZUM [193]RBEITSLOHN " 680 PRINT""+AN$+" DIE "+E$:B(0)=1 690 GOSUB700:GOSUB2390:GOTO1670 700 GOSUB850:GOSUB1120 710 PRINT"[147] [215]ERBUNGSKOSTEN ALLGEMEIN [146]" 720 PRINT"[193]NGABEN IN [218]EILE 45 - 48 ? (J/N)":GOSUB3550 730 IFA$="J"THENGOSUB1400:GOTO750 740 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN710 750 PRINT"[147] [205]EHRAUFWENDUNGEN FUER [214]ERPFLEGUNG " 760 PRINT"[194]ETRAEGE IN [218]EILE 49 - 54 ? (J/N)":GOSUB3550 770 IFA$="J"THENGOSUB1480:GOTO790 780 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN750 790 PRINT"[147] [205]EHRAUFWENDUNGEN ":PRINT" FUER DOPPELTE [200]AUSHALTSFUEHRUNG " 800 PRINT"[193]NGABEN IN [218]EILE 55 - 63 ? (J/N)":GOSUB3550 810 IFA$="J"THENGOSUB1570:GOTO830 820 PRINT"[145]: KEINE":GOSUB3540:IFA$="N"THEN790 830 F(22)=F(17)+F(19)+F(20)+F(21):IFF(22)<564THENF(22)=564 840 RETURN 850 X$="[194]RUTTOARBEITSLOHN":TP$="":TP=31 860 PRINT""+X$+" [196][205]  [146]" 870 GOSUB3570:F(5)=Y:GOSUB3770 880 X$="[204]OHNSTEUER":PRINT""+X$+" [196][205]  [146]":GOSUB3570 890 F(6)=Y :GOSUB3770:X$=KI$ 900 ONB(0)+1GOTO910,920 910 ONA(3)+1GOTO960,930,950 920 ONB(3)+1GOTO960,930,950 930 PRINT""+X$+" (EV) [196][205]  [146]":GOSUB3570:F(7)=Y:GOSUB3770 940 GOTO960 950 PRINT""+X$+" (RK) [196][205]  [146]":GOSUB3570:F(7)=Y :GOSUB3770 960 PRINT"[194]ETRAEGE IN [218]EILE 7 -15 (J/N) ?":GOSUB3550 970 IFA$="N"THENPRINT"[145]  KEINE [146]":GOTO1090 980 X$="[211]UMME DER [218]EILEN 7 - 9 [196][205]  [146]":PRINT"[145]"+X$:GOSUB3570 990 GOSUB3770:IFY=0THEN1010 1000 F(8)=Y 1010 X$="[211]UMME DER [218]EILEN 10-12 [196][205]  [146]" 1020 PRINT""+X$:GOSUB3570:GOSUB3770:F(9)=Y 1030 PRINT"[211]UMME DER [218]EILE 13 [196][205]  [146]" 1040 GOSUB3570:GOSUB3770:IFY=0THEN1060 1050 F(10)=Y 1060 PRINT"[211]UMME DER [218]EILEN 14+15 [196][205]  [146]" 1070 GOSUB3570:GOSUB3770:IFY =0THEN1090 1080 F(12)=Y 1090 GOSUB3540:IFA$="N"THENFORI=5TO12:F(I)=0:NEXT:IFB(0)=1THEN670 1100 IFA$="N"THEN610 1110 RETURN 1120 PRINT"[147] [215]ERBUNGSKOSTEN " 1130 PRINT"[198]AHRTEN ZW. [215]OHNUNG UND [193]RBEITSSTAETTE" 1140 PRINT" [208][203][215](1) [205][207][212](2) [205][207][198](3) [198][193][200](4)":GOSUB3700:A=VAL(A$) 1150 IFA=0THEN1300 1160 ONAGOTO1170,1180,1190,1200:GOTO1260 1170 F(13)=.36:W$="[208][203][215]":GOTO1210 1180 F(13)=.16:W$="[205][207][212]":GOTO1210 1190 F(13)=.22:W$="[205][207][198]":GOTO1210 1200 F(13)=.12:W$="[198][193][200]" 1210 PRINT""+W$+"[146] BENUTZT AN [212]AGEN  [146]" 1220 GOSUB3570:GOSUB3770:F(14)=Y 1230 IFF(14)>365THEN:PRINT"[145][145][145]":GOTO1210 1240 PRINT"[197]INFACHE [197]NTFERNUNG  [146]":GOSUB3570:GOSUB3770:F(15)=Y 1250 IFF(15)>999THEN:PRINT"[145][145][145]":GOTO1240 1260 F(16)=F(13)*F(14)*F(15):F(17)=F(17)+F(16) 1270 IFX<2THENPRINT"WEITERE [193]RBEITSSTAETTEN (J/N)?":GOSUB3550 1280 IFA$="J"THENPRINT"[145][145][145]":X=X+1:GOTO1140 1290 IFA$="N"THENPRINT"[145]:  KEINE" 1300 GOSUB3540:IFA$="N"THENF(14)=0:F(15)=0:X=0:F(17)=0:GOTO1120 1310 PRINT"[147] [215]ERBUNGSKOSTEN ":X$="[207]EFFENTLICHE [214]ERKEHRSMITTEL" 1320 PRINT""+X$:PRINT"[193]UFWENDUNGEN : [196][205]  [146]":GOSUB3570 1330 GOSUB3770 1340 F(16)=Y 1350 PRINT"VOM [193]RBEITGEBER" 1360 PRINT"STEUERFREI ERSETZT : [196][205]  [146]":GOSUB3570:GOSUB3770 1370 F(18)=Y 1380 GOSUB3540:IFA$="N"THENF(16)=0:F(18)=0:GOTO1310 1385 F(17)=F(17)+F(16)-F(18) 1390 RETURN 1400 X$="[194]ETRAEGE AUS [218]EILE " 1410 PRINT"[145]"+X$+"45: [196][205]  [146]":GOSUB3570:GOSUB3770:F(19)=Y 1420 PRINT""+X$+"46: [196][205]  [146]":GOSUB3570:GOSUB3770:F(19)=F(19)+Y 1430 PRINT""+X$+"47: [196][205]  [146]":GOSUB3570:GOSUB3770:F(19)=F(19)+Y 1440 PRINT""+X$+"48: [196][205]  [146]":GOSUB3570:GOSUB3770:F(19)=F(19)+Y 1450 PRINT"[211]UMME IN [198]ELD 77 = [196][205]":Y=F(19):GOSUB3770 1460 GOSUB3540:IFA$="N"THEN710 1470 RETURN 1480 X$="[194]ETRAEGE AUS [218]EILE " 1490 PRINT"[145]"+X$+"50: [196][205]  [146] ":GOSUB3570:GOSUB3770:F(20)=Y 1500 PRINT""+X$+"52: [196][205]  [146]":GOSUB3570:GOSUB3770:F(20)=F(20)+Y 1510 PRINT""+X$+"53: [196][205]  [146]":GOSUB3570:GOSUB3770:F(20)=F(20)+Y 1520 PRINT"STEUERFREI ERSETZT : [196][205]  [146]":GOSUB3570:GOSUB3770 1530 F(22)=F(20)-Y 1540 PRINT"[211]UMME IN [198]ELD 76 = [196][205]":Y=F(22):GOSUB3770 1550 GOSUB3540:IFA$="N"THEN750 1560 RETURN 1570 X$="[194]ETRAEGE AUS [218]EILE " 1580 PRINT"[145]"+X$+"58: [196][205]  [146]":GOSUB3570:GOSUB3770:F(21)=Y 1590 PRINT""+X$+"59: [196][205]  [146]":GOSUB3570:GOSUB3770:F(21)=F(21)+Y 1600 PRINT""+X$+"60: [196][205]  [146]":GOSUB3570:GOSUB3770:F(21)=F(21)+Y 1610 PRINT""+X$+"61: [196][205]  [146]":GOSUB3570:GOSUB3770:F(21)=F(21)+Y 1620 PRINT"STEUERFREI ERSETZT : [196][205]  [146]":GOSUB3570:GOSUB3770 1630 F(21)=F(21)-Y 1640 PRINT"[211]UMME IN [198]ELD 75 = [196][205]":Y=F(21):GOSUB3770 1650 GOSUB3540:IFA$="N"THEN790 1660 RETURN 1670 PRINT"[147] [193]NGABEN AUS [193]NLAGE [214] " 1680 PRINT"[197]INK. AUS [214]ERMIETUNG UND [214]ERPACHTUNG  (J/N)?" 1690 GOSUB3550:IFA$="N"THENPRINT"[145]KEINE ":GOTO1760 1700 PRINT"[145][211]ETZEN [211]IE DIE [211]UMME EIN,DIE [211]IE AUS DER[193]NLAGE [214] ERMITTELT HABEN." 1710 PRINT"[194]EI NEGATIVEN [197]INKUENFTEN DAS - [218]EICHEN " 1720 PRINT"VOR DER [197]INGABE NICHT VERGESSEN!" 1730 PRINT"[211]UMME AUS [193]NLAGE [214] : [196][205]  [146]" 1740 GOSUB3570:IFM=1THENY=Y*-1 1750 GOSUB3770:V=Y 1760 GOSUB3540:IFA$="N"THEN1670 1770 PRINT"[147] [211]ONDERAUSGABEN ":X$="[211]OZIALVERSICHERUNG ":TP=33:TP$="" 1780 PRINT""+X$+"DES [211]TEUERPFLICHTIGEN" 1790 PRINT"NUR [193]RBEITNEHMER[146]ANTEIL: [196][205]  [146]":GOSUB3570:GOSUB3770 1800 A(23)=Y:IFA(1)THEN1840 1810 PRINT""+X$+"DER [197]HEFRAU" 1820 PRINT"NUR [193]RBEITNEHMER[146]ANTEIL: [196][205]  [146]":GOSUB3570:GOSUB3770 1830 A(24)=Y 1840 X$="[210]ENTENVERSICHERUNG " 1850 PRINT""+X$+"DES [211]TEUERPFLICHTIGEN" 1860 PRINT"NUR [193]RBEITGEBER[146]ANTEIL : [196][205]  [146]":GOSUB3570:GOSUB3770 1870 A(25)=Y:IFA(1)THEN1910 1880 PRINT""+X$+"DER [197]HEFRAU" 1890 PRINT"NUR [193]RBEITGEBER[146]ANTEIL [196][205]  [146]":GOSUB3570:GOSUB3770 1900 A(26)=Y 1910 GOSUB3540:IFA$="N"THEN1770 1920 PRINT"[147] [211]ONDERAUSGABEN ":PRINT"IN 1985 IN 1984" 1930 PRINT"GEZAHLT: ERSTATTET:" 1940 PRINT"[198]REIW. [214]ERS.: [196][205]  [146]":TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570 1950 GOSUB3770:A(27)=Y 1960 PRINTTAB(29);"[145][196][205]  [146]":TP$="":TP=37:GOSUB3570:GOSUB3770 1970 A(27)=A(27)-Y 1980 PRINT"[203]RANKENVERS.: [196][205]  [146]":TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570 1990 GOSUB3770:A(28)=Y 2000 PRINTTAB(29);"[145][196][205]  [146]":TP$="":TP=37:GOSUB3570:GOSUB3770 2010 A(28)=A(28)-Y 2020 PRINT"[213]NFALLVERS. : [196][205]  [146]":TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570 2030 GOSUB3770:A(29)=Y 2040 PRINTTAB(29);"[145][196][205]  [146]":TP$="":TP=37:GOSUB3570:GOSUB3770 2050 A(29)=A(29)-Y 2060 PRINT"[204]EBENSVERS. : [196][205]  [146]":TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570 2070 GOSUB3770:A(30)=Y 2080 PRINTTAB(29);"[145][196][205]  [146]":TP$="":TP=37:GOSUB3570:GOSUB3770 2090 A(30)=A(30)-Y 2100 PRINT"[200]AFTPFLICHT : [196][205]  [146]":TP=24:TP$="[157][157][157][157][157][157]":GOSUB3570 2110 GOSUB3770:A(31)=Y 2120 PRINTTAB(29);"[145][196][205]  [146]":TP$="":TP=37:GOSUB3570:GOSUB3770 2130 A(31)=A(31)-Y:GOSUB3540:IFA$="N"THEN1920 2140 B(1)=A(27)+A(28)+A(29)+A(30)+A(31):TP=33:TP$="" 2150 PRINT"[147] [211]ONDERAUSGABEN ":PRINT"[194]AUSPARKASSE [194]EITRAEGE: [196][205]  [146]" 2160 GOSUB3570:GOSUB3770:A(32)=Y 2170 PRINT"[203]IRCHENSTEUER GEZAHLT : [196][205]  [146]":GOSUB3570:GOSUB3770:A(33)=Y 2180 PRINT"IN 1984 ERSTATTET : [196][205]  [146]":GOSUB3570:GOSUB3770 2190 A(41)=Y:A(33)=A(33)-A(41) 2200 PRINT"[211]TEUERBERATUNGSKOSTEN : [196][205]  [146]":GOSUB3570:GOSUB3770:A(34)=Y 2210 PRINT"[194]ERUFSAUSBILDUNG : [196][205]  [146]":GOSUB3570:GOSUB3770:A(35)=Y 2220 PRINT"[211]PENDEN ([218]EILE 81-83) : [196][205]  [146]":GOSUB3570:GOSUB3770:A(36)=Y 2230 PRINT"WEITERE [211]ONDERAUSGABEN: [196][205]  [146]":GOSUB3570:GOSUB3770:A(42)=Y 2232 PRINT" [193]USSERGEWOEHNLICHE [194]ELASTUNGEN " 2234 PRINT"[211]UMME DER [193]UFWENDUNGEN: [196][205]  [146]":GOSUB3570:GOSUB3770:A(43)=Y 2240 GOSUB3540:IFA$="N"THEN2150 2250 GOTO2470 2260 IFA(0)=0THENE=E/2 2270 E=INT(E/54)*54 2280 IFE<=4212THENSX=0:GOTO2360 2290 IFE>=18000THEN2310 2300 SX=INT(.22*E-926):GOTO2360 2310 IFE>=60000THEN2330 2320 A=(E-18000)/10000:SX=INT((((3.05*A-73.76)*A+695)*A+2200)*A+3034):GOTO2360 2330 IFE>=130000THEN2350 2340 A=(E-60000)/10000:SX=INT((((.09*A-5.45)*A+88.13)*A+5040)*A+20018):GOTO2360 2350 SX=INT(.56*E-14837) 2360 IFSX<0THENSX=0 2370 IFA(0)=0THENSX=SX*2 2380 RETURN 2390 FORI=5TO22:GOSUB2420 2400 NEXT 2410 RETURN 2420 IFB(0)THEN2440 2430 A(I)=F(I):F(I)=0:GOTO2450 2440 B(I)=F(I):F(I)=0 2450 RETURN 2460 : 2470 GOSUB3860 2480 X$=" [204]OHNSTEUERAUSGLEICH ":Y$="[204]OHNSTEUER" 2490 IFF(1)THENX$="[197]INKOMMENSTEUERVERANLAGUNG":Y$="[197]INKOMMENSTEUER" 2500 TX=36:IFDR=1THENTX=6 2510 PRINT"[147]"+X$ 2520 PRINT:PRINT"[198]ESTSETZUNG DER "+Y$ 2530 PRINT:PRINT:PRINT"IN 1985 GEZAHLTE [211]TEUERN [196][205] ";:Y=F(6):GOSUB3830 2540 PRINT:PRINT"FUER 1985 FESTGESETZT [196][205] ";:Y=ET:GOSUB3830 2550 PRINT:PRINT"VERBLEIBENDE [194]ETRAEGE [196][205] ";:Y=F(6)-ET:GOSUB3830 2560 IFA(7)+B(7)=0ANDE(5)=0THEN2600 2570 PRINT:PRINT"[203]IRCHENSTEUER GEZAHLT [196][205] ";:Y=A(7)+B(7):GOSUB3830 2580 PRINT:PRINT"[203]IRCHENSTEUER FESTGESETZT 9% [196][205] ";:Y=E(5):GOSUB3830 2590 PRINT:PRINT"VERBLEIBENDE [194]ETRAEGE [196][205] ";:Y=(A(7)+B(7))-E(5):GOSUB3830 2600 IFF(2)<=0THENF(2)=0:GOTO2620 2610 PRINT:PRINT"[210]UECKZAHLUNG [211]PARZULAGE [196][205] ";:Y=F(2):GOSUB3830 2620 PRINT"========================================" 2630 Y=(F(6)-ET)+((A(7)+B(7)))-E(5)-F(2) 2640 X$="[210]ESTGUTHABEN":IFY<0THENX$="[206]ACHZAHLUNG " 2650 PRINT""+X$+"[146] [196][205] ";:GOSUB3830 2660 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO2700 2670 IFDR=1THENOPEN4,GA,SA:CMD4:HK=1:GOTO2480 2680 PRINT" (+) WEITER "; 2690 GETA$:IFA$<>"+"THEN2690 2700 PRINT"[147] [194]ERECHNUNG " 2710 X$="[197]HEMANN [197]HEFRAU":IFA(1)=1THENX$="[211]TEUERPFLICHTIGER" 2720 TP=26:TX=36:IFDR=1THENTX=6:TP=6 2730 PRINT:PRINT" "+X$ 2740 PRINT:PRINT"[194]RUTTOARBEITSLOHN [196][205]";:Y=A(5):GOSUB3800:IFA(1)THENPRINT 2750 IFA(1)=0THEN:Y=B(5):GOSUB3830 2760 PRINT:PRINT"AB [198]REIBETRAEGE [196][205]";:Y=1080:GOSUB3800:IFA(1)THENPRINT 2770 IFA(1)=0THEN:Y=1080:GOSUB3830 2780 PRINT:PRINT"AB [215]ERBUNGSKOSTEN [196][205]";:Y=A(22):GOSUB3800:IFA(1)THENPRINT 2790 IFA(1)=0THEN:Y=B(22):GOSUB3830 2800 PRINT:PRINT"[197]INKUENFTE [196][205]";:Y=A(5)-1080-A(22):IFY<0THENY=0 2810 GOSUB3800:IFA(1)THENPRINT:GOTO2840 2820 Y=B(5)-1080-B(22):IFY<0THENY=0 2830 GOSUB3830 2840 PRINT:PRINT"[146]=============================";:IFA(1)=0THENPRINT"=========" 2850 PRINT:PRINT"[193]NLAGE [214] [196][205]";:Y=V:GOSUB3800 2860 : 2870 PRINT:PRINT:PRINT"[211]UMME DER [197]INK. [196][205]";:Y=C(2)+V:IFY<0THENY=0 2880 GOSUB3800:IFA(1)THENPRINT:GOTO2910 2890 Y=D(2):IFY<0THENY=0 2900 GOSUB3830 2910 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO2960 2920 IFDR=1THENOPEN4,GA,SA:CMD4:PRINT:PRINT:PRINT:HK=1:GOTO2700 2930 : 2940 GOSUB3740 2950 IFA$="-"THEN2480 2960 PRINT"[147] [194]ERECHNUNG [146] ([197]NDE)":TX=36:IFDR=1THENTX=6 2970 PRINT:PRINT"[199]ESAMTBETRAG DER [197]INKUENFTE [196][205]";:Y=C(3):IFY<0THENY=0 2980 GOSUB3830 2985 Y=A(7)+B(7)-A(41):IFY=0THEN2995 2990 PRINT:PRINT"[203]IRCHENSTEUER (ABZIEHBAR) [196][205]";:Y=A(7)+B(7)-A(41):GOSUB3830 2995 Y=A(42)+A(34)+A(35)+A(36):IFY=0THEN3010 3000 PRINT:PRINT"WEITERE [211]ONDERAUSGABEN [196][205]";:GOSUB3830 3010 IFA(43)=0THEN3080 3020 PRINT:PRINT"[193]USSERGEWOEHNL. [194]ELASTUNGEN:" 3030 PRINT:PRINT"GEZAHLT [196][205]";:Y=A(43):TX=23:IFDR=1THENTX=6 3040 GOSUB3830 3050 PRINT:PRINT"ABZIEHBAR [196][205]";:Y=A(44) 3060 TX=36:IFDR=1THENTX=6 3070 GOSUB3830 3080 PRINT:PRINT"[214]ERSICHERUNGSBEITRAEGE:" 3090 PRINT:PRINT"GEZAHLT [196][205]";:Y=C(6):TX=23:IFDR=1THENTX=6 3100 GOSUB3830 3110 PRINT:PRINT"ABZIEHBAR [196][205]";:Y=B(24):TX=36:IFDR=1THENTX=6 3120 GOSUB3830 3130 PRINT"=======================================" 3140 PRINT:PRINT"[218]U VERSTEUERNDES [197]INKOMMEN [196][205]";:Y=C(0):IFC(0)<0THENY=0 3150 GOSUB3830 3160 IFHK=1THENPRINT#4:CLOSE4:HK=0:GOTO3190 3170 IFDR=1THENOPEN4,GA,SA:CMD4:HK=1:PRINT:PRINT:PRINT:GOTO2960 3180 GOSUB3740:IFA$="-"THEN2700 3190 PRINT"[147] [204]OHN UND [197]INKOMMENSTEUER 1985 " 3195 IFPEEK(50307)=120THEN3210 3200 PRINT"[193]USGABE AUF [196]RUCKER ([196])" 3210 PRINT"[206]EUE [194]ERECHNUNG ([206])" 3215 PRINT"[197]RGEBNISSE WIEDERHOLEN ([210][197][212][213][210][206])" 3220 GETA$:IFA$=""THEN3220 3230 IFA$=CHR$(13)THENDR=0:GOTO2480 3240 IFA$="N"THEN:RUN 3250 IFA$="D"ANDPEEK(50307)<>120THEN3270 3260 GOTO3220 3270 GA=4:PRINT"[196]RUCKERADRESSE ? 4" 3280 GETA$ 3290 IFA$=CHR$(13)THEN3330 3300 GE=VAL(A$):IFGE>3ANDGE<7THENGA=GE:GOTO3320 3310 GOTO3280 3320 PRINT"";A$:GOTO3280 3330 OPEN4,GA,SA:CLOSE4 3340 IFST=-128THEN3360 3350 DR=1:GOTO2480 3360 PRINT"[196]RUCKER EINSCHALTEN !":FORA=0TO1000:NEXT:GOTO3190 3370 GETA$:IFA$<>" "THEN3370 3380 RETURN 3390 GOSUB3480:FORI=1TO6 3400 GETY$(I):IFY$(I)=""THENY$(I)="*" 3410 IFY$(I)=CHR$(20)THEN3490 3420 IFASC(Y$(I))<48ORASC(Y$(I))>57THEN3400 3430 PRINT"[145]";Y$(1)Y$(2);".";Y$(3)Y$(4);".";Y$(5)Y$(6):NEXT 3440 GETA$:IFA$=CHR$(13)THEN3470 3450 IFA$=CHR$(20)THEN3490 3460 GOTO3440 3470 A=VAL(Y$(5)+Y$(6)+Y$(3)+Y$(4)+Y$(1)+Y$(2)):RETURN 3480 FORI=1TO6:Y$(I)=" ":NEXT:RETURN 3490 PRINT"[145] . . ":GOTO3390 3500 GETY$:IFY$="K"THENPRINT"[145]";K$:RETURN 3510 IFY$="E"THENPRINT"[145]";V$:RETURN 3520 IFY$="0"ORY$=CHR$(13)THENPRINT"[145]KEINE":RETURN 3530 GOTO3500 3540 PRINT" ALLES RICHTIG ? (J/N) "; 3550 GETA$:IFA$="J"ORA$="N"THENRETURN 3560 GOTO3550 3570 GOSUB3480:FORI=1TO6 3580 GETY$(I):IFY$(I)=""THENY$(I)="*" 3590 IFY$(I)=CHR$(13)THEN3670 3600 IFY$(I)=CHR$(20)THENGOSUB3690:GOTO3570 3610 M=0:IFI=1ANDY$(1)="-"THENM=1:GOTO3630 3620 IFASC(Y$(I))<48ORASC(Y$(I))>57THEN3580 3630 PRINT"[145]"+TP$;Y$(1)Y$(2)Y$(3)Y$(4)Y$(5)Y$(6):NEXT 3640 GETA$:IFA$=CHR$(13)THEN3670 3650 IFA$=CHR$(20)THENGOSUB3690:GOTO3570 3660 GOTO3640 3670 Y$=Y$(1)+Y$(2)+Y$(3)+Y$(4)+Y$(5)+Y$(6):Y=VAL(Y$) 3680 PRINT"[145]"+TP$+" ":RETURN 3690 PRINT"[145]"+TP$+" ":RETURN 3700 GETA$:IFA$=""THEN3700 3710 IFA$=CHR$(13)THENRETURN 3720 IFVAL(A$)=0ORVAL(A$)>4THEN3700 3730 RETURN 3740 PRINT" (+) WEITER (-) ZURUECK "; 3750 GETA$:IFA$="+"ORA$="-"THENRETURN 3760 GOTO3750 3770 YF=ABS(Y):Y=INT(Y+.5):PRINT"[145]"; 3780 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TP);Y 3790 RETURN 3800 YF=ABS(Y):Y=INT(Y+.5):IFDR=0THENPRINT""; 3810 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TP);Y; 3820 RETURN 3830 YF=ABS(Y):Y=INT(Y+.5):IFDR=0THENPRINT""; 3840 PRINTTAB(INT(LOG(YF-(YF=0))*.43429448188)*(YF>=1)+INT(-YF)*(YF<1)+TX);Y 3850 RETURN 3860 PRINT"[147][194]ERECHNUNG !" 3870 C(1)=A(5)-600:C(2)=C(1)-480-A(22) 3880 IFA(1)=0THEND(1)=B(5)-600:D(2)=D(1)-480-B(22) 3890 IFD(2)<0THEND(2)=0 3900 IFC(2)<0THENC(2)=0 3910 C(3)=C(2)+D(2)+V:C(4)=A(33)+A(34)+A(35)+A(36)+A(42):GOSUB4550 3920 IFA(1)=1THEN3940 3930 IFC(4)<540THENC(4)=540 3940 IFC(4)<270THENC(4)=270 3950 C(5)=C(3)-C(4):C(7)=6000:IFA(1)=0THENC(7)=3000 3960 C(6)=A(23)+A(24)+A(27)+A(28)+A(29)+A(30)+A(31) 3970 C(8)=C(7)-A(25)-A(26):IFC(8)<0THENC(8)=0 3980 C(9)=C(6)-C(8):IFC(9)<0THENC(9)=0 3990 C(10)=C(6):IFC(8)C(13)THENC(14)=C(13) 4050 C(15)=C(10)+C(12)+C(14):C(16)=C(1):IFC(1)>62400THENC(16)=62400 4060 B(4)=D(1):IFD(1)>62400THENB(4)=62400 4070 C(16)=C(16)+B(4) 4080 C(17)=INT(C(16)*0.09):C(18)=C(17):IFC(17)>B(0)THENC(18)=B(0) 4090 C(19)=C(17):IFC(17)>B(0)/2THENC(19)=B(0)/2 4100 B(23)=C(18)+C(19) 4110 C(20)=INT(B(23)/54+1)*54:IFA(1)=1THEN4130 4120 IFC(20)<600THENC(20)=600 4130 IFC(20)<300THENC(20)=300 4140 B(24)=C(15):IFC(15)0THENC(0)=C(0)-4212 4180 C(0)=C(0)-(A(4)*432)-A(44) 4190 IFA(1)=1ANDC(0)>(24000+A(4)*900)THENF(1)=1 4200 IFA(1)=0ANDC(0)>(48000+A(4)*1800)THENF(1)=1 4210 E=C(0)+A(12)+B(12):A(0)=A(1):GOSUB2260 4220 ET=SX*(C(0)/(C(0)+A(12)+B(12))):F(6)=A(6)+B(6) 4230 E(2)=A(10)+B(10):F(2)=E(2):IFE(2)=0ORF(1)=1THEN4390 4240 IFA(9)>624THENA(9)=624 4250 E(1)=23:IFA(4)>2THENE(1)=33 4260 E(3)=INT(A(9)*E(1)+0.5)/100 4270 IFA(1)=1THEN4300 4280 IFB(9)>624THENB(9)=624 4290 E(3)=INT(B(10)*E(1)+0.5)/100+E(3) 4300 IFA(8)>624THENA(8)=624 4310 F(8)=A(8)-A(9):E(1)=16:IFA(4)>2THENE(1)=26 4320 IFF(8)<0THENF(8)=0 4330 E(3)=INT(F(8)*E(1)+0.5)/100+E(3) 4340 IFA(1)=1THEN4380 4350 IFB(8)>624THENB(8)=624 4360 F(8)=B(8)-B(9):E(3)=INT(B(8)*E(1)+0.5)/100+E(3) 4370 IFF(8)<0THENF(8)=0 4380 F(2)=E(2)-E(3):IFE(2)<0THENE(2)=0 4390 IFB(3)=0ANDA(3)=0THEN4550 4400 IFA(3)<>0ANDB(3)<>0THENE(4)=ET:GOTO4490 4410 IFA(3)=0THEN4460 4420 E=C(2(null):A(0)=1:GOSUB2260 4430 E(4)=SX:IFA(1)=1THENE(4)=ET:GOTO4490 4440 E=D(2):GOSUB2260 4450 E(4)=ET*E(4)/(SX+E(4)):GOTO4490 4460 E=C(2):A(0)=1:GOSUB2260 4470 E(4)=SX:E=D(2(null):GOSUB2260 4480 E(4)=ET*SX/(SX+E(4)) 4490 IFA(4)=0THEN4530 4500 IFA(4)=1THENE(4)=E(4)-600:GOTO4530 4510 IFA(4)=2THENE(4)=E(4)-1560:GOTO4530 4520 E(4)=E(4)-1560-((A(4)-2)*1800) 4530 IFE(4)<0THENF(4)=0 4540 E(5)=INT(E(4)*9)/100:IFE(5)<7.2THENE(5)=7.2 4550 E(8)=4:IFA(1)THENE(8)=5 4560 IFA(1)=1ANDA(4)>0THENE(5)=5 4570 IFC(3)>100000THENE(8)=E(8)+1 4580 IFC(3)>30000THENE(8)=E(8)+1 4590 IFA(4)>0ANDA(4)<3THENE(8)=E(8)-2 4600 IFA(4)>3THENE(8)=E(8)-2 4610 IFE%8)<=0THENE(8)=1 4620 E(7)=C(3)*E(8)/100:A(44)=A(43)-E(7):IFA(44)<0THENA(44)=0 4625 RETURN 4630 RETURN 5000 PRINT"[147] [202]AHRES - [197]INKOMMENSTEUERTABELLE 1985 [146]";:TP=37:TP$="" 5010 PRINT"[218]U VERSTEUERNDES [197]INKOMMEN : [196][205]  [146]":GOSUB 3570:GOSUB 3770 5015 EK=Y:E=EK 5020 PRINT"[202]AHRESSTEUER [199]RUNDTABELLE : [196][205] " 5030 A(0)=1:GOSUB2260:Y=SX:S(1)=SX:GOSUB 3770 5040 PRINT"[202]AHRESSTEUER [211]PLITTINGTAB. : [196][205] ":E=EK:A(0)=0:GOSUB 2260:S(2)=SX 5050 Y=SX:GOSUB 3770 5060 PRINT" [211]TEUERVORTEIL DURCH [193]BSCHREIBUNG [146]"; 5070 PRINT"[193]BSCHREIBUNGSBETRAG : [196][205]  [146]":GOSUB3570 5080 GOSUB3770:AB=Y:EK=EK-AB:A(0)=1:E=EK:GOSUB2260:S(3)=S(1)-SX 5090 PRINT"[211]TEUERVORTEIL [199]RUNDTABELLE : [196][205] ":Y=S(3):GOSUB3770 5100 : 5110 A(0)=0:E=EK:GOSUB2260:S(4)=S(2)-SX 5120 PRINT"[211]TEUERVORTEIL [211]PLITTINGTAB.: [196][205] ":Y=S(4):GOSUB3770 5130 PRINT" [206]EUE [194]ERECHNUNG (J/N) ? [146]";:GOSUB3550 5140 IFA$="J"THEN5000 5150 PRINT"[147]":CLR:GOTO70